ghl_729 发表于 2010-6-13 10:35:00

<p><font face="Verdana">;;;;;;;;;;;;;;;标注点的坐标;;;;;;;;;;;;;;;;;;;;;<br/>(defun c:xy3()<br/>&nbsp; (command "osnap" "nod,end,cen")<br/>&nbsp; (setq pt (getpoint "\n请选择一点："))<br/>&nbsp; (command "osnap" "off")</font></p>
<p><font face="Verdana">&nbsp; (setq pt1 (getpoint pt "\n请选择标注的位置："))<br/>&nbsp; (command "line" pt pt1 "")<br/>&nbsp; (setq pt2 (getpoint pt1 "\n请选择标注的方向："))</font></p>
<p><font face="Verdana">&nbsp; '(setq i (getreal "\n请输入字体高度："))<br/>&nbsp; (command "osnap" "off")<br/>&nbsp; (setq ang (angle pt1 pt2))<br/>&nbsp; '(setq pt2 (polar pt ang 0.5))<br/>&nbsp; (setq x (rtos (cadr pt) 2 3)) <br/>&nbsp; (setq y (rtos (car pt) 2 3))<br/>&nbsp; (setq c1 (+ ang 1.5707963))<br/>&nbsp; (setq c2 (- ang 1.5707963))<br/>&nbsp; (setq pt3 (polar pt1 c2 2.5))<br/>&nbsp; (setq pt4 (polar pt1 c1 0.5))</font></p>
<p><font face="Verdana">&nbsp; (setq a (strcat "X=" X))<br/>&nbsp; (setq b (strcat "Y=" Y))<br/>&nbsp; (setq le (- (* (strlen a) 2) 3))<br/>&nbsp; (setq jd (/ (* 180 ang) 3.1415926))<br/>&nbsp; (command "text" pt4 1.5 jd a)<br/>&nbsp; (command "text" pt3 1.5 jd b)<br/>&nbsp; <br/>&nbsp; (command "line" pt1 (polar pt1 ang le) "" )<br/>&nbsp; <br/>)<br/></font></p>

lsj123lsj123 发表于 2010-6-16 17:39:00

感谢楼主共享

liminnet 发表于 2010-6-29 14:00:00

xbswbxx 发表于 2010-7-7 20:00:00

这个程序比以前自己用的那个坐标标注程序强多了，谢谢

liminnet 发表于 2010-8-7 14:39:00

lty 发表于 2010-8-19 17:07:00

好   顶！！！！！！！

terry_uhc 发表于 2011-1-29 09:26:56

第一次来,哈不错!

terry_uhc 发表于 2011-1-29 09:27:42

值得向各位学习了!多多指教!谢谢!

sg001833 发表于 2012-4-11 12:49:53

下载一个看看

qhh6066 发表于 2013-12-15 15:38:50

能分享源码就好了！！
页: 1 2 3 [4] 5
查看完整版本: [原创]引线标注X和Y坐标值的程序