shuiyeqing 发表于 2015-8-17 09:30:00

求助：CASS中界址点属性读取

在南方CASS中我可以用XData读取到界址线属性，但读取界址点的时候却读不到界址点号。
哪位大神帮帮忙？？？

newbuser 发表于 2015-8-17 12:52:00

发张样图上来啊，要不然怎么给你测试？

Real_King 发表于 2015-8-17 16:36:00




CASS生成的界址点扩展数据应该如上吧，你那个图，确定是CASS生成的界址点？也许是其它软件生成的

shuiyeqing 发表于 2015-8-17 22:23:00


样图已上传，大神请帮帮忙，拜托了！～


样图

shuiyeqing 发表于 2015-8-17 22:27:00


确实是南方CASS生成的，大神帮忙看看啊。


样图

Real_King 发表于 2015-8-18 09:06:00


http://bbs.mjtd.com/forum.php?mod=attachment&aid=ODk3Nzl8OGNkODFjN2F8MTY1OTA4NDM1N3w3MzI2OTE4fDE2OTExMw%3D%3D&noupdate=yes&nothumb=yes



看了你的权属线和界址点，应该不是CASS生成的，CASS7.1 到 9.1 地籍生成的这两玩意儿扩展数据不像这样，你用的应该是其他基于CAD运行的地籍软件。
言归真题，获取"SOUTH"注册名的扩展数据，取第三个，加前缀J即为当前界址点

shuiyeqing 发表于 2015-8-18 10:31:00


我这样写对吗？
Sub Qqsx()'提取扩展属性
Dim XDType As Variant, XData As Variant, mm As String, m As String
Dim ai As Integer
On Error Resume Next
ThisDrawing.Utility.GetEntity Entry, basePnt, "选取实体对象"
Entry.GetXData "", XDType, XData
ai = UBound(XDType)
If Err > 0 Then
   mm = "对象没有扩展属性"
   GoTo 10
End If
mm = "对象的扩展属性为："
For i = 0 To UBound(XDType)
      mm = mm + Chr(13) + Chr(10) + Str(XDType(i)) + "=:" + XData(i)
      a = Err
Next i
10: MsgBox mm
End Sub

Real_King 发表于 2015-8-18 19:27:00


Entry.GetXData "", XDType, XData
是否应为 Entry.GetXData "SOUTH", XDType, XData
我用的C#
页: [1]
查看完整版本: 求助：CASS中界址点属性读取