[求助]计划按对话框……知为什么却没反应了。(已解决)

Saging

2. (defun show_dialog()
3.   (setq f_id (open "d:/tmp.dcl" "w"))
4.   (write-line "  mplot:dialog{" f_id)
5.   (write-line "  label="测试";" f_id)
6.   (write-line "   :button{" f_id)
7.   (write-line "    label="确定";" f_id)
8.   (write-line "    key="OK";" f_id)
9.   (write-line "    action="(OK_Click)";" f_id)
10.   (write-line "    is_default=true;" f_id)
11.   (write-line "    width=8;" f_id)
12.   (write-line "    fixed_width=true;" f_id)
13.   (write-line "  }}" f_id)
14.   (close f_id)
15.   
16.   (setq dlg_id (load_dialog "d:/plotdialog.dcl"))
17.   (new_dialog "mplot" dlg_id)
18.   (start_dialog)
19.   )
20. (defun OK_click()
21.   (command "-style" "mystyle" "仿宋_GB2312" "" "" "" "" "" )
22.   )

(defun show_dialog()   (setq f_id (open "d:/tmp.dcl" "w"))   (write-line "  mplot:dialog{" f_id)   (write-line "  label="测试";" f_id)   (write-line "   :button{" f_id)   (write-line "    label="确定";" f_id)   (write-line "    key="OK";" f_id)   (write-line "    action="(OK_Click)";" f_id)   (write-line "    is_default=true;" f_id)   (write-line "    width=8;" f_id)   (write-line "    fixed_width=true;" f_id)   (write-line "  }}" f_id)   (close f_id)      (setq dlg_id (load_dialog "d:/plotdialog.dcl"))   (new_dialog "mplot" dlg_id)   (start_dialog)   ) (defun OK_click()   (command "-style" "mystyle" "仿宋_GB2312" "" "" "" "" "" )   )

请哪位高手看看，为什么这个一个[确定]CAD就死了。我用的是CAD2007

xshrimp

运行dcl时不能执行command命令

Saging

谢谢，解决了。