jianmint 发表于 2008-4-19 16:24:00

求程序

求标注弧长程序

ljttjl 发表于 2008-4-20 20:48:00

我这有这个程序，联系：ljttjl @ tom.com

phoenixdjq 发表于 2008-4-21 22:07:00

<p>好像2006就有弧长标注命令了，我用2004</p><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>

lichenxui 发表于 2011-12-10 23:06:29

谢了下来学习学习
页: [1]
查看完整版本: 求程序