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

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

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

zu45rjvorce.png

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

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

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

1aviwyohgmv.jpg

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

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

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:flzgazrmk1i.DWG
下载次数:0 文件大小:120.53 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

样图

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

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:riqgj3miszt.DWG
下载次数:0 文件大小:120.53 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

样图

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

登录/注册后可看大图

ab4hzbdk5cg.jpg

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

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

我这样写对吗？

copy


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#

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

发表回复

精选推荐