[编程交流] 从cui宏移动到l

^C^CTEXTSIZE;2;^C^C_UnIsolateObjects;^C^CDIMLFAC;1;^C^C_model;^C^Cloman;^C^C_.MSPACE;^C^CCVPORT;4;^C^CZ;O;P;;_IsolateObjects;P;;^C^C_.PSPACE;_SBOMCUT;A;403,267;P;;^C^C

(defun c:automaticbracket ()
               (command"textsize""2")
               (command"_UnIsolateObjects")
               (command"DIMLFAC""1")
               (command"_model")
               (command"select")
               (while (> (getvar "CMDACTIVE") 0) (command pause))
               (c:loman)
               (command"_.MSPACE")
               (command "CVPORT""4")
               (command "_ZOOM""O""P""")
               (command "IsolateObjects""p""")
               (command "_.PSPACE")
               (c:sbomcut "")
)

(defun C:test ()
(setvar 'textsize 2) ;; ^C^CTEXTSIZE;2;
(command ".UnIsolateObjects") ;;^C^C_UnIsolateObjects;
(setvar 'dimlfac 1) ;; ^C^CDIMLFAC;1;
(if (not (eq (getvar 'ctab) "Model")) (command "_.model")) ;; ^C^C_model;
(command "select" ) ;; selection to be precess by zoom and isolate
(while (> (getvar "CMDACTIVE") 0) (command pause)) 
(C:loman) ;; ^C^Cloman; 
(command "_.mspace") ;;^C^C_.MSPACE;
(setvar 'cvport 4) ;; ^C^CCVPORT;4; 
(command "_.zoom" "_o" "_p" "") ;; ^C^CZ;O;P;;
(command "_.isolateobjects" "_p" "") ;; _IsolateObjects;P;;
(command "_.pspace") ;; ^C^C_.PSPACE;  
(C:SBOMCUT) ;; _SBOMCUT;A;403,267;P;;^C^C
[color="red"](while (> (getvar "CMDACTIVE") 0) (command pause)) [/color]
(princ)
)