Iterate through polyline segments using lisp

[prgmdl]

Hi

How to iterate each segments of a 2d polyline to get properties using lisp? Thanks

[prgmdl]

Hi @ВeekeeCZ ,

The lisp works, thank you. Also, if i's not too much to ask, how do I get the arc radius if the polyline contains an arc segment? 

EDIT: something like this?

[prgmdl]

I will use the value to create an offset for individual segments of the polyline. I also just encountered where a polyline contains an arc, and I would like to get the radius or the point locaiton of its midpoint to recreate it another software.

[ВeekeeCZ]

Radius must be calculated from the bulge and endpoints. See HERE 

[Sea-Haven]

Google "point location of pline midpoint autolisp" pretty sure have seen a post about this recently here.

[prgmdl]

Hi @ВeekeeCZ, I was trying to do this now in VBA but somehow the GetWidth does not work, do you know how to do the same code using VBA?