- (defun c:ml(/ ml_id dd)
- (setvar "cmdecho" 0)
- (command "undo" "be")
- (setq ml_id (load_dialog "ml"))
- (if(< ml_id 0) (exit))
- (if(not (new_dialog "ml" ml_id)) (exit))
- (load "dor")(action_tile "ab1" "(done_dialog 1)")
- (setq dd (start_dialog))
- (unload_dialog ml_id)
- (cond
- ((= dd 1)(c:dor))
- )
- (command "undo" "e")
- (princ)
- )
怎么把它改了不用对话框,直接打开 |