求教，关于DCL按键驱动。有没有更简洁的实现方式?

mikary · 发表于 2016-1-14 19:10

本帖最后由 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))
      )
)
==================================================

xyp1964 · 发表于 2016-1-14 21:03

;; 需要e派工具箱(XCAD)的支持，仅供参考
(defun c:tt ()(xyp-Dcl-Fast0 "Atool" '("ar(ar)" "arr(arr)" "aw(aw)"))(princ))

wzg356 · 发表于 2016-1-15 00:14

都这样，没有简洁。若果经常增减插件，网上搜自定义门面板，有好几个源码，把你的插件名、命令名填上去就行。

mikary · 发表于 2016-1-15 10:42

感谢二位的解答....明白了

账号		自动登录	找回密码
密码			注册

[已解答] 求教，关于DCL按键驱动。有没有更简洁的实现方式?

本帖子中包含更多资源