[求助]闭和多段线如何添加属性值？？？

wangwyy

闭和多段线如何添加属性值？？？


如规划的地块（闭和多段线）给它增加用地类型、用地编号、面积、容积率等属性？？？


多谢了！！！

efan2000

使用扩展数据来保存属性。

2. Public Sub Test()
3.        Dim DataType(0 To 8) As Integer
4.        Dim DataValue(0 To 8) As Variant
5.        DataType(0) = 1001: DataValue(0) = "规划地块"
6.        DataType(1) = 1002: DataValue(1) = "{"
7.        DataType(2) = 1000: DataValue(2) = "用地类型"
8.        DataType(3) = 1000: DataValue(3) = "规划"
9.        DataType(4) = 1002: DataValue(4) = "}"
10.        DataType(5) = 1002: DataValue(5) = "{"
11.        DataType(6) = 1000: DataValue(6) = "用地编号"
12.        DataType(7) = 1000: DataValue(7) = "001"
13.        DataType(8) = 1002: DataValue(8) = "}"
14.        ThisDrawing.ModelSpace(0).SetXData DataType, DataValue
15. End Sub

Public Sub Test()        Dim DataType(0 To 8) As Integer        Dim DataValue(0 To 8) As Variant        DataType(0) = 1001: DataValue(0) = "规划地块"        DataType(1) = 1002: DataValue(1) = "{"        DataType(2) = 1000: DataValue(2) = "用地类型"        DataType(3) = 1000: DataValue(3) = "规划"        DataType(4) = 1002: DataValue(4) = "}"        DataType(5) = 1002: DataValue(5) = "{"        DataType(6) = 1000: DataValue(6) = "用地编号"        DataType(7) = 1000: DataValue(7) = "001"        DataType(8) = 1002: DataValue(8) = "}"        ThisDrawing.ModelSpace(0).SetXData DataType, DataValue End Sub