0 Members and 1 Guest are viewing this topic.
(defun c:REPLs (/ ENT1 BL1 bl2 OLD ODNM)(command "undo" "begin") (prompt "\nSelect Replacement Block: ") (setq bl2 (cdr (assoc 2 (entget (car (entsel)))))) (prompt "Select blocks to replace: ") (setq ENT1 (ssget)) (setq N (sslength ENT1)) (setq I 0) (repeat N (setq BL1 (entget (ssname ENT1 I))) (setq NWNM (cons 2 bl2)) (setq OLD (assoc 2 BL1)) (setq ODNM (cdr OLD)) (entmod (subst NWNM OLD BL1)) (setq I (1+ I)) )(command "undo" "end") (princ))