cass 获取界址线的每条边的属性怎么获取？？？

373294296

2. Function GetVertexs(Ent As AcadEntity) As Variant
   
3.      Dim n As Integer
   
4.      Dim oVertexs() As AcadObject
   
5.      Dim sName As String
   
6.      sName = UCase(Ent.ObjectName)
   
7.      If sName = "ACDBPOLYLINE" Or sName = "ACDB3DPOLYLINE" Then
   
8.          n = (UBound(Ent.Coordinates) + 1) / 3
   
9.      End If
   
10.      If n = 0 Then Exit Function
    
11.      ReDim oVertexs(n - 1)
    
12.      Dim oVlax As New VLAX
    
13.      lst = oVlax.GetLispList("(GetVers """ & Ent.Handle & """)")
    
14.      For i = 1 To n
    
15.          Set oVertexs(i - 1) = acadapp.ActiveDocument.HandleToObject(lst(n - i))
    
16.      Next i
    
17.      GetVertexs = oVertexs
    
18. End Function
    
19. Sub test4()
    
20.    ' Dim ZY_Xian1 As AcadPolyline
    
21.     Dim obj As AcadLWPolyline, pnt, oVers
    
22.     Dim xt, xd
    
23.     ThisDrawing.Utility.GetEntity obj, pnt
    
24.   '  oVers = GetVertexs(ZY_Xian1)
    
25.     oVers = GetVertexs(obj)
    
26.         For i = 0 To UBound(oVers)
    
27.             s = ""
    
28.             oVers(i).GetXData "", xt, xd
    
29.             
    
30.             For j = 0 To UBound(xd)
    
31.                 s = s & vbCrLf & xd(j)
    
32.             Next j
    
33.             If Err Then
    
34.                 Err.Clear
    
35.                 MsgBox "空值"
    
36.             Else
    
37.                 MsgBox s
    
38.             End If
    
39.         Next i
    
40. End Sub
    

Function GetVertexs(Ent As AcadEntity) As Variant<br />      Dim n As Integer<br />      Dim oVertexs() As AcadObject<br />      Dim sName As String<br />      sName = UCase(Ent.ObjectName)<br />      If sName = "ACDBPOLYLINE" Or sName = "ACDB3DPOLYLINE" Then<br />          n = (UBound(Ent.Coordinates) + 1) / 3<br />      End If<br />      If n = 0 Then Exit Function<br />      ReDim oVertexs(n - 1)<br />      Dim oVlax As New VLAX<br />      lst = oVlax.GetLispList("(GetVers """ & Ent.Handle & """)")<br />      For i = 1 To n<br />          Set oVertexs(i - 1) = acadapp.ActiveDocument.HandleToObject(lst(n - i))<br />      Next i<br />      GetVertexs = oVertexs<br /> End Function<br /> Sub test4()<br />    ' Dim ZY_Xian1 As AcadPolyline<br />     Dim obj As AcadLWPolyline, pnt, oVers<br />     Dim xt, xd<br />     ThisDrawing.Utility.GetEntity obj, pnt<br />   '  oVers = GetVertexs(ZY_Xian1)<br />     oVers = GetVertexs(obj)<br />         For i = 0 To UBound(oVers)<br />             s = ""<br />             oVers(i).GetXData "", xt, xd<br />             <br />             For j = 0 To UBound(xd)<br />                 s = s & vbCrLf & xd(j)<br />             Next j<br />             If Err Then<br />                 Err.Clear<br />                 MsgBox "空值"<br />             Else<br />                 MsgBox s<br />             End If<br />         Next i<br /> End Sub<br />

newbuser

哥们发个例图上来，看样子lisp就能解决。不必非得vba啊。

Real_King

是获取权属线属性吧？

373294296

http://bbs.mjtd.com/thread-64954-1-1.html
我是按照 这个帖子的例子， 但是老师出错？？？帮帮我把老师？

373294296

不能沉下去， 怎么获取界址线属性呢？？？大神出来吧

373294296

Real_King 发表于 2015-8-9 19:42
是获取权属线属性吧？

是呀老师， 怎么获取界址线属性呢？？？？  求老师指教？？？

Real_King

373294296 发表于 2015-8-9 21:30
是呀老师， 怎么获取界址线属性呢？？？？  求老师指教？？？

你的帖子发错板块了，该到VBA那区
扩展属性，Xdata,可通过遍历获取，也可指定注册程序名获取，我用的是C#，跟你的VBA不同
瞄了一眼你的代码，没有发现GetXData，我以前用VBA做的时候记得是这个GetXData,
GetXData "SOUTH"，太久都忘了，你在群里搜这个GetXData应该就有答案了
顺便建议下，早转其他语言。。。

373294296

Real_King 发表于 2015-8-10 12:42
你的帖子发错板块了，该到VBA那区
扩展属性，Xdata,可通过遍历获取，也可指定注册程序名获取，我用的是C#， ...

老师，我会用getxdata setxdata 获取， 和写入属性  宗地属性我会， 但是每条边的界址线属性这个不会？？？？  好像是发错地方， vba 帖子没什么人，回答？？？ 是不是vba 没什么人用了。。。。。。。
重点是界址线属性，

Real_King

373294296 发表于 2015-8-10 13:05
老师，我会用getxdata setxdata 获取， 和写入属性  宗地属性我会， 但是每条边的界址线属性这个不会？？ ...

你的思路错误，“边属性”哪个点到哪个点相关信息，你只有分别存储
如
“N,J1-J2 XXXX”
“S,J2-J3 XXXX”
VBA，现在的10版本CAD都不自带内嵌开发环境了，你应该知道这个意味着什么。
by the way，我们做的不会是同一个项目吧，我是SCYJDZKCJCHDD的

373294296

是呀，  老师， 单独用vba  去做这个， 有点力不从心呀！  但是老师我还是想把它做出来， ！要不老师你帮我写一下vba 代码吧，有偿的行不行，我给你充1oo元话费，我先充，，，你再写也行，困扰我好多天的问题了！！！ 只要获取到界址线的属性就行，