de.lsp-在圖上標上座標(xE,yN)4 g# y+ j6 f. j: e9 \
* k# p) ?1 a. M& S4 O(defun c:de () R+ K" z/ W. e/ N) I' A
(setvar "cmdecho" 0)4 P# D ~ `/ _' H7 R0 q5 F, r
(command "osnap" "end")1 Y& q. ~) Y' \' H
(setq p1 (getpoint "Select line near endpoint"))! z5 K! m7 Z/ N2 [# {* _
(setq p2 (getpoint p1 "Select cen of Leader"))7 O: g6 V$ @8 u2 @; t# S' @2 G* m, m. f
(setq px (rtos (nth 0 p1 ) 2 4))2 q x% g, y1 W/ M2 _9 i' f
(setq py (rtos (nth 1 p1 ) 2 4))6 c# d: q7 _1 P
(setq txt (strcat "x " px " , " "y " py)): [& r# i9 c) J3 q
(command "dim1" "leader" p1 p2 "" txt)
- q# _8 `% V- P$ G (setvar "cmdecho" 1)/ r9 h. M0 s8 u. {# l, I
) |
发表于 2010-8-17 19:25
下不来