cad输入法自动切换程序[热键版修改]

lxdz443

请问一下，我在  (setq listEditCommands (list "mtedit" "ddedit" "textedit" "text" "mtext" "leader" "mleader" "tobjedit" "saveas" "tsaveas" "eattedit"))这里添加别的命令，但是新添加的命令不会自动切换，请问是哪里的问题？

dforme

这个程序很好用

guangdonglbq

lxdz443 发表于 2021-8-10 07:19
请问一下，我在  (setq listEditCommands (list "mtedit" "ddedit" "textedit" "text" "mtext" "leader" "m ...

什么都没有，无法判断。发你的代码上来。

lxdz443

;;cad输入法自动切换程序,打开dwg文件时，运行一次即可
;;请在操作系统中设置输入法热键：ctrl+shift+0为英文，ctrl+shift+1为中文
;;修改日期：2021年06月06日
(vl-load-reactors)
(setq Scriptshell (vlax-create-object "WScript.Shell"))

(defun StartEnglishInputMethod(reactor_object listCommand )
        (StartInputMethod (car listCommand) "+^0" )
)

(defun StartChineseInputMethod(reactor_object listCommand )
        (StartInputMethod (car listCommand)  "+^1")
)

(defun StartInputMethod(strCommand strInputMethodKey / listEditCommands)
        (setq strCommand (strcase strCommand T) )
        (setq strCommand (vl-string-subst "" "-" strCommand))
        (setq strCommand (vl-string-subst "" "_" strCommand))
        (setq listEditCommands (list "mtedit" "ddedit" "textedit" "text" "mtext" "leader" "mleader" "tobjedit" "saveas" "tsaveas" "eattedit"))
  (if (member strCommand listEditCommands)
                (vlax-invoke Scriptshell "SendKeys" strInputMethodKey)
  )  
)
;鼠标双击
(defun onMouseDoubleClick (a b / en end entype )
  (if (setq en (nentselp (trans (car b) 0 1)))
    (progn
      (setq end (entget (car en)))
      (setq entype (cdr (assoc 0 end)))
      (if (wcmatch entype "*TEXT")
       (vlax-invoke Scriptshell "SendKeys"  "+^1")
      )
    )
  )
  (princ)
)

(defun startIMEScript(a b)
(vlr-command-reactor nil
        '((:vlr-commandWillStart . StartChineseInputMethod) ;;启动CAD命令时
                 (:vlr-commandEnded . StartEnglishInputMethod) ;;完成CAD命令时
                 (:vlr-commandCancelled . StartEnglishInputMethod) ;;取消CAD命令时
                 (:vlr-commandFailed . StartEnglishInputMethod) ;;无法完成CAD命令时
         )                 
)
)

(defun EndIMEScript(a b )
        (vlr-remove-all :vlr-command-reactor)
)

(startIMEScript nil nil)

(vlr-mouse-reactor nil '((:vlr-beginDoubleClick . onMouseDoubleClick)))       ;鼠标反应器-双击事件
(vlr-lisp-reactor nil
        '((:vlr-lispWillStart . EndIMEScript) ;;启动lisp时
                 (:vlr-lispEnded . startIMEScript) ;;完成lisp时
                 (:vlr-lispCancelled . startIMEScript) ;;取消lisp时
         )                 
)

(vlax-invoke Scriptshell "SendKeys" "+^0") ;加载时，启用英文输入法
(princ)

guangdonglbq

lxdz443 发表于 2021-11-16 18:47
;;cad输入法自动切换程序,打开dwg文件时，运行一次即可
;;请在操作系统中设置输入法热键：ctrl+shift+0为 ...

看不起来你改了什么

cghdy

好东西，谢谢分享

seamopan

程序写的很好，要是在属性块中编辑文字时能自动切换到中文就更好了

大尾巴狼

;请在操作系统中设置输入法热键：ctrl+shift+1为英文，ctrl+shift+2为中文

居然找不到设置的地方

shanshuise

我也是找不到切换为英文的快捷键设置在哪里。。。。“ctrl+shift+1为英文”

guangdonglbq

大尾巴狼 发表于 2021-11-23 10:19
;请在操作系统中设置输入法热键：ctrl+shift+1为英文，ctrl+shift+2为中文

居然找不到设置的地方

搜索

复制