[编程申请]：斑竹能编这样的程序吗？

空三

两张CAD图形对比，找出其不同之处，最好将不同之处单独显示、保存

eachy

最初由 空三 发布
[B]两张CAD图形对比，找出其不同之处，最好将不同之处单独显示、保存 [/B]

利用2000以上多文档环境可以完成部分比较，但不是全部，举个例子，当前图形是A，和另外的图B比较，假如B图形中有的实体A中没有怎么显示和保存？


_$ (setq docs (vla-get-documents (vlax-get-acad-object)))
#<VLA-OBJECT IAcadDocuments 1911fa40>
_$ (vla-get-name (vla-item docs 0))
"Drawing1.dwg"
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 0)))
((-1 . <图元名: 7ef5bce8>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "1D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbBlockReference") (2 . "AR3_INFO") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 1)))
((-1 . <图元名: 7ef5d018>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "BB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 1) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 3)))
((-1 . <图元名: 7ef5d028>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "BD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 4) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 4)))
((-1 . <图元名: 7ef5d030>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "BE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 5) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 5)))
((-1 . <图元名: 7ef5d038>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "BF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 6) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 6)))
((-1 . <图元名: 7ef5d040>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "C0") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 7) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 7)))
((-1 . <图元名: 7ef5d048>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "C1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 8) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 8)))
((-1 . <图元名: 7ef5d050>) (0 . "INSERT") (330 . <图元名: 7ef5bc10>) (5 . "C2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASHADE") (62 . 9) (100 . "AcDbBlockReference") (2 . "AVE_RENDER") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
_$ (entget (vlax-vla-object->ename (vla-item (vla-get-modelspace (vla-item docs 0)) 10)))
((-1 . <图元名: 7ef5d290>) (0 . "SPLINE") (330 . <图元名: 7ef5bc10>) (5 . "15A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbSpline") (210 0.0 0.0 1.0) (70 . 8) (71 . 3) (72 . 14) (73 . 10) (74 . 0) (42 . 1.0e-010) (43 . 1.0e-010) (40 . 2172.24) (40 . 2172.24) (40 . 2172.24) (40 . 2172.24) (40 . 7424.84) (40 . 16080.7) (40 . 23593.4) (40 . 30469.3) (40 . 44327.8) (40 . 54254.0) (40 . 59095.4) (40 . 59095.4) (40 . 59095.4) (40 . 59095.4) (10 19086.1 8326.05 0.0) (10 21874.6 11135.3 0.0) (10 22786.6 15803.8 0.0) (10 31619.8 12716.7 0.0) (10 39489.1 7321.8 0.0) (10 43763.1 20944.2 0.0) (10 29822.8 20436.2 0.0) (10 16984.9 20538.8 0.0) (10 18697.0 15079.6 0.0) (10 19258.4 13289.8 0.0))
_$

空三

我说的“两张图”主要是指同一图形经不同时期、不同人修改（或删加）后产生差异，需要设法快速区分改动内容的情况。

eachy

最初由 空三 发布
[B]我说的“两张图”主要是指同一图形经不同时期、不同人修改（或删加）后产生差异，需要设法快速区分改动内容的情况。 [/B]

这样的倒是可以试试，不过要下周以后才有时间考虑复杂的程序。

Cyberyll

如果不都是DWG图呢,比如一张是,而另一张不是!!

eachy

最初由 Cyberyll 发布
[B]如果不都是DWG图呢,比如一张是,而另一张不是!! [/B]

开什么玩笑，DWG和TXT比较什么？

提供一种思路。使用方法： 首先打开其中的一张图，加载以下代码，执行命令选择要比较的文件，第二个图形修改的实体以红色显示，打开的图形中不同的实体显示黄色，两种实体位于特殊的图层。

2. 
   
3. (defun c:Compfl
   
4.        (/ cel cfi chd cms e eacad el el1 hd hdl ms thisdrawing)
   
5.   (if (setq fi (getfiled "选择比较文件" "Dwg" "" 9))
   
6.     (progn
   
7.       (setq eAcad        (vlax-get-acad-object)
   
8.             docs        (vla-get-documents eAcad)
   
9.             thisdrawing        (vlax-get-property eAcad 'activedocument)
   
10.             ms                (vla-get-modelspace thisdrawing)
    
11.       )
    
12.       (vla-open docs fi :vlax-false)
    
13.       (setq cFi        (vla-item docs (strcat (vl-filename-base fi) ".dwg"))
    
14.             cMs        (vla-get-modelspace cfi)
    
15.       )
    
16.       ;;检查彼图修改的实体
    
17.       (vlax-for        i cMs
    
18.         (setq cel (entget (vlax-vla-object->ename i))
    
19.               cel (vl-remove-if
    
20.                     '(lambda (x)
    
21.                        (or (= (car x) 62) ;去除颜色
    
22.                            (= (car x) 8) ;去除层
    
23.                            (= (car x) 6) ;去除线形
    
24.                            (= (car x) -1) ;Entity Name
    
25.                            (= (car x) 330) ;扩展，不好比较
    
26.                        )
    
27.                      )
    
28.                     cel
    
29.                   )
    
30.               chd (vla-get-handle i)
    
31.               e          (handent chd)                ;当前图形中的实体
    
32.         )
    
33.         (if e
    
34.           (progn
    
35.             (setq el (vl-remove-if
    
36.                        '(lambda        (x)
    
37.                           (or (= (car x) 62) ;去除颜色
    
38.                               (= (car x) 8) ;去除层
    
39.                               (= (car x) 6) ;去除线形
    
40.                               (= (car x) -1) ;Entity Name
    
41.                               (= (car x) 330) ;扩展，不好比较
    
42.                           )
    
43.                         )
    
44.                        (entget e)
    
45.                      )
    
46.             )
    
47.             (if        (not (equal cel el))
    
48.               (entmake (append cel '((8 . "Ea_cchg_lyr") (62 . 1))))
    
49.             )
    
50.             (setq hdl (cons chd hdl))
    
51.           )
    
52.           (entmake (append cel '((8 . "Ea_cchg_lyr") (62 . 1))))
    
53.         )
    
54.       )
    
55.       ;;检查此图修改的实体
    
56.       (vlax-for        c ms
    
57.         (setq hd (vla-get-handle c))
    
58.         (if (and (not (vl-position hd hdl))
    
59.                  (/= (strcase (vla-get-layer c)) "EA_CCHG_LYR")
    
60.             )
    
61.           (progn
    
62.             (setq el1 (entget (vlax-vla-object->ename c)))
    
63.             (if        (setq cel1 (assoc 62 el1))
    
64.               (setq el1        (subst '(62 . 2)
    
65.                                cel1
    
66.                                el1
    
67.                         )
    
68.               )
    
69.               (setq el1 (append el1 '((62 . 2))))
    
70.             )
    
71.             (entmake (subst '(8 . "Ea_nchg_lyr")
    
72.                             (assoc 8 el1)
    
73.                             el1
    
74.                      )
    
75.             )
    
76.           )
    
77.         )
    
78.       )
    
79.       (vla-close (vla-item docs (strcat (vl-filename-base fi) ".dwg"))
    
80.                  :vlax-false
    
81.       )
    
82.     )
    
83.   )
    
84.   (princ)
    
85. )

<br /> (defun c:Compfl<br />        (/ cel cfi chd cms e eacad el el1 hd hdl ms thisdrawing)<br />   (if (setq fi (getfiled "选择比较文件" "Dwg" "" 9))<br />     (progn<br />       (setq eAcad        (vlax-get-acad-object)<br />             docs        (vla-get-documents eAcad)<br />             thisdrawing        (vlax-get-property eAcad 'activedocument)<br />             ms                (vla-get-modelspace thisdrawing)<br />       )<br />       (vla-open docs fi :vlax-false)<br />       (setq cFi        (vla-item docs (strcat (vl-filename-base fi) ".dwg"))<br />             cMs        (vla-get-modelspace cfi)<br />       )<br />       ;;检查彼图修改的实体<br />       (vlax-for        i cMs<br />         (setq cel (entget (vlax-vla-object->ename i))<br />               cel (vl-remove-if<br />                     '(lambda (x)<br />                        (or (= (car x) 62) ;去除颜色<br />                            (= (car x) 8) ;去除层<br />                            (= (car x) 6) ;去除线形<br />                            (= (car x) -1) ;Entity Name<br />                            (= (car x) 330) ;扩展，不好比较<br />                        )<br />                      )<br />                     cel<br />                   )<br />               chd (vla-get-handle i)<br />               e          (handent chd)                ;当前图形中的实体<br />         )<br />         (if e<br />           (progn<br />             (setq el (vl-remove-if<br />                        '(lambda        (x)<br />                           (or (= (car x) 62) ;去除颜色<br />                               (= (car x) 8) ;去除层<br />                               (= (car x) 6) ;去除线形<br />                               (= (car x) -1) ;Entity Name<br />                               (= (car x) 330) ;扩展，不好比较<br />                           )<br />                         )<br />                        (entget e)<br />                      )<br />             )<br />             (if        (not (equal cel el))<br />               (entmake (append cel '((8 . "Ea_cchg_lyr") (62 . 1))))<br />             )<br />             (setq hdl (cons chd hdl))<br />           )<br />           (entmake (append cel '((8 . "Ea_cchg_lyr") (62 . 1))))<br />         )<br />       )<br />       ;;检查此图修改的实体<br />       (vlax-for        c ms<br />         (setq hd (vla-get-handle c))<br />         (if (and (not (vl-position hd hdl))<br />                  (/= (strcase (vla-get-layer c)) "EA_CCHG_LYR")<br />             )<br />           (progn<br />             (setq el1 (entget (vlax-vla-object->ename c)))<br />             (if        (setq cel1 (assoc 62 el1))<br />               (setq el1        (subst '(62 . 2)<br />                                cel1<br />                                el1<br />                         )<br />               )<br />               (setq el1 (append el1 '((62 . 2))))<br />             )<br />             (entmake (subst '(8 . "Ea_nchg_lyr")<br />                             (assoc 8 el1)<br />                             el1<br />                      )<br />             )<br />           )<br />         )<br />       )<br />       (vla-close (vla-item docs (strcat (vl-filename-base fi) ".dwg"))<br />                  :vlax-false<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Cyberyll

比如我的另一张图是用可视化图纸V1.0做出来的

eachy

最初由 Cyberyll 发布
[B]比如我的另一张图是用可视化图纸V1.0做出来的 [/B]

与Unknown联系。你要把 Exe 文件都读出来，VDmaker 还卖什么？

空三

等待斑竹。。。。。。