[求助]：2000中坐标标注时,怎么同时标注X.Y坐标？

Ramones

我只能标注X坐标，不知道能不能标注x在上，y在下的形式，
还有，能不能同时标注出多点坐标？

nore

晓东工具里有同时标注xy坐标的
你说的同时标注多点是什么意思？都要一个点一个点去点的啊，不然标的是什么都不知道了

mann_ygw

给你一个坐标标注程序
(defun c:test ()
(prompt "\n输入字高：<") (princ (getvar "textsize")) (princ ">")
(setq 输入字高 (getreal))
(if (not 输入字高)
(setq 字高 (getvar "textsize"))
(setq 字高 输入字高)
)
(setq old_dimzin (getvar "dimzin"))
(setvar "dimzin" 1)
(setq 精度 3)
(setvar "cmdecho" 0)
(标注)
)

(defun 标注()
(setq 标注点 (getpoint "\n点取标注点:"))
(if 标注点 (继续) (退出))
)

(defun 继续()
(setq 绝对标注点 (trans 标注点 1 0))
(setq x_坐标值 (rtos (car 绝对标注点) 2 精度))
(setq y_坐标值 (rtos (nth 1 绝对标注点) 2 精度))



(setq 临时起点 (getpoint 标注点 "\n点取标注位置:"))
(setq 引线长度 (distance 标注点 临时起点))
(setq 临时角度 (atof (angtos (angle 标注点 临时起点 ) 0 3)))
(setq 标准角度 (cond ((<= 临时角度 15) 0)
((<= 临时角度 37.5) 30)
((<= 临时角度 52.5) 45)
((<= 临时角度 67.5) 60)
((<= 临时角度 105) 90)
((<= 临时角度 127.5) 120)
((<= 临时角度 141) 135)
((<= 临时角度 165) 150)
((<= 临时角度 195) 180)
((<= 临时角度 217.5) 210)
((<= 临时角度 232.5) 225)
((<= 临时角度 255) 240)
((<= 临时角度 285) 270)
((<= 临时角度 307.5) 300)
((<= 临时角度 322.5) 315)
((<= 临时角度 345) 330)
(0)
)
)


(setq 起点 (polar 标注点 (angtof (itoa 标准角度) 0) 引线长度))


(setq x_字符数 (strlen x_坐标值))
(setq y_字符数 (strlen y_坐标值))
(if (> x_字符数 y_字符数)
(setq 坐标字符数 x_字符数)
(setq 坐标字符数 y_字符数)
)
(setq 坐标字符长 (* 坐标字符数 字高))
(if (and (< 标准角度 270) (> 标准角度 90))
(setq 标注方向 180)
(setq 标注方向 0)
)

(if (= 标注方向 180)
(setq 终点 (list (- (car 起点) 坐标字符长) (nth 1 起点)))
(setq 终点 (list (+ (car 起点) 坐标字符长) (nth 1 起点)))
)


(if (= 标注方向 0) (setq 文字开始点 起点) (setq 文字开始点 终点))
(setq 起点_x (list (car 文字开始点)
(+ (nth 1 文字开始点) (/ 字高 3.5))))
(setq 起点_y (list (car 文字开始点)
(- (nth 1 文字开始点) 字高 (/ 字高 3.5))))
(setq 相差字符数 (abs(- x_字符数 y_字符数)))
(setq 补充空格数 "")
(repeat 相差字符数 (setq 补充空格数 (strcat 补充空格数 " ")))
(if (= 相差字符数 0)
(setq x_c (strcat "Y=" x_坐标值) y_c (strcat "X=" y_坐标值)))

(if (and (/= l 0) (> x_字符数 y_字符数))
(setq x_c (strcat "Y=" x_坐标值)
y_c (strcat "X=" 补充空格数 y_坐标值)))
(if (and (/= l 0) (< x_字符数 y_字符数))
(setq x_c (strcat "Y=" 补充空格数 x_坐标值)
y_c (strcat "X=" y_坐标值)))


(setq OLD_OSMODE (getvar "osmode"))
(setvar "osmode" 0)
(command "_.text" 起点_X 字高 "0" Y_C)
(setq T1 (entlast))
(setq LEN (textbox (list (assoc 1 (entget (entlast))))))
(setq LEN (- (car (nth 1 LEN)) (car (nth 0 LEN))))
(command "_.text" 起点_Y 字高 "0" X_C)
(setq T2 (entlast))
(setq LEN1 (textbox (list (assoc 1 (entget (entlast))))))
(setq LEN1 (- (car (nth 1 LEN1)) (car (nth 0 LEN1))))
(if (> LEN1 LEN)
(setq LEN LEN1)
)
(command "_.line"
标注点
起点
(setq PT (polar 起点 (angle 起点 终点) LEN))
""
)
(if (= 标注方向 180)
(command "_.move"
T1
T2
""
起点_X
(polar 起点_X PI (- (car 起点_X) (car PT)))
)
)
(setvar "osmode" OLD_OSMODE)
(标注)
)
(defun 退出()
(setvar "dimzin" old_dimzin)
(setvar "cmdecho" 1)
(princ)
)

xwbny

要同时标注很多点的，可以用他们的规划软件有这个功能

yahu39

小东工具中的标住能不能在2004下运行

myfreemind

最初由 Ramones 发布
[B]我只能标注X坐标，不知道能不能标注x在上，y在下的形式，
还有，能不能同时标注出多点坐标？ [/B]

你想怎么同时标注？说说你的思路！