Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 10/31/2023 in all areas

  1. mhy3sx
    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
    1 point
  2. ronjonp
    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
  3. Jamesclark64
    This is exactly what I was after thank you so much.
    1 point
  4. mhupp
    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
×
×
  • Create New...