Leaderboard

Hi BIGAL, I don't know how to fix this code. Is easy to find getpropertyvalue in notepad , but to replace with what? In GstarCAD lisp some commands is missing Can you fix this code? Thanks

Another for fun .. does not keep polyline widths.. (defun c:foo (/ n pcs s) (cond ((setq s (ssget ":L" '((0 . "LWPOLYLINE")))) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (setq n (length (setq pcs (vlax-invoke (vlax-ename->vla-object e) 'explode)))) (foreach pc pcs (if (= 0 (rem (setq n (1- n)) 2)) (vla-delete pc) (vla-put-color pc 3) ) ) (entdel e) ) ) ) (princ) )

This is exactly what I was after thank you so much.

Update the ssget with the block name should do the trick (if (setq sset (ssget (list (cons 0 "INSERT") (cons 2 "BLOCK NAME") (cons 66 1))))