Vbs, WKT, projection

1. In terraexplorer, the message attribute of an object can be embedded into vbs:

  Dim Itemid    Itemid = SGWorld61.ProjectTree.FindItem ("BSD011A")               Dim Obx         Set Obx = SGWorld61.ProjectTree.GetObject (Itemid)         Msgbox Obx.ObjectType  Obx.Terrain.Tint.FromHTMLColor("#ff0000")                  Obx.Terrain.Tint.SetAlpha (0.8)           Obx.ToolTip.Text = "456"

2. WKT projection Information Description:

PROJCS["XI_AN_1980_3_Degree_GK_Zone_39",    GEOGCS["GCS_XI'AN 1980",        DATUM["XI'AN 1980",            SPHEROID["XI_AN_1980",6378140.000000,298.257000]],        PRIMEM["Greenwich",0.0],        UNIT["Degree",0.017453292519943295]],    PROJECTION["Transverse_Mercator"],    PARAMETER["False_Easting",39500000.0000000000],    PARAMETER["False_Northing",0.0000000000],    PARAMETER["Central_Meridian",117.0000000000],    PARAMETER["Latitude_Of_Origin",0.0000000000],    PARAMETER["K0",1.000000],    UNIT["Non-Meter",1.000000],    UNIT["Meter (m)",1]]            PROJCS["Xian 1980 / 3-degree Gauss-Kruger CM 117E",    GEOGCS["Xian 1980",        DATUM["Xian_1980",            SPHEROID["IAG 1975",6378140,298.257,                AUTHORITY["EPSG","7049"]],            AUTHORITY["EPSG","6610"]],        PRIMEM["Greenwich",0,            AUTHORITY["EPSG","8901"]],        UNIT["degree",0.0174532925199433,            AUTHORITY["EPSG","9122"]],        AUTHORITY["EPSG","4610"]],    PROJECTION["Transverse_Mercator"],    PARAMETER["latitude_of_origin",0],    PARAMETER["central_meridian",117],    PARAMETER["scale_factor",1],    PARAMETER["false_easting",500000],    PARAMETER["false_northing",0],    UNIT["metre",1,        AUTHORITY["EPSG","9001"]],    AXIS["X",NORTH],    AXIS["Y",EAST],    AUTHORITY["EPSG","2384"]]