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

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

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

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

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

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


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

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

newbuser 发表于 2015-8-17 12:52 static/image/common/back.gif
发张样图上来啊，要不然怎么给你测试？

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

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

Real_King 发表于 2015-8-17 16:36 static/image/common/back.gif
CASS生成的界址点扩展数据应该如上吧，你那个图，确定是CASS生成的界址点？也许是其它软件生成的

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

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

本帖最后由 Real_King 于 2015-8-18 09:08 编辑


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

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

Real_King 发表于 2015-8-18 09:06 static/image/common/back.gif
看了你的权属线和界址点，应该不是CASS生成的，CASS7.1 到 9.1 地籍生成的这两玩意儿扩展数据不像这样， ...

我这样写对吗？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:48

shuiyeqing 发表于 2015-8-18 10:31 static/image/common/back.gif
我这样写对吗？

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