[求助]：为什么会有双重同样的字?

yugarden511

把一个字删了,它原位置下还有个一样的,还要删一次,为啥?

已搜过.

zxdcad

晕！！！！不是你干的，就是有人给你帮你干的！

yugarden511

?你说什么啊?
是结构图啊,我是做水电的.当然要别人的土建图了.
你没回答啊?

rwwsh_q

你可能用的是由pkpm转过来的图，这是软件的问题，跟你无关。你可以试着用天正建筑里面的消除重线功能，如果还不行，就只好劳神挨个删了。

teyjzy_yl

消除重线不行，因为楼主说的是重合的文字。“探索者”有个“消重实体”，楼主可以试试。
若没有探索者的话，用下面这段小程序也可以。
[PHP](defun c:dp()
   (defun fld(num lst)
      (cdr (assoc num lst))
   )
   (setvar "blipmode" 0)
   (princ "\n\nErase the same object !")
   (setq ss(ssget))
   (if ss(setq ll(sslength ss)))
   (while (and ss (> ll 1))
      (princ "Please waiting...")
      (setq nn0 -1)
      (while (< nn0 (- ll 2))
            (setq nn0(+ nn0 1))
            (setq si(ssname ss nn0))
            (setq cc(entget si))
            (setq t0(fld 0 cc))
            (setq t1(fld 1 cc))
            (setq t7(fld 7 cc))
            (setq t8(fld 8 cc))
            (setq t10(fld 10 cc))
            (setq t11(fld 11 cc))
            (setq t38(fld 38 cc))
            (setq t39(fld 39 cc))
            (setq t40(fld 40 cc))
            (setq t41(fld 41 cc))
            (setq t42(fld 42 cc))
            (setq t50(fld 50 cc))
            (setq t67(fld 67 cc))
            (setq t72(fld 72 cc))
            (setq t73(fld 73 cc))
            (setq t90(fld 90 cc))
            (setq nn1 nn0)
            (while (< nn1 (- ll 1))
               (setq nn1(+ nn1 1))
               (setq si1(ssname ss nn1))
               (setq cc1(entget si1))
               (setq e0(fld 0 cc1))
               (setq e1(fld 1 cc1))
               (setq e7(fld 7 cc1))
               (setq e8(fld 8 cc1))
               (setq e10(fld 10 cc1))
               (setq e11(fld 11 cc1))
               (setq e38(fld 38 cc1))
               (setq e39(fld 39 cc1))
               (setq e40(fld 40 cc1))
               (setq e41(fld 41 cc1))
               (setq e42(fld 42 cc1))
               (setq e50(fld 50 cc1))
               (setq e67(fld 67 cc1))
               (setq e72(fld 72 cc1))
               (setq e73(fld 73 cc1))
               (setq e90(fld 90 cc1))
               (if (and (= t0 e0)(= t1 e1))(progn
               (if (and (= t7 e7)(= t8 e8))(progn
               (if (= (car  t10) (car  e10))(progn
               (if (= (cadr t10) (cadr e10))(progn
               (if (= (car  t11) (car  e11))(progn
               (if (= (cadr t11) (cadr e11))(progn
               (if (and (= t38 e38)(= t39 e39))(progn
               (if (and (= t40 e40)(= t41 e41))(progn
               (if (and (= t42 e42)(= t90 e90))(progn
               (if (and (= t50 e50)(= t67 e67))(progn
               (if (and (= t72 e72)(= t73 e73))(progn
                  (setq nn1(- nn1 1))
                  (setq ll(- ll 1))
                  (ssdel si1 ss)
                  (entdel si1)
               )))))))))))
               )))))))))))
            )
      )
   (princ " OK ! \n")
   (setq ss(ssget))
   (if ss (setq ll(sslength ss)))
   )
)[/PHP]

yugarden511

多谢各位,会试一下.