[原创]用纯lsp切换键盘布局（已增加自动切换输入法源码）

xpeagle

nice，试试，多谢分享啦啊，赞一个

puzb2023

大神又出精品了！

zhouwq666

白糖老师您好，在10版CAD中测试发现了一个BUG，按照如下顺序：(syz-setKeyboardLayout-eng) (syz-setKeyboardLayout-chn) (syz_press 20)执行后，功能实现没问题，但最后鼠标处会出现一个输入框等待用户输入，没有任何提示（前提是动态输入已打开，DYNMODE=3），20版未发现此问题，其他版本有待测试

baitang36

zhouwq666 发表于 2025-1-19 11:55
白糖老师您好，在10版CAD中测试发现了一个BUG，按照如下顺序：(syz-setKeyboardLayout-eng) (syz-setKeyboa ...

谢谢你的测试

zhangrunze

jun353835273 发表于 2024-5-29 16:47

不懂怎么用~基本状况了解；
等于就是不用退出中文输入法，切换输入中英文了；
还是你这个比较高效呢~
期待工具~

zhangrunze

jun353835273 发表于 2024-5-29 16:47

请教下需要加载的按键插件是网址里面的 syz_keybd.fas 文件吗？

1. (alert "syz_keybd.fas")
   
2. 这样写是吗？

复制代码

zhangrunze

WIN10+CAD2023测试通过
CAD2024一直没法运行。
高版本可否更新下。。。

baitang36

zhangrunze 发表于 2025-3-1 09:30
WIN10+CAD2023测试通过，加载运行imaut.VLX文件；
CAD2024一直没法运行。
高版本可否更新下。。。

试试lispsys=0，重启acad

zhangrunze

baitang36 发表于 2025-3-2 06:33
试试lispsys=0，重启acad

正常了 感谢~

zhangrunze

文字编辑时，可以加入文字中英文数量识别的功能吗？


当中文文字数量多的时候切换为中文输入法，英文文字数量多的时候切换为英文输入法；


网上找了段，没法兼容；跑不起来~

2. (defun c:SmartSwitchIME (/ GetTextContent AnalyzeTextRatio)
   
3.   ;; 获取当前编辑的文本内容
   
4.   (defun GetTextContent ()
   
5.     (if (setq ent (car (entsel)))
   
6.       (vla-get-textstring (vlax-ename->vla-object ent))
   
7.       ""
   
8.     )
   
9.   )
   
10. 
    
11.   ;; 中英文字符比例分析
    
12.   (defun AnalyzeTextRatio (str)
    
13.     (setq chn_cnt (length (vl-remove-if-not '(lambda (x) (wcmatch (chr x) "[一-龥]")) (vl-string->list str))))
    
14.     (setq eng_cnt (- (strlen str) chn_cnt))
    
15.     (if (> chn_cnt eng_cnt) 1 0)
    
16.   )
    
17. 
    
18.   ;; 命令监听逻辑
    
19.   (defun OnCommandEnded (cmd)
    
20.     (if (wcmatch cmd "MTEXT*,TEXT*,DDEDIT*")
    
21.       (progn
    
22.         (setq txt (GetTextContent))
    
23.         (if (= (AnalyzeTextRatio txt) 1)
    
24.           (command "_IMESetStatus" 1) ;中文输入法‌:ml-citation{ref="5" data="citationList"}
    
25.           (command "_IMESetStatus" 0) ;英文输入法‌:ml-citation{ref="5" data="citationList"}
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30. 
    
31.   (vlr-command-reactor nil '((:vlr-commandended . OnCommandEnded)))
    
32.   (princ "\n智能输入法切换已启用。")
    
33. )
    

(defun c:SmartSwitchIME (/ GetTextContent AnalyzeTextRatio)<br />   ;; 获取当前编辑的文本内容<br />   (defun GetTextContent ()<br />     (if (setq ent (car (entsel)))<br />       (vla-get-textstring (vlax-ename->vla-object ent))<br />       ""<br />     )<br />   )<br /> <br />   ;; 中英文字符比例分析<br />   (defun AnalyzeTextRatio (str)<br />     (setq chn_cnt (length (vl-remove-if-not '(lambda (x) (wcmatch (chr x) "[一-龥]")) (vl-string->list str))))<br />     (setq eng_cnt (- (strlen str) chn_cnt))<br />     (if (> chn_cnt eng_cnt) 1 0)<br />   )<br /> <br />   ;; 命令监听逻辑<br />   (defun OnCommandEnded (cmd)<br />     (if (wcmatch cmd "MTEXT*,TEXT*,DDEDIT*")<br />       (progn<br />         (setq txt (GetTextContent))<br />         (if (= (AnalyzeTextRatio txt) 1)<br />           (command "_IMESetStatus" 1) ;中文输入法&#8204;:ml-citation{ref="5" data="citationList"}<br />           (command "_IMESetStatus" 0) ;英文输入法&#8204;:ml-citation{ref="5" data="citationList"}<br />         )<br />       )<br />     )<br />   )<br /> <br />   (vlr-command-reactor nil '((:vlr-commandended . OnCommandEnded)))<br />   (princ "\n智能输入法切换已启用。")<br /> )<br />