【输入法自动切换】&【鼠标双击管理器】&【快速打印设置】 源码

oysheji

里面的快速打印不行，出现错误 了
; 错误: Automation 错误。 输入无效
命令:
命令:
命令: (LOAD "C:/Users/Administrator/Desktop/mytool 2024.06.30/快速打印设置mkprint(独立版本)/将此文件拖入ACAD绘图区安装.lsp")
C:/Users/Administrator/Desktop/mytool 2024.06.30/快速打印设置mkprint(独立版本)/将此文件拖入ACAD绘图区安装.lsp
命令行输入 ps 启动打印设置！
命令: PS
; 错误: Automation 错误。 输入无效
命令:
命令: PS
; 错误: Automation 错误。 输入无效
命令:
命令: 指定对角点或 [栏选(F)/圈围(WP)/圈交(CP)]:

nuan1989

2007, 不好使, no function definition: _VLA-init

nuan1989

大哥... 你用list作为参数命名, 折腾s我了. ...
高版本可以, 2007死活不行. 后面发现你用关键字做参数名称

puzb2023

谢谢分享，实用的工具

zhangrunze

感谢分享 晚点试试新版本的CAD，看看兼容性怎么样~

zhangrunze

Win10+2024版本测试通过~

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 /> )

ikumamon

感谢大佬，2025版本正常运行！！

zhangrunze

兼容性不错，WIN10+CAD2025测试通过；

zzj_mj

试试如何，，，，，，，，