CAD XY坐标标注AUTO LISP程序.doc

文档介绍：CAD X,Y坐标坐标标注AUTO LISP程序
;; (DEFUN IDPT(/ p px py pxx pyy)
(DEFUN IDPT ()
(SETQ X T)
(WHILE X
(SETVAR "OSMODE" (+ 1 32 512))
(INITGET 1)
(SETQ PP (GETPOINT "\nPLEASE PICK THE POINT:"))
(SETVAR "OSMODE" 0)
(SETQ P (OSNAP PP "INT,END,CEN"))
(IF (= P NIL)
(PROMPT "\nINVALID POINT, PICK !")
(SETQ X NIL)
)
)
(SETQ PXX (CAR P)
PYY (CADR P)
PX (RTOS PXX 2 PRE1)
PY (RTOS PYY 2 PRE1)
)
)
;;(DEFUN MAX_XY(WI PX PY / L PXPX PYPY)
(DEFUN MAX_XY ()
(SETQ KKK "X")
(SETQ LLL "Y")
(SETQ LX (STRLEN PX)
LY (STRLEN PY)
)
(IF (> LX LY)
(PROGN
(SETQ W_NU (- LX LY))
(WHILE (> W_NU 0)
(SETQ PY (STRCAT " " PY))
(SETQ W_NU (- W_NU 1))
)
)
)
(IF (< LX LY)
(PROGN
(SETQ W_NU (- LY LX))
(WHILE (> W_NU 0)
(SETQ PX (STRCAT " " PX))
(SETQ W_NU (- W_NU 1))
)
)
)
(SETQ PYPY (STRCAT KKK PY))
(SETQ PXPX (STRCAT LLL PX))
(SETQ PXL (STRLEN PXPX)
PYL (STRLEN PYPY)
MAXL (FLOAT (MAX PXL PYL))
L (* WI MAXL)
)
)
;;(DEFUN TEXT_P(/ W WX WY)
(DEFUN TEXT_P ()
(SETVAR "OSMODE" 0)
(INITGET 1)
(SETQ W (GETPOINT "\nINPUT X-Y TEXT POSITION:"))
(SETQ WX (CAR W))
(SETQ WY (CADR W))
)
;;(DEFUN DRLIN(CAL P W L / ALPW WE)
(DEFUN DRLIN ()
(SETQ AL01 (+ PI CAL))
(SETQ ALPW (ANGLE P W))
(SETQ AG-D (- ALPW CAL))
(IF (> AG-D 0)
(PROGN
(IF (AND (< AG-D (* PI )) (> AG-D (* PI 0)))
(SETQ WE (POLAR W CAL L)
BZ 1
)
)
(IF (AND (> AG-D (* PI )) (< AG-D (* PI )))
(SETQ WE (POLAR W AL01 L)
BZ 2
)
)
(IF (AND (> AG-D (* PI )) (< AG-D (* PI 2)))
(SETQ WE (POLAR W CAL L)
BZ 3
)
)
;>>>>>
)
(PROGN
;<<<<<
(IF (AND (> AG-D (* PI -)) (< AG-D (* PI 0)))
(SETQ WE (POLAR W CAL L)
BZ 1
)
)
(IF (AND (< AG-D (* PI -)) (> AG-D (* PI -)))
(SETQ WE (POLAR W AL01 L)
BZ 2
)
)
(IF (AND (< AG-D (* PI )) (> AG-D (* PI -2)))
(SETQ WE (POLAR W CAL L)
BZ 3
)
)
;>>>>>
)
)
(COMMAND "PLINE" P "W" "" W WE "")
)
;;(DEFUN DRCORD(AL01 ALPW H