de.lsp-在圖上標上座標(xE,yN)
! K+ y0 F1 I& q; }- s( \6 d- u$ v! \3 g
(defun c:de ()
' V1 e# o |1 r- }, }: N0 Q (setvar "cmdecho" 0)) X) c% v4 k2 C; k! Y
(command "osnap" "end"): X! j4 T3 _$ _9 T% ]) X: P) j6 N
(setq p1 (getpoint "Select line near endpoint"))5 p6 h- f5 ]6 |9 {
(setq p2 (getpoint p1 "Select cen of Leader"))
% E# K% G5 e; w' b2 S (setq px (rtos (nth 0 p1 ) 2 4))
- Y T* J: d& b5 U (setq py (rtos (nth 1 p1 ) 2 4))
. M$ X. U# O: {6 z0 P, m% a" V2 ^ (setq txt (strcat "x " px " , " "y " py))( @5 F# s9 F3 `8 u; a+ K
(command "dim1" "leader" p1 p2 "" txt)5 Q" h* s3 c2 P4 r# g6 M
(setvar "cmdecho" 1)
- D# A8 D. J3 g% N: t) |
发表于 2010-8-17 19:25
下不来