管他是不是趁热点，分享了再说，分享的目的就是也许有用，图王输入自动加载

jun353835273

1. (defun coadTWSRF (/ acadVer rawVersion yearVersion proc bitness path myarx fname)
   
2.   ; 获取原始版本号 (如 "R19.1")
   
3.   (setq acadVer (getvar "ACADVER"));"23.1s (LMS Tech)"
   
4.   (setq rawVersion (substr acadVer 1 4))
   
5.   
   
6.   ; 将版本号映射到年份
   
7.   (setq yearVersion
   
8.     (cond
   
9.       ((or (= rawVersion "25.1") (= rawVersion "25.0")) "2025-2026") ; 2026和2025
   
10.       ((= rawVersion "24.3") "2024")
    
11.       ((= rawVersion "24.2") "2023")
    
12.       ((= rawVersion "24.1") "2022")
    
13.       ((= rawVersion "24.0") "2021")
    
14.       ((= rawVersion "23.1") "2020")
    
15.       ((= rawVersion "23.0") "2019")
    
16.       ((= rawVersion "22.0") "2018")
    
17.       ((= rawVersion "21.0") "2017")
    
18.       ((= rawVersion "20.1") "2016")
    
19.       ((= rawVersion "20.0") "2015")
    
20.       ((= rawVersion "19.1") "2014")
    
21.       ((= rawVersion "19.0") "2013")
    
22.       ((= rawVersion "18.2") "2012")
    
23.       ((= rawVersion "18.1") "2011")
    
24.       ((= rawVersion "18.0") "2010")
    
25.       (T nil) ; 不支持的版本
    
26.     )
    
27.   )
    
28.   
    
29.   ; 确定系统位数 (x64或Win32)
    
30.   (setq proc (= "AMD64" (getenv "ROCESSOR_ARCHITECTURE")))
    
31.   (setq bitness (if proc "x64" "Win32"))
    
32.   
    
33.   ; ARX文件所在路径
    
34.   (setq path "D:\\TutuAutoCADtools\\图王输入法自动切换_V1.1_正式版\\")
    
35.   
    
36.   ; 根据年份版本确定对应的ARX文件版本标识
    
37.   (if yearVersion
    
38.     (setq versionTag
    
39.       (cond
    
40.         ((or (= yearVersion "2025") (= yearVersion "2026")) "2025-2026")
    
41.         ((and (>= (atoi yearVersion) 2010) (<= (atoi yearVersion) 2012)) "2010-2012")
    
42.         ((and (>= (atoi yearVersion) 2013) (<= (atoi yearVersion) 2014)) "2013-2014")
    
43.         ((and (>= (atoi yearVersion) 2015) (<= (atoi yearVersion) 2016)) "2015-2016")
    
44.         ((= yearVersion "2017") "2017")
    
45.         ((= yearVersion "2018") "2018")
    
46.         ((and (>= (atoi yearVersion) 2019) (<= (atoi yearVersion) 2020)) "2019-2020")
    
47.         ((and (>= (atoi yearVersion) 2021) (<= (atoi yearVersion) 2024)) "2021-2024")
    
48.         (T nil)
    
49.       )
    
50.     )
    
51.   )
    
52.   
    
53.   ; 如果找到匹配的版本标识，则构建完整文件名并加载
    
54.   (if (and yearVersion versionTag)
    
55.     (progn
    
56.       (setq myarx (strcat "TWSRF.A" versionTag "." bitness ".arx"))
    
57.       (setq fname (strcat path myarx))
    
58.       
    
59.       ; 检查文件是否存在并加载
    
60.       (if (findfile fname)
    
61.         (progn
    
62.           ; 检查是否已加载，避免重复加载
    
63.           (if (not (member (strcase myarx) (mapcar 'strcase (arx))))
    
64.             (progn
    
65.               (arxload fname)
    
66.               (princ (strcat "\n图王输入法自动切换 (AutoCAD " yearVersion " " bitness ") 加载成功!"))
    
67.             )
    
68.             (princ (strcat "\n图王输入法自动切换 (AutoCAD " yearVersion " " bitness ") 已加载!"))
    
69.           )
    
70.         )
    
71.         (prompt (strcat "\n未找到文件: " fname))
    
72.       )
    
73.     )
    
74.     (prompt (strcat "\n不支持的AutoCAD版本: " acadVer " (" rawVersion ")"))
    
75.   )
    
76.   
    
77.   (princ)
    
78. )
    
79. ; 自动执行加载
    
80. (coadTWSRF)
    
81. (princ)
    
82. (princ)
    
83.    

(defun c<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />oadTWSRF (/ acadVer rawVersion yearVersion proc bitness path myarx fname)<br />   ; 获取原始版本号 (如 "R19.1")<br />   (setq acadVer (getvar "ACADVER"));"23.1s (LMS Tech)"<br />   (setq rawVersion (substr acadVer 1 4)) <br />   <br />   ; 将版本号映射到年份<br />   (setq yearVersion<br />     (cond<br />       ((or (= rawVersion "25.1") (= rawVersion "25.0")) "2025-2026") ; 2026和2025<br />       ((= rawVersion "24.3") "2024")<br />       ((= rawVersion "24.2") "2023")<br />       ((= rawVersion "24.1") "2022")<br />       ((= rawVersion "24.0") "2021")<br />       ((= rawVersion "23.1") "2020")<br />       ((= rawVersion "23.0") "2019")<br />       ((= rawVersion "22.0") "2018")<br />       ((= rawVersion "21.0") "2017")<br />       ((= rawVersion "20.1") "2016")<br />       ((= rawVersion "20.0") "2015")<br />       ((= rawVersion "19.1") "2014")<br />       ((= rawVersion "19.0") "2013")<br />       ((= rawVersion "18.2") "2012")<br />       ((= rawVersion "18.1") "2011")<br />       ((= rawVersion "18.0") "2010")<br />       (T nil) ; 不支持的版本<br />     )<br />   )<br />   <br />   ; 确定系统位数 (x64或Win32)<br />   (setq proc (= "AMD64" (getenv "<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />ROCESSOR_ARCHITECTURE")))<br />   (setq bitness (if proc "x64" "Win32"))<br />   <br />   ; ARX文件所在路径<br />   (setq path "D:\\Tutu<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>tools\\图王输入法自动切换_V1.1_正式版\\")<br />   <br />   ; 根据年份版本确定对应的ARX文件版本标识<br />   (if yearVersion<br />     (setq versionTag<br />       (cond<br />         ((or (= yearVersion "2025") (= yearVersion "2026")) "2025-2026")<br />         ((and (>= (atoi yearVersion) 2010) (<= (atoi yearVersion) 2012)) "2010-2012")<br />         ((and (>= (atoi yearVersion) 2013) (<= (atoi yearVersion) 2014)) "2013-2014")<br />         ((and (>= (atoi yearVersion) 2015) (<= (atoi yearVersion) 2016)) "2015-2016")<br />         ((= yearVersion "2017") "2017")<br />         ((= yearVersion "2018") "2018")<br />         ((and (>= (atoi yearVersion) 2019) (<= (atoi yearVersion) 2020)) "2019-2020")<br />         ((and (>= (atoi yearVersion) 2021) (<= (atoi yearVersion) 2024)) "2021-2024")<br />         (T nil)<br />       )<br />     )<br />   )<br />   <br />   ; 如果找到匹配的版本标识，则构建完整文件名并加载<br />   (if (and yearVersion versionTag)<br />     (progn<br />       (setq myarx (strcat "TWSRF.A" versionTag "." bitness ".arx"))<br />       (setq fname (strcat path myarx))<br />       <br />       ; 检查文件是否存在并加载<br />       (if (findfile fname)<br />         (progn<br />           ; 检查是否已加载，避免重复加载<br />           (if (not (member (strcase myarx) (mapcar 'strcase (arx))))<br />             (progn<br />               (arxload fname)<br />               (princ (strcat "\n图王输入法自动切换 (AutoCAD " yearVersion " " bitness ") 加载成功!"))<br />             )<br />             (princ (strcat "\n图王输入法自动切换 (AutoCAD " yearVersion " " bitness ") 已加载!"))<br />           )<br />         )<br />         (prompt (strcat "\n未找到文件: " fname))<br />       )<br />     )<br />     (prompt (strcat "\n不支持的AutoCAD版本: " acadVer " (" rawVersion ")"))<br />   )<br />   <br />   (princ)<br /> )<br /> ; 自动执行加载<br /> (c<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />oadTWSRF)<br /> (princ)<br /> (princ)<br />    

代码只在2014  2024测试，有问题就贴评论区方便更多的人吧。

jun353835273

来个不要币的

lxl217114

谢谢老板，慷慨分享

qifeifei

非常感谢分享

czb203

谢谢老板，慷慨分享

yanchao316

谢谢老板，慷慨分享

429014673

26有问题