nice，试试，多谢分享啦啊，赞一个
大神又出精品了！
白糖老师您好，在10版CAD中测试发现了一个BUG，按照如下顺序：(syz-setKeyboardLayout-eng) (syz-setKeyboardLayout-chn) (syz_press 20)执行后，功能实现没问题，但最后鼠标处会出现一个输入框等待用户输入，没有任何提示（前提是动态输入已打开，DYNMODE=3），20版未发现此问题，其他版本有待测试
zhouwq666 发表于 2025-1-19 11:55
白糖老师您好，在10版CAD中测试发现了一个BUG，按照如下顺序：(syz-setKeyboardLayout-eng) (syz-setKeyboa ...
谢谢你的测试
jun353835273 发表于 2024-5-29 16:47
不懂怎么用~基本状况了解；
等于就是不用退出中文输入法，切换输入中英文了；
还是你这个比较高效呢~
期待工具~
本帖最后由 zhangrunze 于 2025-2-27 22:24 编辑
jun353835273 发表于 2024-5-29 16:47
请教下需要加载的按键插件是网址里面的 syz_keybd.fas 文件吗？
(alert "syz_keybd.fas")
这样写是吗？
本帖最后由 zhangrunze 于 2025-3-2 16:31 编辑
WIN10+CAD2023测试通过
CAD2024一直没法运行。
高版本可否更新下。。。
zhangrunze 发表于 2025-3-1 09:30
WIN10+CAD2023测试通过，加载运行imaut.VLX文件；
CAD2024一直没法运行。
高版本可否更新下。。。
试试lispsys=0，重启acad
baitang36 发表于 2025-3-2 06:33
试试lispsys=0，重启acad
正常了 感谢~
文字编辑时，可以加入文字中英文数量识别的功能吗？
当中文文字数量多的时候切换为中文输入法，英文文字数量多的时候切换为英文输入法；
网上找了段，没法兼容；跑不起来~
(defun c:SmartSwitchIME (/ GetTextContent AnalyzeTextRatio)
;; 获取当前编辑的文本内容
(defun GetTextContent ()
(if (setq ent (car (entsel)))
(vla-get-textstring (vlax-ename->vla-object ent))
""
)
)
;; 中英文字符比例分析
(defun AnalyzeTextRatio (str)
(setq chn_cnt (length (vl-remove-if-not '(lambda (x) (wcmatch (chr x) "[一-龥]")) (vl-string->list str))))
(setq eng_cnt (- (strlen str) chn_cnt))
(if (> chn_cnt eng_cnt) 1 0)
)
;; 命令监听逻辑
(defun OnCommandEnded (cmd)
(if (wcmatch cmd "MTEXT*,TEXT*,DDEDIT*")
(progn
(setq txt (GetTextContent))
(if (= (AnalyzeTextRatio txt) 1)
(command "_IMESetStatus" 1) ;中文输入法:ml-citation{ref="5" data="citationList"}
(command "_IMESetStatus" 0) ;英文输入法:ml-citation{ref="5" data="citationList"}
)
)
)
)
(vlr-command-reactor nil '((:vlr-commandended . OnCommandEnded)))
(princ "\n智能输入法切换已启用。")
)