de.lsp-在圖上標上座標(xE,yN)
2 Q* T* i1 H" I7 ~" {0 o
4 ]% G( P% C3 d(defun c:de ()) T9 H7 N, p( X$ }
(setvar "cmdecho" 0)
( r3 z* k C6 C (command "osnap" "end")
8 W \" F' ? s3 m* J7 h1 l5 l+ { (setq p1 (getpoint "Select line near endpoint"))
# u, u% h" M6 r (setq p2 (getpoint p1 "Select cen of Leader"))
0 t+ E3 ^/ l6 i. T9 e4 p0 } (setq px (rtos (nth 0 p1 ) 2 4))
- X7 M$ o& j9 ] (setq py (rtos (nth 1 p1 ) 2 4))9 `! U& j$ `. W- r7 j
(setq txt (strcat "x " px " , " "y " py))
- v$ F/ Q1 E5 {! X( U (command "dim1" "leader" p1 p2 "" txt)$ Y9 R' u' _9 Z4 Z
(setvar "cmdecho" 1)5 ~8 f/ f/ M5 f/ Y' D- ~$ `
) |
发表于 2010-8-17 19:25
下不来