Get coordinate of polyline by VBA

[quangducnguyen]

Hi,
I've just started learning VBA in CAD.I wanna select polyline onscreen and then get its coordinate(of every vertex).But I don't know how to do it.
Thanks for any help.
Bye

[Steven Bastiaanse]

Something like this?

Sub Example_Coordinates()

Dim Selection As AcadSelectionSet
Dim Poly As AcadLWPolyline
Dim Obj As AcadEntity
Dim Bound As Double

'Makes a selectionset.
'On Error Resume Next
    Set Selection = ThisDrawing.SelectionSets.Item("Select polyline.")
If Err Then
    Set Selection = ThisDrawing.SelectionSets.Add("Select polyline.")
    Err.Clear
Else
    Selection.Clear
End If

'Select the polyline.
Selection.SelectOnScreen

For Each Obj In Selection

    If Obj.ObjectName = "AcDbPolyline" Then
        
            Set Poly = Obj
            On Error Resume Next
            
            Bound = UBound(Poly.Coordinates)
            
            x = 0
            y = 1
            
            For i = 0 To Bound / 2
                
                MsgBox "X= " & Poly.Coordinates(x) & "  Y= " & Poly.Coordinates(y)
                If Err Then Err.Clear
                
                x = x + 2
                y = y + 2
                
            Next
          
    End If

Next Obj

End Sub

I hope this helps you!

Greetings

[vitaminm]

Hello, someone please,

Sub Example_Coordinates()
without the sub xx()

how to run this code?

[ketxu]

Try to change ( by ( and ) by ) in code

[fixo]

Hello, someone please,

Sub Example_Coordinates()
without the sub xx()

how to run this code?

Try another one instead,type vbarun in the command line,
select "demo" sub

Option Explicit
Function PolyCoords(oEnt As AcadEntity) As Variant
     Dim cnt As Integer
     Dim i As Integer
     Dim j As Integer
     Dim iStep As Integer
     Dim varPt As Variant
     Dim dblCoords() As Double
     Dim dblVert() As Double
 
     If TypeOf oEnt Is AcadLWPolyline Then
          iStep = 2
     ElseIf TypeOf oEnt Is Acad3DPolyline Or _
            TypeOf oEnt Is AcadPolyline Then
          iStep = 3
     End If
     dblCoords = oEnt.Coordinates
 
     ReDim ptsArr(0 To (UBound(dblCoords) + 1) \ iStep - 1, 0 To iStep - 1) As Double
     For i = 0 To (UBound(dblCoords) + 1) \ iStep - 1
          For j = 0 To iStep - 1
               ptsArr(i, j) = dblCoords(cnt)
               Debug.Print ptsArr(i, j)
               cnt = cnt + 1
          Next
     Next
     PolyCoords = ptsArr
End Function
 
Sub demo()
     Dim pts As Variant
     Dim varPt As Variant
     Dim oEnt As AcadEntity
     ThisDrawing.Utility.GetEntity oEnt, varPt, vbCr & "Select polyline"
     If Not TypeOf oEnt Is AcadLWPolyline And _
        Not TypeOf oEnt Is Acad3DPolyline And _
        Not TypeOf oEnt Is AcadPolyline Then
          MsgBox "Method is not applicable for this entity type"
          Exit Sub
     End If
     pts = PolyCoords(oEnt)
End Sub

Next tyme post your question on VBA branch, please:
http://www.cadtutor.net/forum/forumd...ectARX-amp-VBA

~'J'~

[vitaminm]

Try to change ( by ( and ) by ) in code

Ya, tq, it woks now!

[Karma]

I’m a bit discouraged, I started to learn acad-vba since a few days too & I wanted to understand Steven Bastiaanse’s example which seems simple.
Why #40 & #41 , what does it mean.
Set Selection = ThisDrawing.SelectionSets.Item (”Select polyline” & #41; ???
(ThisDrawing.selectionsets) expected object or method isn’t it?

Thanks for helping me