请教刷新块比例的lisp，谢谢!
 

请教刷新块比例的lisp，谢谢!
www.dimcax.com
请教刷新块比例的lisp，谢谢! 请教各位大侠，我输入命令后点击一个块，再点击另一个块，自动提取第一个块现在的比例参数给予第二个块，使两个比例参数变成一样，谢谢!
d
(defun c:tt ( / e1 ss e)
(cond
( (null (setq e1 (car (entsel "选择样板块:")))))
( (/= "insert" (cdr (assoc 0 (setq e1 (entget e1))))) )
( t
(while (setq ss (ssget '((0 . "insert"))))
(setq n -1)
(repeat (sslength ss)
(setq e (entget (ssname ss (setq n (+ n 1))))
e (subst (assoc 41 e1) (assoc 41 e) e)
e (subst (assoc 42 e1) (assoc 42 e) e)
e (subst (assoc 43 e1) (assoc 43 e) e)
)
(entmod e)
)
) )
)
(princ)
)
d
好
d
谢谢liu_kunlun楼主
d