cad零点坐标标注lisp_CAD_XY坐标标注AUTO_LISP程序
生活随笔
收集整理的這篇文章主要介紹了
cad零点坐标标注lisp_CAD_XY坐标标注AUTO_LISP程序
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
CAD?X,Y
坐標(biāo)坐標(biāo)標(biāo)注
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))
總結(jié)
以上是生活随笔為你收集整理的cad零点坐标标注lisp_CAD_XY坐标标注AUTO_LISP程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： 制作启动u盘总结 centos6/cen
- 下一篇： 重拾年关趣事一二