Ik wil met elk van de punten van een polyline of lwpolyline iets doen, maar ik krijg deze niet gedistilleerd ?
waar zitten ze verstopt ? of weet iemand een stukje werkende code staan ?
mvg,
het knoeiende blondje ;-(
ik heb het kunnen oplossen met onderstaande code (met dank aan hofcad)
wel jammer dat er geen uitleg bijstaat om te doorgronden wat het doet...
(defun dxf (code ent) (cdr (assoc code (entget ent))))
(defun @vert (e v / name en ev i vl zn)
(setq name (dxf 0 e))
(if (= name "POLYLINE")
(progn
(setq en e)
(repeat v (setq en (entnext en)))
(setq p! (cdr (assoc 10 (entget en))))
)
)
(if (= name "LWPOLYLINE")
(progn
(setq ev (entget e) i 0 zn (cdr (assoc 38 ev)) vl (list '(0 0 0)))
(while (/= (nth i ev) nil)
(if (= (car (nth i ev)) 10)
(setq vl (append vl (list (list 10 (cadr (nth i ev)) (caddr (nth i ev)) zn))))
)
(setq i (1+ i))
)
(setq p! (cdr (nth v vl)))
)
)
(setq p! p!)
)