[讨论]：关于反应器的unknownCommand，很难！请高手解决！

fundoll

关于反应器的unknownCommand，想了很长时间！请高手解决！

在正确命令开始时(commandWillStart)，被反应器捕获，(setvar "clayer" "1")没问题。

在错误命令(如在命令行输入("xxxxxxx")开始时(unknownCommand)，被反应器捕获，(setvar "clayer" "0"),出现错误: AutoCAD 变量设置被拒绝: "clayer" "0"，用了程序运行时中断(sendkeys "{ESC}")，也没用！

哪位高手可以解决！先谢谢了。

2. 
   
3.   [FONT=courier new]
   
4. (vl-load-com)
   
5. (if (not ea:ansyscmd)
   
6.   (setq        ea:ansyscmd
   
7.          (vlr-editor-reactor
   
8.            nil
   
9.            '(
   
10.              (:vlr-commandWillStart . WSCmd)
    
11.              (:vlr-unknownCommand . UKCmd)
    
12.              
    
13.             )
    
14.          )
    
15.   )
    
16. )
    
17. (defun WSCmd (var1 var2 / );命令回调
    
18.          (setvar "clayer" "1");没有"1"层则应先创建。此处没错误。
    
19. )                       
    
20. (defun UKCmd (var1 var2 / )
    
21.          (princ "111111111111111")
    
22.          (vl-cmdf)(sendkeys "{ESC}")
    
23.          (setvar "clayer" "0");错误: AutoCAD 变量设置被拒绝: "clayer" "0"
    
24.      (princ "222222222222222")
    
25. )
    
26. 
    
27. ;;Written By AIdraft
    
28. (defun SendKeys (keys / ws)
    
29.   (setq ws (vlax-create-object "WScript.Shell"))
    
30.   (vlax-invoke-method ws 'sendkeys keys)
    
31.   (vlax-release-object ws)
    
32.   (princ)
    
33. )
    
34.   [/FONT]
    

<br />   [FONT=courier new]<br /> (vl-load-com)<br /> (if (not ea:ansyscmd)<br />   (setq        ea:ansyscmd<br />          (vlr-editor-reactor<br />            nil<br />            '(<br />              (:vlr-commandWillStart . WSCmd)<br />              (:vlr-unknownCommand . UKCmd)<br />              <br />             )<br />          )<br />   )<br /> )<br /> (defun WSCmd (var1 var2 / );命令回调<br />          (setvar "clayer" "1");没有"1"层则应先创建。此处没错误。<br /> )                        <br /> (defun UKCmd (var1 var2 / )<br />          (princ "111111111111111") <br />          (vl-cmdf)(sendkeys "{ESC}")<br />          (setvar "clayer" "0");错误: AutoCAD 变量设置被拒绝: "clayer" "0"<br />      (princ "222222222222222") <br /> )<br /> <br /> ;;Written By AIdraft<br /> (defun SendKeys (keys / ws) <br />   (setq ws (vlax-create-object "WScript.Shell")) <br />   (vlax-invoke-method ws 'sendkeys keys) <br />   (vlax-release-object ws) <br />   (princ) <br /> )<br />   [/FONT]<br />

eachy

反映器不能用 command ，应该也包括 vl-cmdf

eachy

2. 
   
3. (vl-load-com)
   
4. (if (not ea:ansyscmd)
   
5.   (setq        ea:ansyscmd
   
6.          (vlr-editor-reactor
   
7.            nil
   
8.            '(
   
9.              (:vlr-commandWillStart . WSCmd)
   
10.              (:vlr-unknownCommand . UKCmd)
    
11.              (:vlr-commandended . WSCmdend)
    
12.              (:vlr-commandcancelled . WSCmdend)
    
13.             )
    
14.          )
    
15.   )
    
16. )
    
17. (defun WSCmd (var1 var2 / doc) ;_命令回调
    
18.   (if (not (tblsearch "layer" "1"))
    
19.     (progn
    
20.       (vla-add
    
21.         (vla-get-layers
    
22.           (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    
23.         )
    
24.         "1"
    
25.       )
    
26.       (vla-SetVariable doc "clayer" "1")
    
27.     )
    
28.     (vla-SetVariable
    
29.       (vla-get-activedocument (vlax-get-acad-object))
    
30.       "clayer"
    
31.       "1"
    
32.     )
    
33.   ) ;_没有"1"层则应先创建。此处没错误。
    
34. )
    
35. (defun UKCmd (var1 var2 / doc)
    
36.   ;; (princ "\n111111111111111")  
    
37.   (vla-sendcommand
    
38.     (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    
39.     (chr
    
40.       3
    
41.     )
    
42.   )
    
43.   (vla-SetVariable doc "clayer" "0")
    
44.   ;;(princ "\n222222222222222")
    
45. )
    
46. (defun WSCmdend        (var1 var2 /)
    
47.   (vla-SetVariable
    
48.     (vla-get-activedocument (vlax-get-acad-object))
    
49.     "clayer"
    
50.     "0"
    
51.   )
    
52. )
    
53. ;|;Written By AIdraft
    
54. (defun SendKeys        (keys / ws)
    
55.   (setq ws (vlax-create-object "WScript.Shell"))
    
56.   (vlax-invoke-method ws 'sendkeys keys)
    
57.   (vlax-release-object ws)
    
58.   (princ)
    
59. )|;
    

<br /> (vl-load-com)<br /> (if (not ea:ansyscmd)<br />   (setq        ea:ansyscmd<br />          (vlr-editor-reactor<br />            nil<br />            '(<br />              (:vlr-commandWillStart . WSCmd)<br />              (:vlr-unknownCommand . UKCmd)<br />              (:vlr-commandended . WSCmdend)<br />              (:vlr-commandcancelled . WSCmdend)<br />             )<br />          )<br />   )<br /> )<br /> (defun WSCmd (var1 var2 / doc) ;_命令回调<br />   (if (not (tblsearch "layer" "1"))<br />     (progn<br />       (vla-add<br />         (vla-get-layers<br />           (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />         )<br />         "1"<br />       )<br />       (vla-SetVariable doc "clayer" "1")<br />     )<br />     (vla-SetVariable<br />       (vla-get-activedocument (vlax-get-acad-object))<br />       "clayer"<br />       "1"<br />     )<br />   ) ;_没有"1"层则应先创建。此处没错误。<br /> )<br /> (defun UKCmd (var1 var2 / doc)<br />   ;; (princ "\n111111111111111")  <br />   (vla-sendcommand<br />     (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />     (chr<br />       3<br />     )<br />   )<br />   (vla-SetVariable doc "clayer" "0")<br />   ;;(princ "\n222222222222222")<br /> )<br /> (defun WSCmdend        (var1 var2 /)<br />   (vla-SetVariable<br />     (vla-get-activedocument (vlax-get-acad-object))<br />     "clayer"<br />     "0"<br />   )<br /> )<br /> ;|;Written By AIdraft<br /> (defun SendKeys        (keys / ws)<br />   (setq ws (vlax-create-object "WScript.Shell"))<br />   (vlax-invoke-method ws 'sendkeys keys)<br />   (vlax-release-object ws)<br />   (princ)<br /> )|;<br />

fundoll

反映器不能用 command ，应该也包括 vl-cmdf

在一次偶然调试程序时，在回调函数中先关掉反应器，再使用(vl-cmdf )、(sentkey "{ESC}")、command命令，最后开户反应器，command居然能运行，就是一直死循环！由于没有保存，过了几天后一直没调试出来。