cad零点坐标标注lisp_CAD_XY坐标标注AUTO_LISP程序

CAD X,Y

坐标坐标标注

AUTO LISP

程序

;;

(DEFUN IDPT(/ p px py pxx pyy)

(DEFUN IDPT ()

(SETQ X T)

(WHILE X

(SETV

AR "OSMODE" (+ 1 32 512))

(INITGET 1)

(SETQ PP (GETPOINT "\nPLEASE PICK THE POINT:"))

(SETV

AR "OSMODE" 0)

(SETQ P (OSNAP PP "INT,END,CEN"))

(IF

(= P NIL)

(PROMPT "\nINV

ALID 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)

L

Y (STRLEN PY)

)

(IF (> LX L

Y)

(PROGN

(SETQ W_NU (- LX L

Y))

(WHILE (> W_NU 0)

(SETQ PY (STRCAT " " PY))

(SETQ W_NU (- W_NU 1))