ZZB-坐标标注
;**********************************************************************
(defun c:zb()
(setq p (getpoint "\n Point:"))
(setq x (car p) y (cadr p))
(setq p1 (getpoint "\n Point:")
p2 (getpoint "\n Point:"))
(SETQ Y1 (CADR P1))
(setq x1 (car p1))
(setq x2 (car p2) y2 (cadr p2))
(if (< x2 (car p1)) (setq x2 (- x1 400))
(setq x2 (+ x1 400)))
(setq p2 (list x2 y1 ))
(command "line" p p1 p2 "")
(if (> x2 x1) (setq x2 x1)
(setq x2 (- x2 0.1)))
(setq p3 (list x2 (+ y1 25.0))
p4 (list x2 (- y1 75.0)))
(setq x0 (rtos x 2 3)
y0 (rtos y 2 3))
(setq xx (strcat "Y" x0)
YY (STRCAT "X" y0))
(COMMAND "TEXT" P3 45 0 YY)
(COMMAND "TEXT" P4 45 0 XX) ; (COMMAND "TEXT" P3 45 90 YY) ; (COMMAND "TEXT" P4 45 90 XX)
(princ)
)
;**********************************************************************
本文档为【ZZB-坐标标注】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。