[讨论]怎么读取CASS中界址线的属性

robbin840311 · 发表于 2008-7-26 15:32:00

请问：怎么读取界址线的宗地号、起始点号、终止点号、图上边长这四个属性啊？
file:///D:/My%20Documents/Picture/界址线.jpg

附件中是测试文件

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

夏思恩 · 发表于 2017-11-30 17:14:00

最近在搞这样的程序，楼主你解决问题没，希望能交流下

zhouzhiy · 发表于 2017-11-11 10:50:00

谢谢楼主分享！

兰州人 · 发表于 2008-7-28 12:31:00

你这属于GIS范畴，太专业了。

robbin840311 · 发表于 2008-7-31 08:06:00

谢谢兰州人，正是GIS范畴。
自己顶一个！

robbin840311 · 发表于 2008-8-2 21:31:00

顶顶

yellocea · 发表于 2008-8-3 10:11:00

经过我测试,南方cass70里宗地属性共有68项.包括宗地号,权利人,实做编码,地类编码,四至信息,图幅号,宗地面积等等.但不知你用的是什么绘图程序.

yellocea · 发表于 2008-8-3 10:27:00

开始我用扩展字典去读,结果没读出.后来用扩展数据读出来的....

  Sub GetAttrib()
  Dim dataType As Variant
Dim data As Variant
Dim objCurrent As AcadEntity
Dim basepnt As Variant
ThisDrawing.Utility.GetEntity objCurrent, basepnt

objCurrent.GetXData "", dataType, data
If IsEmpty(dataType) Then
   MsgBox "没有属性", vbCritical
   Exit Sub
End If
Dim str1 As String
Dim str0 As String
Dim i As Integer
For i = LBound(dataType) To UBound(dataType)
         str1 = dataType(i) & "||" & data(i)
   str0 = str0 + str1 + Chr(13) + Chr(10)

Next i
MsgBox str0, vbCritical
  End Sub
先用修改属性选择一下界址线,不然只有4种属性,选择之后什么都不改,关闭之后再读就有68种属性了