remove arcs from 2d pline

[tjh2]

I have been trying to find a routine that will remove the arcs from a 2d pline and replace with short segments. This is to facilitate better surface modeling in Land Desktop 2006.

I have tried the web to no avail. Can anyone help?

Thanks

[T.Willey]

You can try this. Once you get the ename of the polyline, pass it to this.

(defun MakeStraightPline (ename)

(entmake
 (mapcar
  '(lambda (x)
   (if
    (and
     (equal (car x) 42)
     (not (equal (cdr x) 0.0 0.00001))
    )
    (cons 42 0.0)
    x
   )
  )
  (entget ename)
 )
)
)

[Jeff_M]

Try THIS LINK that has both a VBA and Lisp solution.

Tim, although technically correct, the OP asked about replacing the arcs with short line segments.

HTH,
Jeff

[T.Willey]

Good catch Jeff. I guess it's the civil background that you have, and I don't.

[tjh2]

Sorry I didn't reply sooner.
I appreciate your help.

[09silverado]

convert them to ldt contours, it will ruin all of your nice curved lines just the way you want then you can explode them all at once back to a polyline.

i hate ldt concept of contouring just for that reason, besides the huge file sizes.