0 Members and 1 Guest are viewing this topic.
(setq p1 (getpoint)) (while (and (setq p2 (cadr (setq ff (grread t 4 4)))) (listp p2) (/= (car ff) 3) )(setq _*BlocksSelected (ssget "_C" (list (car p1)(cadr p1)) (list (car p2)(cadr p2)) (list '(0 . "insert") (cons 2 _*BlockName) ) )))