Autocad 自动切换输入法 源码修改

happy336

AutoCAD文字和命令经常需要来回切换，在网上找到一段源码，目前不完美，先寻求帮助
设置前提：

1.ctrl+shift+0 英文
2.ctrl+shift+1 中文（搜狗输入法需要在搜狗自己程序设置菜单）


目前问题
1.目前自动切换只有mtext和mtedit能够完全识别（命令输入开始切中文，命令结束后切英文），ddedit无法完全识别（命令开始切中文，命令结束后无法切换英文）
2.其他问题待续。


源码如下

2. ;;;自定义弹出式对话框
   
3. ;;(AlertDiy 显示内容 标题内容)
   
4. (defun AlertDiy (str titlestr / shell a)
   
5.   (setq shell (vlax-create-object "WScript.Shell"))
   
6.   (setq a (vlax-invoke-method shell "Popup" str 0 titlestr 1));;确定取消按钮a=2,取消，a=1确定
   
7.   )
   
8. ;cad输入法自动切换程序
   
9. (vl-load-reactors)
   
10. (vl-load-com)
    
11. ;加密注册程序
    
12. (setq shell (vlax-create-object "WScript.Shell"))
    
13. (vlax-invoke shell "SendKeys" "+^0")
    
14. ;cad命令输入反应器
    
