(defun dd3(x)
(if (= x "-0.000")(setq x (substr x 2 4)))
)
(defun dd2()
(setq a1 (* (nth 1 p1) sc1) b1 (* (nth 0 p1) sc1))
(setq x1 (-(+ x0 (* (- a1 a0)(cos q0)))(* (- b1 b0)(sin q0))))
(setq y1 (+(+ y0 (* (- b1 b0)(cos q0)))(* (- a1 a0)(sin q0))))
(setq k3a (rtos x1 2 3) k4a (rtos y1 2 3))(dd3 k3a)(dd3 k4a)
(setq k3a (strcat ";X=" k3a))
(setq k4a (strcat ";Y=" k4a))
)
(defun dd1()
(if (or (= a0 nil)(= b0 nil)(= x0 nil)(= y0 nil)(= q0 nil))
(progn
(setq x0 (getreal "\n输入测量坐标X0=? "))
(setq y0 (getreal "\n输入测量坐标Y0=? "))
(setq a0 (getreal "\n输入建筑坐标A0=? "))
(setq b0 (getreal "\n输入建筑坐标B0=? "))
(setq q0 (getangle "\n输入坐标夹角Q0=? "))
))
(dd2)
(setq p3 (polar p3 k2 30))
(setq k3 (strcat k3 k3a))
(setq k4 (strcat k4 k4a))
)
(defun C:A013b()
(setvar "dimzin" 0)
(setq p1 (getpoint "\n输入开始点: ") p1 (osnap p1 "int"))
(setq p2 (getpoint p1 "\n输入第二点: "))
(setq k1 (getangle p2 "\n输入横线方向: "))
(setq k5 "N") ;(getstring "\n是否要绝对坐标[y/n]? "))
(if (= sca nil)(setq sca (getint "\n输入总图比例=? ")))
(setq sc1 (/ sca 1000.0))
(if (or (<= k1 (* 0.5 pi)) (> k1 (* 1.5 pi)))
(setq k2 0)(setq k2 pi)
)
(setq p3 (polar p2 k2 15))
(setq k3 (rtos (* sc1 (nth 1 p1)) 2 2))(dd3 k3)
(setq k4 (rtos (* sc1 (nth 0 p1)) 2 2))(dd3 k4)
(setq k3 (strcat "Y=" k3) k4 (strcat "X=" k4))
(if (or (= k5 "Y")(= k5 "y"))(dd1))
(setq p4 (polar p3 (* 0.5 pi) 0.5))
(command "pline" p1 "w" "0" "0" p2 p3 "")
(if (= k2 0)
(progn
(command "text" "r" p4 "3.0" "0" k3)
(command "text" "r" "@0,-3" "3.0" "0" k4)
)
(progn
(command "text" p4 "3.0" "0" k3)
(command "text" "@0,-3" "3.0" "0" k4)
)
)
)

楼上正解

越来越多的好资料!