3527188 发表于 2008-11-15 14:41:00

[求助]有个难题

(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)
)
怎么把它改了不用对话框，直接打开

ZZXXQQ 发表于 2008-11-15 15:07:00

<p><br/><br/>(defun c:ml(/ ml_id dd)<br/>&nbsp;(setvar "cmdecho" 0)<br/>&nbsp;(command "undo" "be")<br/>&nbsp;(load "dor")<br/>&nbsp;(c:dor)<br/>&nbsp;(command "undo" "e")<br/>&nbsp;(princ)<br/>)<br/><br/></p>

3527188 发表于 2008-11-16 00:05:00

<p>呵呵~~版主要有难题才解决</p><p>虽然不是我想要的答案但我现在比刚才明白多了一些</p><p>谢谢!!</p>
页: [1]
查看完整版本: [求助]有个难题