rongrong 发表于 2007-3-30 19:41:00

[求助]标注问题？

请教：如何标注圆弧的长度？谢谢！

phoenixdjq 发表于 2007-3-30 21:47:00

<p>给你一个从网上下载的程序</p><p>(defun c:yh(/ en pt len_data old_hc l new_hc len_data)<br/>&nbsp; (setq en (entsel "选弧: "))<br/>&nbsp; (setq pt (getpoint "定点: "))<br/>&nbsp; (command "dimangular" en pt) <br/>&nbsp; (setq len_data (entget (entlast)))<br/>&nbsp; (setq old_hc (assoc 1 len_data))<br/>&nbsp; (command "lengthen" (car en) "")<br/>&nbsp; (setq l (getvar "perimeter"))&nbsp; <br/>&nbsp; (setq new_hc (cons 1 (rtos l 2 2)))<br/>&nbsp; (setq len_data (subst new_hc old_hc len_data))<br/>&nbsp; (entmod len_data)<br/>&nbsp; ) <br/></p>

andyxie249 发表于 2007-3-31 00:21:00

<p>"标注"工具栏第三个</p><p></p>

rongrong 发表于 2007-4-1 19:40:00

<p>谢谢指点！</p>
页: [1]
查看完整版本: [求助]标注问题？