[求助]怎样获得一个选择集中点的坐标

yuren503

请问，我有一个选择集，里面全部为点，怎样才能获得它们的坐标呢（遍历选择集后，用哪个属性呢）？


谢谢！

mccad

使用Coordinates属性来获取：

2. Sub GetPointCoor()       Dim ss As AcadSelectionSet
3.        On Error Resume Next
4.        ThisDrawing.SelectionSets("mccad").Delete
5.        Set ss = ThisDrawing.SelectionSets.Add("mccad")
6.        ss.Select acSelectionSetAll
7.       
8.        Dim ent As AcadEntity
9.        Dim pnt As AcadPoint
10.        Dim pntcoor As Variant
11.        Dim txt As String
12.       
13.        For Each ent In ss
14.                If ent.ObjectName = "AcDbPoint" Then
15.                        Set pnt = ent
16.                        pntcoor = pnt.Coordinates
17.                        txt = txt & pntcoor(0) & "," & pntcoor(1) & "," & pntcoor(2) & vbCr
18.                End If
19.        Next
20.       
21.        MsgBox txt, , "明经通道VBA示例http://www.mjtd.com"
22.       
23. End Sub

Sub GetPointCoor()       Dim ss As AcadSelectionSet        On Error Resume Next        ThisDrawing.SelectionSets("mccad").Delete        Set ss = ThisDrawing.SelectionSets.Add("mccad")        ss.Select acSelectionSetAll               Dim ent As AcadEntity        Dim pnt As AcadPoint        Dim pntcoor As Variant        Dim txt As String               For Each ent In ss                If ent.ObjectName = "AcDbPoint" Then                        Set pnt = ent                        pntcoor = pnt.Coordinates                        txt = txt & pntcoor(0) & "," & pntcoor(1) & "," & pntcoor(2) & vbCr                End If        Next               MsgBox txt, , "明经通道VBA示例http://www.mjtd.com"        End Sub

yuren503

知道了，多谢！