输入法自动切换V2.5--2021.9.3更新2013-2022版

zhangrunze

网上找了一段，统计文本中英文数量切换；

2. 
   
3. (vl-load-com)
   
4. 
   
5. ; 修改为你的AganInp.dll路径（注意路径为双斜杠）
   
6. (vl-cmdf "netload" "D:\\Support\\AganInp.dll")
   
7. 
   
8. ; 快捷键定义
   
9. (defun c:pz() (vl-cmdf "agpz")(princ)) ; 打开设置
   
10. (defun c:gbs() (vl-cmdf "GC:UnloadInp")(princ)) ; 手动关闭输入法自动切换
    
11. (defun c:dks() (vl-cmdf "GC:loadInp")(princ)) ; 手动打开输入法自动切换
    
12. 
    
13. ; 文字内容
    
14. (defun text-char-count (text / en-count zh-count char)
    
15.   (setq en-count 0 zh-count 0)
    
16.   (foreach char (explode text)
    
17.     (if (wcmatch char "[a-zA-Z]")
    
18.       (setq en-count (+ en-count 1))
    
19.       (if (wcmatch char "[\\一-\\龥]")
    
20.         (setq zh-count (+ zh-count 1))
    
21.       )
    
22.     )
    
23.   )
    
24.   (list en-count zh-count)
    
25. )
    
26. 
    
27. ; 鼠标双击事件处理器
    
28. (defun double_click (a b / en end entype text en-count zh-count)
    
29.   (if (setq en (nentselp (trans (car b) 0 1)))
    
30.     (progn
    
31.       (setq end (entget (car en)))
    
32.       (setq entype (cdr (assoc 0 end)))
    
33.       (if (wcmatch entype "*TEXT")
    
34.         (progn
    
35.           (setq text (cdr (assoc 1 end)))
    
36.           (if (= entype "MTEXT")
    
37.             (setq text (DK:mtext2text text))
    
38.           )
    
39.           ; 统计中英文字符
    
40.           (setq (values en-count zh-count) (text-char-count text))
    
41.           (if (> en-count zh-count)
    
42.             (GC:cmdend "EN") ; 切换为英文
    
43.             (GC:cmdstart "中文") ; 切换为中文
    
44.           )
    
45.         )
    
46.       )
    
47.     )
    
48.   )
    
49.   (princ)
    
50. )

<br /> (vl-load-com) <br /> <br /> ; 修改为你的AganInp.dll路径（注意路径为双斜杠）<br /> (vl-cmdf "netload" "D:\\Support\\AganInp.dll")<br /> <br /> ; 快捷键定义<br /> (defun c:pz() (vl-cmdf "agpz")(princ)) ; 打开设置<br /> (defun c:gbs() (vl-cmdf "GC:UnloadInp")(princ)) ; 手动关闭输入法自动切换<br /> (defun c:dks() (vl-cmdf "GC:loadInp")(princ)) ; 手动打开输入法自动切换<br /> <br /> ; 文字内容<br /> (defun text-char-count (text / en-count zh-count char)<br />   (setq en-count 0 zh-count 0)<br />   (foreach char (explode text)<br />     (if (wcmatch char "[a-zA-Z]")<br />       (setq en-count (+ en-count 1))<br />       (if (wcmatch char "[\\一-\\龥]") <br />         (setq zh-count (+ zh-count 1))<br />       )<br />     )<br />   )<br />   (list en-count zh-count)<br /> )<br /> <br /> ; 鼠标双击事件处理器<br /> (defun double_click (a b / en end entype text en-count zh-count)<br />   (if (setq en (nentselp (trans (car b) 0 1)))<br />     (progn<br />       (setq end (entget (car en)))<br />       (setq entype (cdr (assoc 0 end)))<br />       (if (wcmatch entype "*TEXT")<br />         (progn<br />           (setq text (cdr (assoc 1 end)))<br />           (if (= entype "MTEXT")<br />             (setq text (DK:mtext2text text))<br />           )<br />           ; 统计中英文字符<br />           (setq (values en-count zh-count) (text-char-count text))<br />           (if (> en-count zh-count)<br />             (GC:cmdend "EN") ; 切换为英文<br />             (GC:cmdstart "中文") ; 切换为中文<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

没有成功......