select a polyline

[Huibert]

I encounter an error when selecting a polyline (the same code works fine for 3dpolyline, line and arc)

 

    Dim Pick As Variant
   Dim Polyline As AcadPolyline
   ThisDrawing.Utility.GetEntity Polyline, Pick, vbCr & "Select the polyline"

 

I tried to find the problem but the only thing I found is that when selecting a polyline, the entity is not of type AcadPolyline. Why??

And how can I select a polyline?

 

    Dim Pick As Variant
Dim Polyline As AcadPolyline
   ThisDrawing.Utility.GetEntity Ent, Pick, vbCr & "Select the polyline"
If TypeOf Ent Is AcadPolyline Then
Set Polyline = Ent
End If

[SEANT]

Autodesk has made it a bit confusing with the various polyline entities and how they are referred to in the application versus API context. The bottom line for your situation is:

 

Dim LWPolyline As AcadLWPolyline

. . . .

If TypeOf Ent Is AcadLWPolyline Then

Set LWPolyline = Ent

[Huibert]

Thanks for the solution. The program works as it should.

 

Thank you very much

 

Huibert