如何获得块中点的坐标

passion884

我初学vba不久，我遇到一个问题，一个块有几百个点，如何利用vba获得点的坐标呢？？？并利用.txt文件存储呢？？

wyj7485

可以先把块炸开获得对象集,然后就可以取得点的数据了!

passion884

我刚开始学习vba，我比较菜，怎么炸开呢？？


有没有代码一类的呢？？

dchlmz

有命令呀，

wyj7485

2. Sub test()
3. Dim SelObj As AcadObject
4. Dim SelP, Obj As Variant
5. Dim n
6. Dim Pnt As AcadPoint
7. Dim x, yThisDrawing.Utility.GetEntity SelObj, SelP, "选择块:"Obj = SelObj.Explode
8. n = UBound(Obj) '得到块中图元个数
9. For i = 0 To n
10.        If Obj(i).EntityName = "AcDbPoint" Then
11.        Set Pnt = Obj(i)
12.        x = Pnt.Coordinates(0) '点x坐标
13.        y = Pnt.Coordinates(1) '点y坐标
14.       
15.                Open "D:\test.txt" For Append As #1 '写入点到文件
16.                Print #1, "X=" & Str(x) & "                 " & "Y=" & Str(y)
17.                Close #1       End If
18. NextFor i = 0 To n '删除炸开的图元
19. Obj(i).Delete
20. NextEnd Sub

Sub test() Dim SelObj As AcadObject Dim SelP, Obj As Variant Dim n Dim Pnt As AcadPoint Dim x, yThisDrawing.Utility.GetEntity SelObj, SelP, "选择块:"Obj = SelObj.Explode n = UBound(Obj) '得到块中图元个数 For i = 0 To n        If Obj(i).EntityName = "AcDbPoint" Then        Set Pnt = Obj(i)        x = Pnt.Coordinates(0) '点x坐标        y = Pnt.Coordinates(1) '点y坐标                       Open "D:\test.txt" For Append As #1 '写入点到文件                Print #1, "X=" & Str(x) & "                 " & "Y=" & Str(y)                Close #1       End If NextFor i = 0 To n '删除炸开的图元 Obj(i).Delete NextEnd Sub