de.lsp-在圖上標上座標(xE,yN)) m5 j2 y& w: j' L$ \
: v1 v' l, V2 P(defun c:de ()
& P" N7 X5 w3 L v (setvar "cmdecho" 0)) E6 G+ b" ]+ D# j
(command "osnap" "end")
: o: ?# k8 Q4 m% r7 ~$ W! ~ (setq p1 (getpoint "Select line near endpoint")). s# ]9 ]- H' u4 ?/ V4 L$ k! \
(setq p2 (getpoint p1 "Select cen of Leader"))
# F+ Y& _2 w8 b; {% ] (setq px (rtos (nth 0 p1 ) 2 4))
9 H3 n& T7 o/ `, P# | (setq py (rtos (nth 1 p1 ) 2 4))0 o; W% z3 f6 k
(setq txt (strcat "x " px " , " "y " py))7 O6 a7 ]+ o0 b" a1 o6 ?% \
(command "dim1" "leader" p1 p2 "" txt)$ h/ {% ?5 L5 J7 j8 g7 W4 v% l2 O
(setvar "cmdecho" 1)
7 T8 W# ^3 n. W3 |. F) |