【SuperMap .Net 组件】三维自定义专题图

自定义专题图很实用，一般功能都能实现。我要做一个3D的检查井图层，数据集还是用二维点，只要用3D的Symbol再把参数设置一下，就可以达到预期效果了。

<span style="white-space:pre">	</span>Dim dataSources As Datasources = m_Workspace.Datasources
        Dim dataSetVector2D As DatasetVector = dataSources.Item("数据集集合的名称").Datasets("数据集的名称")

        ''设置自定义专题图
        Dim theme As Theme3DCustom = New Theme3DCustom()
        theme.AltitudeModeExpression = 1

        theme.BottomAltitudeExpression = "底部高程字段名"
        theme.MarkerSymbolIDExpression = "Symbol字段名"
        ''除了Z方向的拉伸，还有X Y方向
        theme.Marker3DScaleZExpression = "拉伸字段" & "*0.5"    ''可以像这样对字段中的数值进行调整，也可以直接输入固定值
     

        m_SceneControl.Scene.Layers.Add(dataSetVector2D, theme, True)
        m_SceneControl.Scene.Refresh()

底部高程字段如果没有的话就不要去设置，不然反而在场景中没有显示。