[原创] DCL对话框在开启状态下进行调试!

不死猫

众所周知,在DCL对话框开启状态的时候,因为是模态对话框,无法加载lisp代码实时调试,必须关闭DCL,重新加载程序,运行,查看代码修改的效果.
那么是否有办法在DCL开启状态下进行代码的调试呢?
答案是:有!

方法:开启2个AutoCAD,从第二个CAD传递代码到第一个AutoCAD中去!
步骤:
打开第一个AutoCAD,加载我们的DCL程序并运行TT命令,让DCL为开启状态:

然后打开第二AutoCAD,打开VLIDE编辑器,加载我下面的代码:

2. (or vl
   
3.   (progn
   
4.     (vl-load-com)
   
5.     (setq acad (vlax-get-object "AutoCAD.Application"));测试于acad2006,版本号16,后面的版本号为17,18,18.1,18.2,19.....
   
6.     (setq ve (substr (Vlax-Get (Vlax-Get-Acad-Object) 'Version ) 1 2));版本号根据你的CAD来定,也可以自己写
   
7.     (setq vl (Vlax-Invoke-Method acad 'GetInterfaceObject (strcat "VL.Application." ve)))
   
8.     (setq ad (Vlax-Get vl 'ActiveDocument ))
   
9.     (setq funcs (Vlax-Get ad 'Functions ))
   
10.     (setq func_eval (vlax-get-property funcs 'item "eval"))
    
11.     (setq func_read (vlax-get-property funcs 'item "read"))
    
12.     (princ)
    
13.   )
    
14. )
    
15. (defun go (sym)
    
16.   (setq str (vl-prin1-to-string SYM))
    
17.   (setq call (vlax-invoke func_read 'funcall str))
    
18.   (setq ret (vlax-invoke func_eval 'funcall call))
    
19.   (print ret)
    
20.   (princ)
    
21. )
    
22. (go '(set_tile "Text1" "234"))
    
23. 
    
24. (go '(start_list "List1"))
    
25. (go '(mapcar 'add_list '("1" "2" "3")))
    
26. (go '(end_list))
    
27. (go '(set_tile "List1" "2"))
    
28. 
    
29. (go '(start_list "Combo1"))
    
30. (go '(mapcar 'add_list '("4" "5" "6")))
    
31. (go '(end_list))
    
32. (go '(set_tile "Combo1" "1"))
    
33. 
    
34. (go '(set_tile "Option1" "1"))
    
35. (go '(set_tile "Check1" "1"))
    

(or vl<br />   (progn<br />     (vl-load-com)<br />     (setq acad (vlax-get-object "AutoCAD.Application"));测试于acad2006,版本号16,后面的版本号为17,18,18.1,18.2,19.....<br />     (setq ve (substr (Vlax-Get (Vlax-Get-Acad-Object) 'Version ) 1 2));版本号根据你的CAD来定,也可以自己写<br />     (setq vl (Vlax-Invoke-Method acad 'GetInterfaceObject (strcat "VL.Application." ve)))<br />     (setq ad (Vlax-Get vl 'ActiveDocument ))<br />     (setq funcs (Vlax-Get ad 'Functions ))<br />     (setq func_eval (vlax-get-property funcs 'item "eval"))<br />     (setq func_read (vlax-get-property funcs 'item "read"))<br />     (princ)<br />   )<br /> )<br /> (defun go (sym)<br />   (setq str (vl-prin1-to-string SYM))<br />   (setq call (vlax-invoke func_read 'funcall str))<br />   (setq ret (vlax-invoke func_eval 'funcall call))<br />   (print ret)<br />   (princ)<br /> )<br /> (go '(set_tile "Text1" "234"))<br /> <br /> (go '(start_list "List1"))<br /> (go '(mapcar 'add_list '("1" "2" "3")))<br /> (go '(end_list))<br /> (go '(set_tile "List1" "2"))<br /> <br /> (go '(start_list "Combo1"))<br /> (go '(mapcar 'add_list '("4" "5" "6")))<br /> (go '(end_list))<br /> (go '(set_tile "Combo1" "1"))<br /> <br /> (go '(set_tile "Option1" "1"))<br /> (go '(set_tile "Check1" "1"))<br />

执行这段代码,你看到了什么?
没错,我们第一个AutoCAD的DCL对话框数据已经发生改变了!(注意DCL运行的那个AutoCAD必须是windows里面第一个开启的cad,否则没有反应)
如果需要获取数据,就调用 '(get_tile "控件key")

用户的点击动作,代码发生改变的时候,我们希望DCL不用关闭的情况下,执行新的代码进行测试.
比如我们修改刚才lsp中的部分代码:

2. (defun Action_Form1_Keys (key value) ;全部控件的点击动作触发
   
3.   (cond
   
4.     ((= key "accept") ;{确认按钮}
   
5.       
   
6.       (Get_Form1_Data)
   
7.       (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
   
8.     )
   
9.     ((= key "cancel") ;{取消按钮}
   
10.       
    
11.       (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
    
12.     )
    
13.     ((= key "Check1") ; {"复选"} (多选按钮)
    
14.       (alert "ok")
    
15.     )
    
16.     ((= key "Option1") ; {"单选1"} (单选按钮)
    
17.       (alert "ok")
    
18.     )
    
19.     ((= key "Option2") ; {"单选2"} (单选按钮)
    
20.       (alert "ok")
    
21.     )
    
22.     ((= key "List1") ; {} (普通列表)
    
23.       ()
    
24.     )
    
25.     ((= key "Combo1") ; {"Combo1"} (下拉列表)
    
26.       ()
    
27.     )
    
28.   )
    
29. )

(defun Action_Form1_Keys (key value) ;全部控件的点击动作触发<br />   (cond<br />     ((= key "accept") ;{确认按钮}<br />       <br />       (Get_Form1_Data)<br />       (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1<br />     )<br />     ((= key "cancel") ;{取消按钮}<br />       <br />       (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0<br />     )<br />     ((= key "Check1") ; {"复选"} (多选按钮)<br />       (alert "ok")<br />     )<br />     ((= key "Option1") ; {"单选1"} (单选按钮)<br />       (alert "ok")<br />     )<br />     ((= key "Option2") ; {"单选2"} (单选按钮)<br />       (alert "ok")<br />     )<br />     ((= key "List1") ; {} (普通列表)<br />       ()<br />     )<br />     ((= key "Combo1") ; {"Combo1"} (下拉列表)<br />       ()<br />     )<br />   )<br /> )

然后记得保存Form1.lsp文件
接下来我们使用这个代码,就能够让修改后的代码直接生效了:

1. (go '(load "E:\\Lisp\\dcl调试方法\\Form1.lsp"));路径自己改
   
2. 点击控件弹出警告.
   
3. 其他的控件都是类似的,学会的同学举个爪吧:)

复制代码

carrot1983

去年都没上论坛，错过了不少好东西。
请猫老师方便时，解释一下，或者说，有没有办法打开任意ＣＡＤ，都能实现，
而不是ＤＣＬ要在第一个ＣＡＤ调用。
试了一下，会出现这种提示：　; 错误: VisualLISP: Member not found: funcall

另外，经过测试，vlide从ＣＡＤ2006以后，应该就只有一种版本，那就是
VL.Application.16

z312144636

学习下！！！谢谢！！！

不死猫

就算中秋节提前发的月饼,到时候就不要找我领啦!
提前祝坛友们节日快乐.

819534890

太好了，谢谢分享

laiz3000

看看猫老师的好东西

crtrccrt

一个字
很好

spp_wall

学习下！！！谢谢！！！

maiko

看看猫老师的好东西

qyming

有这样的功能,神了

ynhh

猫老师总是在创新啊
太牛了

请教猫老师：
能不能双击列表框中的目录任一内容
就可直接进入指定的程序
而不用再点击确定按钮？

springwillow

好东西，这样做对话框的时候就方便多了，不用自己一边在纸上画一边写代码一边调试了。