求教，关于DCL按键驱动。有没有更简洁的实现方式?
本帖最后由 mikary 于 2016-1-14 19:23 编辑新手一枚，想编个简单的工具集合，自己看范例瞎折腾了一天，才悲剧的承认action_tile后面确实不能直接执行命令。
下面这个程序现在能正确运行了，请问有没有更简洁的写法？
总觉得先赋值后判断这种方式有点绕~
=================================================
(defun C:TT()
(setq DCL_ID (load_dialog "D:\\Atool.dcl"))
(NEW_DIALOG "atool" DCL_ID)
(action_tile "AR" "(done_dialog 11)")
(action_tile "ARR" "(done_dialog 12)")
(action_tile "AW" "(done_dialog 13)")
(setq tmp (start_dialog))
(UNLOAD_DIALOG DCL_ID)
(cond ((= tmp 11) (c:ar))
((= tmp 12) (c:arr))
((= tmp 13) (c:aw))
)
)
==================================================
;; 需要e派工具箱(XCAD)的支持，仅供参考
(defun c:tt ()(xyp-Dcl-Fast0 "Atool" '("ar(ar)" "arr(arr)" "aw(aw)"))(princ))
都这样，没有简洁。若果经常增减插件，网上搜自定义门面板，有好几个源码，把你的插件名、命令名填上去就行。 感谢二位的解答....明白了
页:
[1]