dwg文件比较，望优化能对比更多对象

jun353835273

论坛dwg文件比较的帖子不是很多，今天发一个文件比较的功能，根据句柄不同判断图形是否一致。由于只判断了句柄，因此图元的位置，颜色改动都无法识别。

2. ;;写入句柄到txt，两个图形都要执行一次写入组码
   
3. (defun c:tt23( / path name newname shell reply ent entg hand i openff ss EL ENTALL)
   
4. (setvar "cmdecho" 0)
   
5. (setq Path (getvar "dwgprefix"))
   
6. (setq newname (strcat path (vl-string-right-trim ".dwg" (getvar "dwgname") ) "句柄.txt"))
   
7. (setq ss (ssget "x"))
   
8. (repeat (setq i (sslength ss))
   
9. (setq ent (ssname ss (setq i (1- i))))
   
10. (setq entg (entget ent))
    
11. (setq el (vl-remove-if
    
12.                     '(lambda (x)
    
13.                        (or
    
14.         (= (car x) 340)                  
    
15.                           (= (car x) 350)                  
    
16.                            ;(/= (car x) 5)                  
    
17.                            (= (car x) -1)                  
    
18.                            (= (car x) 330)                  
    
19.                        )
    
20.                      )
    
21.                     entg
    
22.                   )
    
23.         )
    
24. 
    
25. (setq entall (cons el entall))  ;想把群码写入txt中比较，但不知道怎么将表写入txt？？？
    
26. (setq hand (cons (cdr (assoc 5 entg)) hand));当前只识别句柄，如果图元移动位置或者改色都不能识别
    
27.   )
    
28. (setq openff(open newname  "w"))
    
29. (foreach e hand
    
30. (write-line e openff )
    
31.   )
    
32. (close openff)
    
33. (princ (strcat "写入句柄" newname " 成功"))
    
34. (princ)
    
35. )
    
36. 
    
37. ;;;选择不相同的部分
    
38. (defun c:tt3 (/ getpath en hd name newname oldos openff path ss)
    
39. (setvar "cmdecho" 0)
    
40. (setq oldos (getvar "osmode"))
    
41. (setvar "osmode" 0)
    
42. (setq ss (ssadd))
    
43. (setq getpath(getvar "Dwgprefix") )
    
44. (setq path (getfiled "" (strcat "" getpath "") "txt"   0) )
    
45.     ;读取文件列表
    
46. 
    
47. (setq openff(open path   "r"))
    
48. (while (setq hd (read-line openff)) ;循环读取每一行
    
49. (if (setq en (handent hd));根据句柄判断图形中是否有此对象 如果有就加入选择集
    
50. (setq ss (ssadd en ss))
    
51.      )
    
52.      );_ 结束while
    
53. (close openff)
    
54. (setvar "osmode" oldos)
    
55. (setvar "cmdecho" 1)
    
56. (command ".select" "all" "r" ss "")
    
57. (sssetfirst nil (ssget "p") );反选
    
58. (princ)
    
59.    )
    

;;写入句柄到txt，两个图形都要执行一次写入组码<br /> (defun c:tt23( / path name newname shell reply ent entg hand i openff ss EL ENTALL)<br /> (setvar "cmdecho" 0)<br /> (setq Path (getvar "dwgprefix"))<br /> (setq newname (strcat path (vl-string-right-trim ".dwg" (getvar "dwgname") ) "句柄.txt"))<br /> (setq ss (ssget "x"))<br /> (repeat (setq i (sslength ss))<br /> (setq ent (ssname ss (setq i (1- i))))<br /> (setq entg (entget ent))<br /> (setq el (vl-remove-if<br />                     '(lambda (x)<br />                        (or<br />         (= (car x) 340)                   <br />                           (= (car x) 350)                   <br />                            ;(/= (car x) 5)                   <br />                            (= (car x) -1)                   <br />                            (= (car x) 330)                  <br />                        )<br />                      )<br />                     entg<br />                   )<br />         )<br /> <br /> (setq entall (cons el entall))  ;想把群码写入txt中比较，但不知道怎么将表写入txt？？？<br /> (setq hand (cons (cdr (assoc 5 entg)) hand));当前只识别句柄，如果图元移动位置或者改色都不能识别<br />   )<br /> (setq openff(open newname  "w"))<br /> (foreach e hand<br /> (write-line e openff )<br />   )<br /> (close openff)<br /> (princ (strcat "写入句柄" newname " 成功"))<br /> (princ)<br /> )<br /> <br /> ;;;选择不相同的部分<br /> (defun c:tt3 (/ getpath en hd name newname oldos openff path ss)<br /> (setvar "cmdecho" 0)<br /> (setq oldos (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (setq ss (ssadd))<br /> (setq getpath(getvar "Dwgprefix") )<br /> (setq path (getfiled "" (strcat "" getpath "") "txt"   0) )<br />     ;读取文件列表<br /> <br /> (setq openff(open path   "r"))<br /> (while (setq hd (read-line openff)) ;循环读取每一行<br /> (if (setq en (handent hd));根据句柄判断图形中是否有此对象 如果有就加入选择集<br /> (setq ss (ssadd en ss))<br />      )<br />      );_ 结束while<br /> (close openff)<br /> (setvar "osmode" oldos)<br /> (setvar "cmdecho" 1)<br /> (command ".select" "all" "r" ss "")<br /> (sssetfirst nil (ssget "p") );反选<br /> (princ)<br />    )<br />

panliang9

用tt23生成两个文件的句柄，然后再用tt3调用另一个文件的名柄来找出和本图的不同之处！

想法不错，顶起来，希望楼主的东西能引来更多的好东西！

mikewolf2k

这方法漏洞太多，不靠谱。。。
如楼主所言，只比较句柄，那么只要句柄一样，改颜色图层线宽甚至圆半径顶点什么的，都不能检查。
如果图元删掉原样重画，站在图形角度来说是一样的，但句柄不一样，这个程序会当做不一样。
应该说没有通用的判断图形是否一样的算法，要取决于你的具体情况才能针对性的检查。比如首尾相同的直线和多段线，算不算一样？线宽不一样，算不算一样？

jun353835273

mikewolf2k 发表于 2017-8-16 15:41
这方法漏洞太多，不靠谱。。。
如楼主所言，只比较句柄，那么只要句柄一样，改颜色图层线宽甚至圆半径顶点 ...

确实不靠谱，句柄一样移动了位置或者改了颜色都判断不出来。

mikewolf2k

jun353835273 发表于 2017-8-16 21:57
确实不靠谱，句柄一样移动了位置或者改了颜色都判断不出来。

所以说要针对具体情况。如果确定这批图纸不会有人做移动或者改颜色这种操作，句柄不失为一种判断方法。如果仅有可能改颜色，那么输出句柄和颜色两项进行比较亦可。

半夜星星

能否不开CAD的情况下进行对比呢？