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

總結

以上是生活随笔為你收集整理的cad零点坐标标注lisp_CAD_XY坐标标注AUTO_LISP程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。