基于中望CAD二次开发的实践分享

njcknfy

做了二十多年AutoCAD的二次开发，随着公司采购中望CAD替代AutoCAD（主要是AutoCAD采用按年租用方式比较恶心），一年多的时间一直在做将原有AutoCAD二次开发的功能和代码移植到中望CAD环境中来，目前基本完成了，抽出时间整理了一下实践经验，在这里和大家分享交流。
首先分享个重要的工具，这个程序是将用LISP二次开发的VLX和FAS程序可以转换至中望CAD支持的VLS的工具，原来AutoCAD加载程序appload后加载的vlx或fas后缀的程序，在中望CAD里是加载vls后缀的程序。

njcknfy

分享个如何获取对象RGB颜色列表和给对象添加RGB颜色的LISP方法
以下是获取对象的RGB颜色列表

2. (defun Get_TXSTRGBCOLOR         (TXST_NAME)
   
3. ;;;获取对象的RGB颜色列表
   
4. ;;;(Get_TXSTRGBCOLOR TXST_NAME)
   
5. ;;;参数: TXST_NAME 对象是 ENAME 或者 VLA-OBJECT
   
6. ;;;(setq TXST_NAME(car(entsel)))
   
7.   (cond        ((= (type TXST_NAME) 'VLA-OBJECT)
   
8.          (progn        (setq TXST_OBJ TXST_NAME
   
9.                       oColor   (vlax-get-property TXST_OBJ 'TrueColor)
   
10.                       clrR     (vlax-get-property oColor 'Red)
    
11.                       clrG     (vlax-get-property oColor 'Green)
    
12.                       clrB     (vlax-get-property oColor 'Blue))
    
13.                 (setq TXSTRGB_LIST (list clrR clrG clrB))))
    
14.         ((= (type TXST_NAME) 'ENAME)
    
15.          (progn        (setq TXST_OBJ (vlax-ename->vla-object TXST_NAME))
    
16.                 (setq oColor (vlax-get-property TXST_OBJ 'TrueColor)
    
17.                       clrR   (vlax-get-property oColor 'Red)
    
18.                       clrG   (vlax-get-property oColor 'Green)
    
19.                       clrB   (vlax-get-property oColor 'Blue))
    
20.                 (setq TXSTRGB_LIST (list clrR clrG clrB))))
    
21.         (t (setq TXSTRGB_LIST nil)))
    
22.   TXSTRGB_LIST)

(defun Get_TXSTRGBCOLOR         (TXST_NAME)<br /> ;;;获取对象的RGB颜色列表<br /> ;;;(Get_TXSTRGBCOLOR TXST_NAME)<br /> ;;;参数: TXST_NAME 对象是 ENAME 或者 VLA-OBJECT<br /> ;;;(setq TXST_NAME(car(entsel)))<br />   (cond        ((= (type TXST_NAME) 'VLA-OBJECT)<br />          (progn        (setq TXST_OBJ TXST_NAME<br />                       oColor   (vlax-get-property TXST_OBJ 'TrueColor)<br />                       clrR     (vlax-get-property oColor 'Red)<br />                       clrG     (vlax-get-property oColor 'Green)<br />                       clrB     (vlax-get-property oColor 'Blue))<br />                 (setq TXSTRGB_LIST (list clrR clrG clrB))))<br />         ((= (type TXST_NAME) 'ENAME)<br />          (progn        (setq TXST_OBJ (vlax-ename->vla-object TXST_NAME))<br />                 (setq oColor (vlax-get-property TXST_OBJ 'TrueColor)<br />                       clrR   (vlax-get-property oColor 'Red)<br />                       clrG   (vlax-get-property oColor 'Green)<br />                       clrB   (vlax-get-property oColor 'Blue))<br />                 (setq TXSTRGB_LIST (list clrR clrG clrB))))<br />         (t (setq TXSTRGB_LIST nil)))<br />   TXSTRGB_LIST)

以下是给对象添加RGB颜色列表的方法

2. (defun Put_TXSTRGBCOLOR   (TXST_NAME TXSTRGB_LIST)
   
3. ;;;修改对象RGB颜色值
   
4. ;;;(Put_TXSTRGBCOLOR TXST_NAME TXSTRGB_LIST)
   
5. ;;;参数: TXST_NAME-对象是 ENAME 或者 VLA-OBJECT, TXSTRGB_LIST-对象实体的RGB颜色列表(R G B)
   
6. ;;;(setq TXST_NAME(car(entsel)) TXSTRGB_LIST (list 140 30 252))
   
7.   (cond  ((= (type TXST_NAME) 'VLA-OBJECT)
   
8.    (progn  (setq TXST_OBJ TXST_NAME
   
9.           oColor   (vlax-get-property TXST_OBJ 'TrueColor))
   
10.     (vlax-invoke-method oColor
    
11.             'SetRGB
    
12.             (car TXSTRGB_LIST)
    
13.             (cadr TXSTRGB_LIST)
    
14.             (caddr TXSTRGB_LIST))
    
15.     (vlax-put-property TXST_OBJ 'TrueColor oColor)
    
16.     (vla-update TXST_OBJ)))
    
17.   ((= (type TXST_NAME) 'ENAME)
    
18.    (progn  (setq TXST_OBJ (vlax-ename->vla-object TXST_NAME))
    
19.     (setq oColor (vlax-get-property TXST_OBJ 'TrueColor))
    
20.     (vlax-invoke-method oColor
    
21.             'SetRGB
    
22.             (car TXSTRGB_LIST)
    
23.             (cadr TXSTRGB_LIST)
    
24.             (caddr TXSTRGB_LIST))
    
25.     (vlax-put-property TXST_OBJ 'TrueColor oColor)
    
26.     (vla-update TXST_OBJ)
    
27.     (setq TXST_NAME (vlax-vla-object->ename TXST_OBJ))))
    
28.   (t TXST_NAME))
    
29.   TXST_NAME)

(defun Put_TXSTRGBCOLOR   (TXST_NAME TXSTRGB_LIST)<br /> ;;;修改对象RGB颜色值<br /> ;;;(Put_TXSTRGBCOLOR TXST_NAME TXSTRGB_LIST)<br /> ;;;参数: TXST_NAME-对象是 ENAME 或者 VLA-OBJECT, TXSTRGB_LIST-对象实体的RGB颜色列表(R G B)<br /> ;;;(setq TXST_NAME(car(entsel)) TXSTRGB_LIST (list 140 30 252))<br />   (cond  ((= (type TXST_NAME) 'VLA-OBJECT)<br />    (progn  (setq TXST_OBJ TXST_NAME<br />           oColor   (vlax-get-property TXST_OBJ 'TrueColor))<br />     (vlax-invoke-method oColor<br />             'SetRGB<br />             (car TXSTRGB_LIST)<br />             (cadr TXSTRGB_LIST)<br />             (caddr TXSTRGB_LIST))<br />     (vlax-put-property TXST_OBJ 'TrueColor oColor)<br />     (vla-update TXST_OBJ)))<br />   ((= (type TXST_NAME) 'ENAME)<br />    (progn  (setq TXST_OBJ (vlax-ename->vla-object TXST_NAME))<br />     (setq oColor (vlax-get-property TXST_OBJ 'TrueColor))<br />     (vlax-invoke-method oColor<br />             'SetRGB<br />             (car TXSTRGB_LIST)<br />             (cadr TXSTRGB_LIST)<br />             (caddr TXSTRGB_LIST))<br />     (vlax-put-property TXST_OBJ 'TrueColor oColor)<br />     (vla-update TXST_OBJ)<br />     (setq TXST_NAME (vlax-vla-object->ename TXST_OBJ))))<br />   (t TXST_NAME))<br />   TXST_NAME)

njcknfy

类似ACAD加载ARX文件，中望CAD环境下也可以加载后缀为ZRX的文件，实现调用OPENDCL和DOSLIB插件，这边就分享一下基于ZWCAD2023for64位的ZRX，加载的方法就是命令行APPLOAD，选择下载附件解压缩后的ZRX文件，我们在实现ACAD二次开发迁移到ZWCAD时进行了充分测试，大部分功能都没啥问题，就是要注意ZWCAD的版本需要时2022年9月30日之后的版本，之前的ZWCAD版本LISP接口BUG比较多，好多功能不支持

tzan8752

谢谢版主

王阿非

C++移植基本不用做什么修改

cjh20088

版主这个很实用，支持

yuyehuan

贴主，转化失败怎么弄呢

xiaguohe

感谢分享
！！！！!

njcknfy

yuyehuan 发表于 2023-6-15 10:20
贴主，转化失败怎么弄呢

这个不会失败啊，原来在ACADLISP里面编译好的VLX，直接转换成VLS我还没有遇到失败的情况

njcknfy

基于中望CAD环境定制菜单栏和使用OPENDCL定制界面都是可以实现的，我们现在也在参与一些单位CAD国产化的二次开发改造项目，原来基于ACAD开发的ARX、LISP，VB.NET等都已经有实现的案例，有需要的单位欢迎项目咨询（友情提示：二次开发改造项目是按需收费），中望CAD还支持在国产操作系统下运行，我们正在做基于国产操作系统的二次开发迁移改造方法，希望有兴趣的朋友可以一起来参与