[求助]：如何获取dwg封闭图形的顶点坐标

kfygl

请教，如何使用VBA编程获得DWG图形中的某一封闭图形（pline线）的项点坐标，并使之输出到word文档中形成表格。

efan2000

下面的例子可以参考一下。

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     'Dim lwpLineObj As AcadLWPolyline
   
6.     'Set lwpLineObj = ThisDrawing.ModelSpace(0)
   
7.    
   
8.     ' 获取Word对象
   
9.     Dim wd As Word.Application
   
10.     Set wd = GetObject(, "Word.Application")
    
11.    
    
12.     ' 在Word文档的当前位置创建1行3列的表格
    
13.     Dim t As Word.Table
    
14.     Set t = wd.ActiveDocument.Tables.Add(wd.Selection.Range, 1, 3)
    
15.    
    
16.     ' 返回多段线的顶点坐标
    
17.     Dim v As Variant
    
18.     v = lwpLineObj.Coordinates
    
19.    
    
20.     ' n代表行，(UBound(v) - 1) / 2代表多段线的顶点数
    
21.     Dim n As Integer
    
22.     Dim i As Integer
    
23.     For i = 0 To UBound(v) Step 2
    
24.         n = n + 1
    
25.         t.Cell(n, 1).Range.Text = n
    
26.         t.Cell(n, 2).Range.Text = v(i)
    
27.         t.Cell(n, 3).Range.Text = v(i + 1)
    
28.         If n = (UBound(v) - 1) / 2 Then Exit For
    
29.         t.Rows.Add
    
30.     Next
    
31. End Sub
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     'Dim lwpLineObj As AcadLWPolyline<br />     'Set lwpLineObj = ThisDrawing.ModelSpace(0)<br />     <br />     ' 获取Word对象<br />     Dim wd As Word.Application<br />     Set wd = GetObject(, "Word.Application")<br />     <br />     ' 在Word文档的当前位置创建1行3列的表格<br />     Dim t As Word.Table<br />     Set t = wd.ActiveDocument.Tables.Add(wd.Selection.Range, 1, 3)<br />     <br />     ' 返回多段线的顶点坐标<br />     Dim v As Variant<br />     v = lwpLineObj.Coordinates<br />     <br />     ' n代表行，(UBound(v) - 1) / 2代表多段线的顶点数<br />     Dim n As Integer<br />     Dim i As Integer<br />     For i = 0 To UBound(v) Step 2<br />         n = n + 1<br />         t.Cell(n, 1).Range.Text = n<br />         t.Cell(n, 2).Range.Text = v(i)<br />         t.Cell(n, 3).Range.Text = v(i + 1)<br />         If n = (UBound(v) - 1) / 2 Then Exit For<br />         t.Rows.Add<br />     Next<br /> End Sub<br />   [/FONT]<br />