pickle_cad 发表于 2009-11-27 19:07:00

[求助]如何加数量对圆进行标注

本帖最后由 作者 于 2009-11-28 13:17:38 编辑 <br /><br /> <p>求助各位大侠:如何编写对图形中的圆进行数量统计并分类各标注一个尺寸的程序，如附件中的图，谢谢！</p>

pickle_cad 发表于 2009-11-28 13:16:00

<p>怎么没有人帮忙呢,请各位帮帮新手呀。先谢了!</p>

ljttjl 发表于 2009-11-28 16:28:00

本帖最后由 ljttjl 于 2011-10-26 23:40 编辑 <br /><br /><P><A href="http://ljttjl.ys168.com/">http://ljttjl.ys168.com</A>&nbsp; <A id=F567925_20091103零件图自动标注尺寸 class=actuator href="javascript:">20091103零件图自动标注尺寸</A> 即可实现上述要求。</P>
<P></P>

pickle_cad 发表于 2009-11-28 18:37:00

<p>谢谢,ljttjl</p>

龙龙仔 发表于 2009-11-30 08:11:00

<p>;簡單的寫法如下</p><p>(defun C:TT (/ ENT)<br/>&nbsp; (setq ENT (entsel "\n選取一個圓: "))<br/>&nbsp; (command<br/>&nbsp;&nbsp;&nbsp; "_.dimdiameter"<br/>&nbsp;&nbsp;&nbsp; (cadr ENT)<br/>&nbsp;&nbsp;&nbsp; "t"<br/>&nbsp;&nbsp;&nbsp; (strcat<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (rtos<br/>&nbsp;(sslength<br/>&nbsp;&nbsp; (ssget "X"<br/>&nbsp;&nbsp; (list '(0 . "circle") (assoc 40 (entget (car ENT))))<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "-&lt;&gt;"<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; PAUSE<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)</p>

pickle_cad 发表于 2009-11-30 12:08:00

<p>现在需要框选后对圆分类并各自标注，且重复圆自动删除。还请赐教。</p>

ljttjl 发表于 2011-10-26 23:39:52

本帖最后由 ljttjl 于 2011-10-26 23:41 编辑

重复圆的删除，见网盘http://ljttjl.ys168.com    2009-2试用程序及演示      20091111删除完全重叠图元对象目录下载scty.vlx

页: [1]
查看完整版本: [求助]如何加数量对圆进行标注