Leaderboard
Popular Content
Showing content with the highest reputation on 10/31/2023 in all areas
-
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? Thanks1 point
-
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) )1 point
-
This is exactly what I was after thank you so much.1 point
-
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))))1 point