中望CAD自动加载OpenDCL的ZRX支持库代码

wxytiger

    根据AutoCAD自动加载OpenDCL支持库代码改写的，支持中望CAD自动加载ZRX支持库的代码，目前在中望CAD2024Pro专业版上测试通过，没有其它版本，有需要的可自行下载测试。

    注意：OpenDCL.x64.20xx.zrx和对应版本（语言）的运行库 Runtime.Res.dll 文件需要放在CAD支持的搜索文件路径内。

2. ;;//代码块，功能为加载支持ZWCAD的OpenDCL运行库OpenDCL.xx.ZRX文件（如果尚无加载，可自动判断ZWCAD版本(32位和64位)并加载相应ZRX文件//
   
3. ;;注意：如果已经加载或者加载成功后，将返回 T
   
4. ;;如果OpenDCL.xx.ZRX已经载入，本代码块将不做任何动作。
   
5. ;;(dcl-getversionex) 获取OpendDCL版本
   
6. ;;(zrxload "OpenDCL.x64.2023.zrx")
   
7. (if (not dcl_loaded)
   
8.     ((lambda (/ PROC_ARCH ZRXNAME ZRXVER ZRXPATH)
   
9.     ;;根据处理器的类型 和 AutoCAD的版本，确定需要加载的ODCL版本。
   
10.     (setq ZRXNAME
    
11.         (strcat "OpenDCL"
    
12.           (if (and (setq PROC_ARCH (getenv "PROCESSOR_ARCHITECTURE")) (< 1 (strlen PROC_ARCH)) (eq "64" (substr PROC_ARCH (1- (strlen PROC_ARCH)))))
    
13.           ".x64."
    
14.           "."
    
15.         )
    
16.         (if (setq ZRXVER (substr (getvar "vernum") 1 2))
    
17.                     (cond
    
18.                         ((= "16" ZRXVER) (setq ZRXVER "2017"))
    
19.                         ((= "24" ZRXVER) (setq ZRXVER "2023"))
    
20.                         (T (setq ZRXVER (strcat "20" ZRXVER)))
    
21.                     )
    
22.                 )
    
23.         ".zrx"
    
24.       )
    
25.     )
    
26.     ;;尝试查找，尝试加载。
    
27.     (cond
    
28.       ((null (setq ZRXPATH (findfile ZRXNAME)))
    
29.           ;;警示用户未能找到 zrxfile
    
30.           (alert (strcat "OpenDCL支持文件 " ZRXNAME "无法加载。" "\n你需要将它添加到中望CAD的支持路径中。"))
    
31.           (exit)
    
32.       )
    
33.       ((null (zrxload ZRXPATH 'NIL))
    
34.         ;;警示用户未能加载 zrxfile
    
35.         (alert (strcat "无法加载 " ZRXNAME "。"))
    
36.         (exit)
    
37.       )
    
38.       (t (setq dcl_loaded T) (princ))
    
39.     )
    
40.      ))
    
41. )

;;//代码块，功能为加载支持ZWCAD的OpenDCL运行库OpenDCL.xx.ZRX文件（如果尚无加载，可自动判断ZWCAD版本(32位和64位)并加载相应ZRX文件//<br /> ;;注意：如果已经加载或者加载成功后，将返回 T<br /> ;;如果OpenDCL.xx.ZRX已经载入，本代码块将不做任何动作。<br /> ;;(dcl-getversionex) 获取OpendDCL版本<br /> ;;(zrxload "OpenDCL.x64.2023.zrx")<br /> (if (not dcl_loaded)<br />     ((lambda (/ PROC_ARCH ZRXNAME ZRXVER ZRXPATH)<br />     ;;根据处理器的类型 和 AutoCAD的版本，确定需要加载的ODCL版本。<br />     (setq ZRXNAME<br />         (strcat "OpenDCL"<br />           (if (and (setq PROC_ARCH (getenv "PROCESSOR_ARCHITECTURE")) (< 1 (strlen PROC_ARCH)) (eq "64" (substr PROC_ARCH (1- (strlen PROC_ARCH)))))<br />           ".x64."<br />           "."<br />         )<br />         (if (setq ZRXVER (substr (getvar "vernum") 1 2))<br />                     (cond <br />                         ((= "16" ZRXVER) (setq ZRXVER "2017"))<br />                         ((= "24" ZRXVER) (setq ZRXVER "2023"))<br />                         (T (setq ZRXVER (strcat "20" ZRXVER)))<br />                     )<br />                 )<br />         ".zrx"<br />       )<br />     )<br />     ;;尝试查找，尝试加载。<br />     (cond<br />       ((null (setq ZRXPATH (findfile ZRXNAME)))<br />           ;;警示用户未能找到 zrxfile<br />           (alert (strcat "OpenDCL支持文件 " ZRXNAME "无法加载。" "\n你需要将它添加到中望CAD的支持路径中。"))<br />           (exit)<br />       )<br />       ((null (zrxload ZRXPATH 'NIL))<br />         ;;警示用户未能加载 zrxfile<br />         (alert (strcat "无法加载 " ZRXNAME "。"))<br />         (exit)<br />       )<br />       (t (setq dcl_loaded T) (princ))<br />     )<br />      ))<br /> )

2024年8月28日修正：发现中望CAD对未知函数(dcl-getversionex)无反应，也不返回nil值，改写了一下。
(exit)语句位置错误，已修正。
另外给出OpenDCL编辑器和支持库的下载地址：https://sourceforge.net/projects/opendcl/

lxl217114

谢谢分享，还没有用上中望。

hnanky

请问下，在哪里下载支持中望2025的opendcl啊？

zark

有支持中望的OpenDCL吗

zark

zark 发表于 2024-8-25 10:23
有支持中望的OpenDCL吗

已经搞定了，谢谢

wxytiger

hnanky 发表于 2024-8-23 20:41
请问下，在哪里下载支持中望2025的opendcl啊？

下载地址已更新。

火龙果2022

谢谢大侠为我们答疑解惑，万分感谢！

ajunseo

autocad如何自动加载呢？

wxytiger

ajunseo 发表于 2024-9-11 19:55
autocad如何自动加载呢？

2. ;;//代码块，功能为加载支持AutoCAD的OpenDCL运行库OpenDCL.xx.ARX文件（如果尚无加载，可自动判断AutoCAD版本(32位和64位)并加载相应ARX文件//
   
3. ;;注意：如果已经加载或者加载成功后，将返回 T
   
4. ;;如果OpenDCL.xx.ARX已经载入，本代码块将不做任何动作。
   
5. ;;(dcl-getversionex) 获取OpendDCL版本
   
6. ;;(Arxload "OpenDCL.x64.19.arx")
   
7. (or (dcl-getversionex)
   
8.         ((lambda (/ PROC_ARCH ARXNAME ARXVER ARXPATH)
   
9.                  ;;根据处理器的类型 和 AutoCAD的版本，确定需要加载的ODCL版本。
   
10.                  (setq ARXNAME
    
11.                          (strcat "OpenDCL"
    
12.                                  (if (and (setq PROC_ARCH (getenv "PROCESSOR_ARCHITECTURE")) (< 1 (strlen PROC_ARCH)) (eq "64" (substr PROC_ARCH (1- (strlen PROC_ARCH)))))
    
13.                                          ".x64."
    
14.                                          "."
    
15.                                  )
    
16.                                  (setq ARXVER (substr (getvar "ACADVER") 1 2))
    
17.                                  ".arx"
    
18.                          )
    
19.                  )
    
20.                  ;;尝试查找，尝试加载。
    
21.                  (cond
    
22.                          ((null (setq ARXPATH (findfile ARXNAME)))
    
23.                                  ;;警示用户未能找到 zrxfile
    
24.                                  (alert (strcat "OpenDCL支持文件 " ARXNAME "无法加载。" "\n你需要将它添加到中望CAD的支持路径中。"))
    
25.                                  (exit)
    
26.                          )
    
27.                          ((null (arxload ARXPATH 'NIL))
    
28.                                  ;;警示用户未能加载 zrxfile
    
29.                                  (alert (strcat "无法加载 " ARXNAME "。"))
    
30.                                  (exit)
    
31.                          )
    
32.                          (T)
    
33.                  )
    
34.          ))
    
35. )

;;//代码块，功能为加载支持AutoCAD的OpenDCL运行库OpenDCL.xx.ARX文件（如果尚无加载，可自动判断AutoCAD版本(32位和64位)并加载相应ARX文件//<br /> ;;注意：如果已经加载或者加载成功后，将返回 T<br /> ;;如果OpenDCL.xx.ARX已经载入，本代码块将不做任何动作。<br /> ;;(dcl-getversionex) 获取OpendDCL版本<br /> ;;(Arxload "OpenDCL.x64.19.arx")<br /> (or (dcl-getversionex)<br />         ((lambda (/ PROC_ARCH ARXNAME ARXVER ARXPATH)<br />                  ;;根据处理器的类型 和 AutoCAD的版本，确定需要加载的ODCL版本。<br />                  (setq ARXNAME<br />                          (strcat "OpenDCL"<br />                                  (if (and (setq PROC_ARCH (getenv "PROCESSOR_ARCHITECTURE")) (< 1 (strlen PROC_ARCH)) (eq "64" (substr PROC_ARCH (1- (strlen PROC_ARCH)))))<br />                                          ".x64."<br />                                          "."<br />                                  )<br />                                  (setq ARXVER (substr (getvar "ACADVER") 1 2))<br />                                  ".arx"<br />                          )<br />                  )<br />                  ;;尝试查找，尝试加载。<br />                  (cond<br />                          ((null (setq ARXPATH (findfile ARXNAME)))<br />                                  ;;警示用户未能找到 zrxfile<br />                                  (alert (strcat "OpenDCL支持文件 " ARXNAME "无法加载。" "\n你需要将它添加到中望CAD的支持路径中。"))<br />                                  (exit)<br />                          )<br />                          ((null (arxload ARXPATH 'NIL))<br />                                  ;;警示用户未能加载 zrxfile<br />                                  (alert (strcat "无法加载 " ARXNAME "。"))<br />                                  (exit)<br />                          )<br />                          (T)<br />                  )<br />          ))<br /> )

这是论坛里大佬写的自动加载程序，出处暂时忘掉了，贴出来供参考。

lxl304712346

希望以后越来越多二开支持中望cad