Topic: Best way to compare 2 drawings

[ronjonp]

And you could go the code route to compare the layers

Code - Auto/Visual Lisp: [Select]

1. (defun c:comparelayers (/ a adoc b doc dwg l lay lprops ll ll2 name odbx out props props2 v x)
2.   (vl-load-com)
3.   (setq adoc (vla-get-activedocument (setq doc (vlax-get-acad-object))))
4.   (setq lprops '("Color" "Freeze" "LayerOn" "Linetype" "Lineweight" "Lock"
5.                  ;; "PlotStyleName"
6.                  "Plottable")
7.   )
8.   (vlax-for x (vla-get-layers adoc)
9.     (if (not (wcmatch (vla-get-name x) "*|*"))
10.       (setq ll
11.              (cons
12.                (list (strcase (vla-get-name x)) (mapcar '(lambda (l) (cons l (vlax-get x l))) lprops))
13.                ll
14.              )
15.       )
16.     )
17.   )
18.   (cond
19.     ((or
20.        (null (setq dwg (getfiled "Select a drawing to compare layers:" (getvar 'dwgprefix) "dwg" 16))
21.        )
22.        (= dwg "")
23.      )
24.      (print "Bye..")
25.     )
26.     ((null (setq odbx (cond ((< (setq v (substr (getvar 'acadver) 1 2)) "16")
27.                              (vla-getinterfaceobject doc "ObjectDBX.AxDbDocument")
28.                             )
29.                             ((vla-getinterfaceobject doc (strcat "ObjectDBX.AxDbDocument." v)))
30.                       )
31.            )
32.      )
33.      (print "ObjectDBX.AxDbDocument could NOT be created!")
34.     )
35.     ((vl-catch-all-error-p (vl-catch-all-apply 'vla-open (list odbx dwg)))
36.      (print (strcase (strcat "*Error opening*: " dwg)))
37.     )
38.     ((vlax-for lay (vla-get-layers odbx)
39.        (setq name (strcase (vla-get-name lay)))
40.        (cond ((null (setq props (cadr (assoc name ll))))
41.               (print (strcat name " not in current drawing..."))
42.              )
43.              ((equal (setq props2 (mapcar '(lambda (x) (cons x (vlax-get lay x))) lprops)) props)
44.               (setq ll (vl-remove (list name props) ll))
45.               (print (strcat name " matches..."))
46.              )
47.              ((print (strcat name " different..."))
48.               (setq ll (vl-remove (list name props) ll))
49.               (mapcar '(lambda (a b)
50.                          (if (not (equal a b))
51.                            (print (strcat (vl-princ-to-string (car a))
52.                                           ": "
53.                                           (vl-princ-to-string (cdr a))
54.                                           " -> "
55.                                           (vl-princ-to-string (cdr b))
56.                                   )
57.                            )
58.                          )
59.                        )
60.                       props2
61.                       props
62.               )
63.              )
64.        )
65.      )
66.      (mapcar '(lambda (x) (print (strcat (car x) " not in other drawing..."))) ll)
67.      (vlax-release-object odbx)
68.     )
69.   )
70.   (princ)
71. )

[Jeff H]

I did not know you can export the layer state into excel. The two drawings have the same Named Layers but the colors - on - off are different.

Import Data...from TXT

the formatting is messy but it will import.


Upon thinking about it the Cad Standards checker is probably the better option
as it would allow comparing a >>> b

and b >>>>a

just to catch difference (changes) in either direction

Just go to layer palette and
Ctrl+A(select all)
Ctrl+C(copy)

Then open excel
Ctrl+V(paste)


Then delete all rows except name and whatever else you want.
Select all and format as table and then you filtering added easy and you can make two tables align by value to compare