15. (if (not command_reactor)(setq command_reactor
    
16.         (vlr-command-reactor NIL '((:vlr-commandWillStart . Test1)))
    
17. ))
    
18. 
    
19. (defun test1(a b)
    
20.         (if (or (= (car b) "DDEDIT") (= (car b) "MTEDIT") (= (car b) "TEXT") (= (car b) "MTEXT"))               
    
21.                         (progn (vlax-invoke shell "SendKeys" "+^1")
    
22.                                 )
    
23.         (princ)
    
24.    
    
25.         ))
    
26. ;;取消CAD命令反应器
    
27. (if (not command_reactor)(setq command_reactor
    
28.         (vlr-command-reactor nil '((:vlr-commandCancelled . Test2)))
    
29. ))
    
30. 
    
31. (defun Test2(a b)
    
32.         (if (or (= (car b) "DDEDIT") (= (car b) "MTEDIT") (= (car b) "TEXT") (= (car b) "MTEXT"))               
    
33.                         (progn (vlax-invoke shell "SendKeys" "+^0")
    
34.                                  )
    
35. )
    
36. ;(vlax-invoke shell "SendKeys" "+^0")
    
37.         (princ)
    
38.    
    
39.         )
    
40. ;;cad命令完成反应器
    
41. (if (not command_reactor1)(setq command_reactor1
    
42.         (vlr-command-reactor NIL '((:vlr-commandEnded . Test3)))
    
43. ))
    
44. (defun test3(a b)
    
45.         (if (not (= (car b) "QSAVE"))
    
46.                 (progn (vlax-invoke shell "SendKeys" "+^0");ctrl+shift+1为中文，ctrl+shift+0为英文
    
47.                 )
    
48.         )
    
49.         ;(vlax-invoke shell "SendKeys" "+^0")
    
50.         (princ)
    
51. )  
    
52. 
    
53.                              
    
54. 
    

;;;自定义弹出式对话框<br /> ;;(AlertDiy 显示内容 标题内容)<br /> (defun AlertDiy (str titlestr / shell a)<br />   (setq shell (vlax-create-object "WScript.Shell"))<br />   (setq a (vlax-invoke-method shell "Popup" str 0 titlestr 1));;确定取消按钮a=2,取消，a=1确定<br />   )<br /> ;cad输入法自动切换程序<br /> (vl-load-reactors)<br /> (vl-load-com) <br /> ;加密注册程序<br /> (setq shell (vlax-create-object "WScript.Shell"))<br /> (vlax-invoke shell "SendKeys" "+^0")<br /> ;cad命令输入反应器<br /> (if (not command_reactor)(setq command_reactor<br />         (vlr-command-reactor NIL '((:vlr-commandWillStart . Test1)))<br /> ))<br /> <br /> (defun test1(a b)<br />         (if (or (= (car b) "DDEDIT") (= (car b) "MTEDIT") (= (car b) "TEXT") (= (car b) "MTEXT"))                <br />                         (progn (vlax-invoke shell "SendKeys" "+^1") <br />                                 )<br />         (princ)<br />     <br />         ))<br /> ;;取消CAD命令反应器<br /> (if (not command_reactor)(setq command_reactor<br />         (vlr-command-reactor nil '((:vlr-commandCancelled . Test2)))<br /> )) <br /> <br /> (defun Test2(a b)<br />         (if (or (= (car b) "DDEDIT") (= (car b) "MTEDIT") (= (car b) "TEXT") (= (car b) "MTEXT"))                <br />                         (progn (vlax-invoke shell "SendKeys" "+^0") <br />                                  )<br /> )<br /> ;(vlax-invoke shell "SendKeys" "+^0")<br />         (princ)<br />     <br />         )<br /> ;;cad命令完成反应器<br /> (if (not command_reactor1)(setq command_reactor1<br />         (vlr-command-reactor NIL '((:vlr-commandEnded . Test3)))<br /> ))<br /> (defun test3(a b)<br />         (if (not (= (car b) "QSAVE"))<br />                 (progn (vlax-invoke shell "SendKeys" "+^0");ctrl+shift+1为中文，ctrl+shift+0为英文<br />                 )<br />         )<br />         ;(vlax-invoke shell "SendKeys" "+^0")<br />         (princ)<br /> )  <br /> <br />                              <br /> <br />

happy336

ㄘ丶转裑ㄧ灬 发表于 2019-7-19 11:22
http://bbs.mjtd.com/thread-176996-1-1.html

谢谢了，最新的源码查询到了
原版参见：http://bbs.mjtd.com/thread-176934-1-1.html

2. ;封小风20160923,20180129加入鼠标双击反应器20180331增加了快速添加命令
   
3. ;cad输入法自动切换程序
   
4. (vl-load-reactors)
   
5. (vl-load-com)
   
6. ;加密注册程序
   
7. (setq shell (vlax-create-object "WScript.Shell"))
   
8. (vlax-invoke shell "SendKeys" "+^0")
   
9. (if (not mouse_reactor) (setq mouse_reactor (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . test11)))))
   
10. (defun test11(a b)
    
11.         (vlax-invoke shell "SendKeys" "+^1")
    
12. )
    
13. ;;;设计的输入切换命令
    
14. ;;;x参数命令集合
    
15. (defun mlh(c)
    
16.         (setq mljh '("FIND" "MTEDIT" "DDEDIT" "TEXT" "TEXTEDIT" "MTEXT" "_saveas"))
    
17.         (setq mljh1 (mapcar '(lambda (x) (= (car c) x)) mljh))
    
18.         (apply 'or mljh1)
    
19.         )
    
20. ;cad命令输入反应器
    
21. (if (not command_reactor)(setq command_reactor
    
22.         (vlr-command-reactor NIL '((:vlr-commandWillStart . Test_12)))
    
23. ))
    
24. (defun test_12(a b)
    
25.         (if (mlh b)       
    
26.                         (progn (vlax-invoke shell "SendKeys" "+^1")
    
27.                                 )
    
28.         (princ)   
    
29.         ))
    
30. ;;取消CAD命令反应器
    
31. (if (not command_reactor3)(setq command_reactor3
    
32.         (vlr-command-reactor nil '((:vlr-commandCancelled . Test2)))
    
33. ))
    
34. 
    
35. (defun Test2(a b)
    
36.         (if (mlh b)                       
    
37.                         (progn (vlax-invoke shell "SendKeys" "+^0")
    
38.                                  )
    
39.         (princ)
    
40.    
    
41.         ))
    
42. ;;;无法完成CAD命令反应器
    
43. (if (not command_reactor2)(setq command_reactor2
    
44.         (vlr-command-reactor nil '((:vlr-commandFailed . Test5)))
    
45. ))
    
46. 
    
47. (defun Test5(a b)
    
48.         (if (mlh b)               
    
49.                         (progn (vlax-invoke shell "SendKeys" "+^0")
    
50.                                  )
    
51.         (princ)
    
52.    
    
53.         ))
    
54. ;;;cad命令完成反应器
    
55. (if (not command_reactor1)(setq command_reactor1
    
56.         (vlr-command-reactor NIL '((:vlr-commandEnded . Test3)))
    
57. ))
    
58. (defun test3(a b)
    
59.         (if (not (= (car b) "QSAVE"))
    
60.                 (progn (vlax-invoke shell "SendKeys" "+^0");ctrl+shift+1为中文，ctrl+shift+0为英文
    
61.                 )
    
62.         )
    
63.         ;(vlax-invoke shell "SendKeys" "+^0")
    
64.         (princ)
    
65. )  
    
66. 
    
67. 
    
68.                              
    
69. (defun c:bangzhu()
    
70.         (alert "输入法设置ctrl+shift+1为中文，ctrl+shift+0为英文")
    
71. )
    

;封小风20160923,20180129加入鼠标双击反应器20180331增加了快速添加命令<br /> ;cad输入法自动切换程序<br /> (vl-load-reactors)<br /> (vl-load-com) <br /> ;加密注册程序<br /> (setq shell (vlax-create-object "WScript.Shell"))<br /> (vlax-invoke shell "SendKeys" "+^0")<br /> (if (not mouse_reactor) (setq mouse_reactor (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . test11)))))<br /> (defun test11(a b)<br />         (vlax-invoke shell "SendKeys" "+^1") <br /> )<br /> ;;;设计的输入切换命令<br /> ;;;x参数命令集合<br /> (defun mlh(c)<br />         (setq mljh '("FIND" "MTEDIT" "DDEDIT" "TEXT" "TEXTEDIT" "MTEXT" "_saveas"))<br />         (setq mljh1 (mapcar '(lambda (x) (= (car c) x)) mljh))<br />         (apply 'or mljh1)<br />         )<br /> ;cad命令输入反应器<br /> (if (not command_reactor)(setq command_reactor<br />         (vlr-command-reactor NIL '((:vlr-commandWillStart . Test_12)))<br /> ))<br /> (defun test_12(a b)<br />         (if (mlh b)        <br />                         (progn (vlax-invoke shell "SendKeys" "+^1") <br />                                 )<br />         (princ)    <br />         ))<br /> ;;取消CAD命令反应器<br /> (if (not command_reactor3)(setq command_reactor3<br />         (vlr-command-reactor nil '((:vlr-commandCancelled . Test2)))<br /> )) <br /> <br /> (defun Test2(a b)<br />         (if (mlh b)                        <br />                         (progn (vlax-invoke shell "SendKeys" "+^0") <br />                                  )<br />         (princ)<br />     <br />         ))<br /> ;;;无法完成CAD命令反应器<br /> (if (not command_reactor2)(setq command_reactor2<br />         (vlr-command-reactor nil '((:vlr-commandFailed . Test5)))<br /> )) <br /> <br /> (defun Test5(a b)<br />         (if (mlh b)                <br />                         (progn (vlax-invoke shell "SendKeys" "+^0") <br />                                  )<br />         (princ)<br />     <br />         ))<br /> ;;;cad命令完成反应器<br /> (if (not command_reactor1)(setq command_reactor1<br />         (vlr-command-reactor NIL '((:vlr-commandEnded . Test3)))<br /> ))<br /> (defun test3(a b)<br />         (if (not (= (car b) "QSAVE"))<br />                 (progn (vlax-invoke shell "SendKeys" "+^0");ctrl+shift+1为中文，ctrl+shift+0为英文<br />                 )<br />         )<br />         ;(vlax-invoke shell "SendKeys" "+^0")<br />         (princ)<br /> )  <br /> <br /> <br />                              <br /> (defun c:bangzhu()<br />         (alert "输入法设置ctrl+shift+1为中文，ctrl+shift+0为英文")<br /> )<br />

ㄘ丶转裑ㄧ灬

http://bbs.mjtd.com/thread-176996-1-1.html