找出所选文字中相同的对象(xtwz)

huangyusen2000

(defun C:xtwz (
             /      xzj    sl            n           sl          xzjmz         dglb        dgwz2
               dgwz   c-zbz  dgzx   m           dglb2  xzjmz2 dgwz3        dgwz4
              )
                                        ;得到一个选择集
  (setq        xzj (ssget "I"
                   (list '(0 . "*TEXT")
                   )
            )
  )
  (setq sl (sslength xzj))                ;得到选择集的长度
  (setq n 0)
  (repeat sl
    (setq xzjmz (ssname xzj n))                ;提取其中一个
    (setq dglb (entget xzjmz))                ;列表
    (setq dgwz (assoc 1 dglb))                ;文字
    (setq dgwz2 (cdr dgwz))
    (setq dgzx (assoc 10 dglb))                ;中心
    (setq c-zbz (cdr dgzx))
    (setq m 0)
    (repeat sl
      (if (= m n)
        (progn
          (setq m (+ m 1))
        )                                ;
        (progn
          (setq xzjmz2 (ssname xzj m))        ;提取其中一个
          (setq dglb2 (entget xzjmz2))        ;列表
          (setq dgwz3 (assoc 1 dglb2))        ;文字
          (setq dgwz4 (cdr dgwz3))
          (if (= dgwz2 dgwz4)
    (hy xzjmz2)

          )                                ;if
          (setq m (+ m 1))
        )                                ;progn
      )                                        ;if
    )                                        ;repeat

    (setq n (+ n 1))
  )                                        ;repeat
)


(defun hy (tym / n xzj-sl c c-data dqtc c-zb)
  (setq c-zbz (cdr (assoc 10 (entget tym))))
  (setq dqtc (getvar "clayer"))
  (setvar "clayer" "WPF_临时")
  (command "circle" c-zbz "700")
  (setvar "clayer" dqtc)
)

fjb54007

很有用 谢谢楼主分享

xvjiex

感谢楼主分享找出所选文字中相同的对象(xtwz)