社区 › 编程申请 › [求助]闭和多段线如何添加属性值？？？

wangwyy 发表于 2004-6-6 20:15:00

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

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


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


多谢了！！！

efan2000 发表于 2004-6-6 20:24:00

使用扩展数据来保存属性。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

查看完整版本: [求助]闭和多段线如何添加属性值？？？