VBS、WKT、投影

1.在TerraExplorer中，对象的Message属性支持嵌入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投影信息描述：

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"]]