lisp调用dcl单选框_晓东CAD家园-论坛-A/VLISP-[求助]：急求调用DCL对话框的解决方法-各位DX: 小弟最近编了个程序，包括一个DCL文件和一个调用DCL的lsp文件，...

编译后是可以使用的!

这么简单的问题,你随便下一个.vlx 都在带对话框的,

你编译的时候要把对话框加进来

[PHP]

(defun c:test(/)

(setq dcl_id (load_dialog "test"))

(setq flag 3)

(while (> flag 2)

(if        (not (new_dialog "test" dcl_id))

(exit)

)

(if        (null wjm_focus_test)

(progn

(set_tile "wjm_focus_test" "1")

(setq wjm_focus_test "1")

)

(set_tile "wjm_focus_test" wjm_focus_test)

)

(action_tile "wjm_paxis_layer_button" "(done_dialog 3)")

(action_tile "accept" "(done_dialog 1)")

(action_tile "cancel" "(done_dialog 0)")

(setq flag (start_dialog))

(cond

((= flag 0)(alert "cancel"))

((= flag 1)(alert "accept"))

((= flag 3);_select paxis

(alert