CAD如何“找茬”

s4ns4n

试一下  AutoCAD平面图精灵(APS)    http://www.lulucad.net/

s4ns4n

使用aps的VB快速切换命令，可以肉眼找出图中的不同

caizeping

复制一下，黏贴一下，变个颜色 ，重叠起来，一眼就看出来啦成吗？

蒹葭_Keirll

很好玩的想法，表示支持

hhhlike

看来这个有点难度，再来帮顶一下

smartstar

看来这个真的有难度，这么长时间没有人顶了！

yjr111

建议：把要对比的其中一幅图做成块，然后基点复制粘贴，这样就很容易找了，而且删除也很方便

菡萏

楼主既然在工作中经常需要对两张图进行“找茬 ”，何不给出个找茬的实例，否则像这样空泛的说要找茬，其难度可想而知！难怪这么些天也没人给个建议和思路！更别说给你写程序了！

wiigorq

这个是我们用的类似这样的效果的

wiigorq

wiigorq 发表于 2012-9-11 08:06
这个是我们用的类似这样的效果的

;;;重圆消除 （相同圆心、相同半径）坐标精度为0.01 半径为0.5
;;;========================================
(defun C:dbb (/ SS LST I EN ENL PT10 PT11 A N LST_NEW)
    (if        (setq SS (ssget '((0 . "CIRCLE"))))
        (progn
            ;;组织成表  ((en  pt10  pt11)...)
            (setq LST '()
                  I   0
            )
            (repeat (sslength SS)
                (setq EN   (ssname SS I)
                      ENL  (entget EN)
                      PT10 (cdr (assoc 10 ENL))
                      r           (cdr (assoc 40 ENL))
                )
                (setq LST (cons (list EN PT10 r) LST))
                (setq I (1+ I))
            )
            ;;逐个对比
            (while LST
                ;;取首个
                (setq A          (car LST)
                      LST (cdr LST)
                )
                ;;对比
                (setq LST_NEW '())
                (foreach N LST
                    (if        (and (equal (cadr A) (cadr N) 0.01)
                             (equal (caddr A) (caddr N) 1))(progn (entdel (car A))
                        (entdel (car N))) ;_删除实体
                        (setq LST_NEW (cons N LST_NEW))
                    )
                )
                ;;
                (setq LST LST_NEW)
            )
        )
    )
    (princ)
)

;;这是参照某位大师删除同圆改写的

还可以参照命令overkill 这个可能对你有用些