AutoCad Lisp Development

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"))))


(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)







Habilidades: CAD/CAM

Ver más: work in autocad, simple 3d cad, robert half, princ, ENT, c# autocad, autolisp, autocad work , autocad to 3d, autocad cad/cam, autocad 2, autocad & 3d, cad work autocad, cad lisp, work autocad work, polyline, autocad cad cam, Autocad 2012, simple ent, CAD development, autolisp need, cad autolisp, autolisp autocad, simple autocad, cad cam work

Información del empleador:
( 4 comentarios ) United States

ID de proyecto: #2739148

2 los freelancers están ofertando un promedio de $36 para este trabajo.


See private message.

$20.4 USD en 1 día
(1 comentario)

See private message.

$51 USD en 1 día
(2 comentarios)