координаты точек

[LMA]

Всем привет! Хочу спросить - как сделать, чтобы в RichTextBoxe появлялись координаты точек тех объектов, которые я выделил на чертеже в AutoCAD'e? У меня получалось это сделать только путём копирования этих точек в буфер с последующей вставкой. А как установить прямую связь - до меня пока не дошло. Если кто-то решал подобные проблемы - помогите, плиз.

[NicSoft]

Код: Выделить всё

Private Sub cmdGetCoor_Click()
  Dim i As Integer
  Dim objGen As AcadEntity
  Dim objPoint1 As AcadPoint

'Set objACad = New AutoCAD.AcadApplication

If objACad.ActiveDocument.PickfirstSelectionSet.Count > 0 Then
       For i = 0 To objACad.ActiveDocument.PickfirstSelectionSet.Count - 1
            If objGen.ObjectName = "acDbPoint" Then
                Set objPoint1 = objGen
                Debug.Print objPoint1.Coordinates(0) 'X
                Debug.Print objPoint1.Coordinates(1) 'Y
                Debug.Print objPoint1.Coordinates(2) 'Z
               
            End If
        Next
End If

End Sub


У меня получается.

[raserg]

А если выбираемый объект область AcDbRegion .Возможно ли выделить данные-из чего состоит область,координаты вершин.В классе AcadPolygonMesh есть свойство Coordinates() As Object ,только выделить не могу,ответ не определено.Может кто сталкивался с этим?