I need a very simple lisp that will delete every other vertex/point in a 3d polyline.
## Deliverables
I need this autolisp refined to work:
;; Robert Betcher 05/05/2012
;; Delete half of vertex points in polyline
(defun c:3dpolydel ()
(prompt "\nSelect 3D polylines to simplify.")
;; select only 3D plines
(setq ss (ssget '((0 . "POLYLINE"))))
(progn
(repeat (setq i (sslength ss))
(setq cntr 1)
(setq ent (ssname ss (setq i (1- i))))
(while (setq ent (entnext ent))
(setq cntr(+ cntr 1))
(if (equal (rem cntr 2) 0)
(entdel ent)
)
)
)
)
(princ)
)