自定义专题图很实用,一般功能都能实现。我要做一个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()
底部高程字段如果没有的话就不要去设置,不然反而在场景中没有显示。