Erase arcs from a polyline

[AstroNout]

Hi guys

I've been busy again. I've tried to come up with a (dated) VBA-Code do disbow my drawings. But I can't seem to cycle through the polylines in the drawing.

Shouldn't it be:

If TypeOf aEnt Is AcadPolyline Then

It doesn't work at all...

Thanks y'all!

[SEANT]

Try AcadLWPolyline.

[AstroNout]

how are LW's stuctured? Without z-coordinates? So X1,Y1,X2,Y2 etc. in the array?

[SEANT]

That's correct. With a Elevation property as the overriding Z value for all vertices, and a per vertex Bulge factor to indicate arcs.

The "LightWeight Polyline" situation can get a little complex depending on 3d alignment of the Normal property. The TranslateCoordinate Method must be used when comparing to World coordinates.