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

shuiyeqing

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

newbuser

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

Real_King

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

shuiyeqing

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

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

shuiyeqing

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

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

Real_King

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

shuiyeqing

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

我这样写对吗？

2. Sub Qqsx()  '提取扩展属性
   
3. Dim XDType As Variant, XData As Variant, mm As String, m As String
   
4. Dim ai As Integer
   
5. On Error Resume Next
   
6. ThisDrawing.Utility.GetEntity Entry, basePnt, "选取实体对象"
   
7. Entry.GetXData "", XDType, XData
   
8. ai = UBound(XDType)
   
9. If Err > 0 Then
   
10.      mm = "对象没有扩展属性"
    
11.      GoTo 10
    
12. End If
    
13.   mm = "对象的扩展属性为："
    
14.   For i = 0 To UBound(XDType)
    
15.       mm = mm + Chr(13) + Chr(10) + Str(XDType(i)) + "=:" + XData(i)
    
16.       a = Err
    
17.   Next i
    
18. 10: MsgBox mm
    
19. End Sub

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

Real_King

shuiyeqing 发表于 2015-8-18 10:31
我这样写对吗？

Entry.GetXData "", XDType, XData
是否应为 Entry.GetXData "SOUTH", XDType, XData
我用的C#