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

abtjy · 发表于 2009-1-10 19:02:00

请教各位大侠，我输入命令后点击一个块，再点击另一个块，自动提取第一个块现在的比例参数给予第二个块，使两个比例参数变成一样，谢谢!

liu_kunlun · 发表于 2009-1-11 17:31:00

(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)
)

1cookie76 · 发表于 2009-1-11 18:41:00

abtjy · 发表于 2009-1-12 18:48:00

谢谢liu_kunlun楼主

jialiang168 · 发表于 2010-7-4 22:20:00

謝謝liu_kunlun樓主。正好我也用得上。

zhuoxiaoxin · 发表于 2010-7-5 12:24:00

二楼的程序有点跟以前zzXXQQ的写过的程序雷同哦

millermin · 发表于 2012-6-6 06:15:14

如果这个块里有文字，文字不变化，如何处理？

magicheno · 发表于 2022-3-19 19:55:35

学习了~~~~~

账号		自动登录	找回密码
密码			注册