726613 发表于 2010-6-20 11:45:00

[求助]修改程序

<font face="Verdana">
<p>&nbsp;</p>
<p><font face="Verdana">将下面程序改成：查找指定圆数量并修改圆直径功能的程序</font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>以下程序功能是：计算圆数量</p>
<p><br/>(defun c:db (/ st a1 a2 a3 a4 a5&nbsp; )<br/>&nbsp; (setq st (car (entsel)))<br/>&nbsp; (if (/= st nil)<br/>&nbsp;&nbsp;&nbsp; (progn (setq a1 (entget st)<br/>&nbsp;&nbsp; a2 (cdr (assoc 40 a1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a3 (cdr (assoc 8 a1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a4 (ssget "x" (list (cons 8 a3)(cons 40 a2)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a5 (sslength a4)<br/>&nbsp;&nbsp; a2 (* a2 2)<br/>&nbsp;&nbsp; a2 (rtos a2)&nbsp;&nbsp;<br/>&nbsp;&nbsp; a5 (itoa a5)<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (princ (strcat "\n*** 直径:" a2&nbsp; "&nbsp; 总数:" a5 " ***"))<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (princ)<br/>&nbsp; )</p>
<p></font>&nbsp;</p>

ZZXXQQ 发表于 2010-6-20 18:49:00

<p>要怎么修改？</p>

726613 发表于 2010-6-25 18:02:00

要实现：查找指定圆数量并修改圆直径功能

ZZXXQQ 发表于 2010-6-25 20:11:00

是一个一个圆提示进行修改吗，还是所有圆都改成一个直径？
页: [1]
查看完整版本: [求助]修改程序