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

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

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

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

(defun c:tt ( / e1 ss e)<br/>&nbsp; (cond<br/>&nbsp;&nbsp; (&nbsp;&nbsp; (null (setq e1 (car (entsel "选择样板块:")))))<br/>&nbsp;&nbsp; (&nbsp;&nbsp; (/= "INSERT" (cdr (assoc 0 (setq e1 (entget e1))))) )<br/>&nbsp;&nbsp; ( t<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (setq ss (ssget '((0 . "INSERT"))))<br/>&nbsp;&nbsp;&nbsp; (setq n -1)<br/>&nbsp;&nbsp;&nbsp; (repeat (sslength ss)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e (entget (ssname&nbsp; ss (setq n (+ n 1))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e (subst (assoc 41 e1) (assoc 41 e) e)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e (subst (assoc 42 e1) (assoc 42 e) e)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e (subst (assoc 43 e1) (assoc 43 e) e)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod e)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(princ)<br/>)

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

好

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

<p>谢谢<strong><font color="#61b713" face="Verdana">liu_kunlun楼主</font></strong></p>

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

<p>謝謝<font face="Verdana" color="#61b713"><b>liu_kunlun</b></font>樓主。正好我也用得上。</p>
<p></p>

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

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

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

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

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

学习了~~~~~
页: [1]
查看完整版本: 请教刷新块比例的LISP，谢谢!