[原创]引线标注X和Y坐标值的程序

ghl_729

;;;;;;;;;;;;;;;标注点的坐标;;;;;;;;;;;;;;;;;;;;;
(defun c:xy3()
  (command "osnap" "nod,end,cen")
  (setq pt (getpoint "\n请选择一点："))
  (command "osnap" "off")

  (setq pt1 (getpoint pt "\n请选择标注的位置："))
  (command "line" pt pt1 "")
  (setq pt2 (getpoint pt1 "\n请选择标注的方向："))

  '(setq i (getreal "\n请输入字体高度："))
  (command "osnap" "off")
  (setq ang (angle pt1 pt2))
  '(setq pt2 (polar pt ang 0.5))
  (setq x (rtos (cadr pt) 2 3))
  (setq y (rtos (car pt) 2 3))
  (setq c1 (+ ang 1.5707963))
  (setq c2 (- ang 1.5707963))
  (setq pt3 (polar pt1 c2 2.5))
  (setq pt4 (polar pt1 c1 0.5))

  (setq a (strcat "X=" X))
  (setq b (strcat "Y=" Y))
  (setq le (- (* (strlen a) 2) 3))
  (setq jd (/ (* 180 ang) 3.1415926))
  (command "text" pt4 1.5 jd a)
  (command "text" pt3 1.5 jd b)
 
  (command "line" pt1 (polar pt1 ang le) "" )
 
)

lsj123lsj123

感谢楼主共享

xbswbxx

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

lty

好     顶！！！！！！！

terry_uhc

第一次来,哈不错!

terry_uhc

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

sg001833

下载一个看看

qhh6066

能分享源码就好了！！