(defun c:ee(/ V1 V2) (setvar "cmdecho" 0)(command "undo" "be") (princ "引线标注:") (setq v1 (getvar "osmode")) (setvar "osmode" 515) ;最近点,端点,中点 (setvar "orthomode" 1) ;正交
;(command "dim" "l" pause) ;引线标注 pause 线中点标注 (command "qleader" "a1" "a2" "" "" "1111" "") ;我想用这个引线标注,目的想输入变量值 ,???????????? (setvar "OSMODE" v1) (command "undo" "e")(setvar "cmdecho" 1) (princ) )
|