CAD X,Y 坐标坐标标注 AUTO LISP 程序 ;; (DEFUN IDPT(/ p p x p y p x x p y y ) (DEFUN IDPT () (SETQ X T) (WHILE X (SETVAR "OSMODE" (+ 1 32 512)) (INITGET 1) (SETQ PP (GETPOINT "\n PLEASE PICK THE POINT:")) (SETVAR "OSMODE" 0) (SETQ P (OSNAP PP "INT,END,CEN")) (IF (= P NIL) (PROMPT "\n INVALID ...

时间:2025-01-28 01:06栏目:行业资料