这样的DCL控制该怎么做

ZZXXQQ

在对话框指令上加while循环，只有选择确定和取消才能结束循环。

Saging

你的ALL按钮有没有IS_CANCEL或IS_DEFUALT？如果没有的话不应该会退出。

nonsmall

这就是先学跑 摔倒了才回头学走

Saging

测试过，没有一点问题，运行得很正常。

2. (defun ta()
3.   (setq dia_id (load_dialog "k:\\CAD程序设计\\Auto CAD VBA\\tmp1.dcl"))
4.   (if (/= dia_id nil)
5.     (setq dia_id (new_dialog "test" dia_id)))
6.   (if (/= dia_id nil)
7.     (progn
8.    (action_tile "all" "(Sel_All)")
9.    (action_tile "all0" "(Sel_All0)")
10.    (start_dialog)
11.     )
12.     )
13.   )
14. (defun Sel_All()
15.   (foreach a '("inspt" "intpt"  "pt" "plcen" "plp" "linep" "arcp" "cen")
16.     (set_tile a "1"))
17.   )
18. (defun Sel_All0()
19.   (foreach a '("inspt" "intpt"  "pt" "plcen" "plp" "linep" "arcp" "cen")
20.     (set_tile a "0"))
21.   )

(defun ta()   (setq dia_id (load_dialog "k:\\CAD程序设计\\Auto CAD VBA\\tmp1.dcl"))   (if (/= dia_id nil)     (setq dia_id (new_dialog "test" dia_id)))   (if (/= dia_id nil)     (progn    (action_tile "all" "(Sel_All)")    (action_tile "all0" "(Sel_All0)")    (start_dialog)     )     )   ) (defun Sel_All()   (foreach a '("inspt" "intpt"  "pt" "plcen" "plp" "linep" "arcp" "cen")     (set_tile a "1"))   ) (defun Sel_All0()   (foreach a '("inspt" "intpt"  "pt" "plcen" "plp" "linep" "arcp" "cen")     (set_tile a "0"))   )

luowy

不管怎么看，实现的方法不难

xyh

selall和selall0中的关键字与dcl中的关键字不统一,导致异常结束

jaminth

nonsmall发表于2009-5-25 15:32:00这就是先学跑 摔倒了才回头学走

完全同意猫兄的观点！帮你写了一下，我自己测试成功了！