如何实现：全图查找并先中：块名包含 “XX”，块内文字或属性文字包含 “XX”

fengyu6913 · 发表于前天 18:27

如何实现：全图查找并先中：块名包含 “XX”，块内文字或属性文字包含 “XX”，详见附图！

谢谢

xyp1964 · 发表于前天 18:27

本帖最后由 xyp1964 于 2025-3-11 13:47 编辑

(defun c:tt ()
(defun Ustr (bit msg def spflag / inp nval)
(if (and def (/= def ""))
(setq msg (strcat "\n" msg "<" def ">: ")
inp (getstring msg spflag)
inp (if (= inp "")def inp)
)
(progn(setq msg (strcat "\n" msg ": "))
(if (= bit 1)
(while (= "" (setq inp (getstring msg spflag))))
(setq inp (getstring msg spflag))
)
)
)
(if inp inp def)
)
(or tx (setq tx "15"))
(setq tx (Ustr 1 "块名包含的字符串" tx nil)
bn (strcat "*" tx "*")
)
(if (setq ss (ssget "X" (list '(0 . "insert") (cons 2 bn))))
(sssetfirst nil ss)
)
(princ)
)

fengyu6913 · 发表于昨天 09:03

xyp1964 发表于 2025-3-10 20:19

库文件没有

fengyu6913 · 发表于昨天 09:09

以下是两段没达到效果的代码，不知道问题出在哪了

查找块名包含文字
(defun c:SelectBlocksByNameText ( / searchText ss blk ent blkName)
  ;; 提示用户输入要查找的文字
  (setq searchText (getstring "\n请输入要查找的文字: "))
  ;; 创建一个空的选择集
  (setq ss (ssadd))

  ;; 遍历图形中的所有块参照
  (setq blk (ssget "_X" '((0 . "INSERT"))))
  (if blk
(progn
   (setq blk (ssnamex blk))
   (foreach item blk
      (if (eq (type item) 'ENAME)
      (progn
         (setq ent (entget item))
         (setq blkName (cdr (assoc 2 ent))) ; 获取块名
         ;; 检查块名是否包含查找文字，并排除匿名块
         (if (and (wcmatch blkName (strcat "*" searchText "*"))
                  (not (wcmatch blkName "`**"))) ; 排除匿名块
            (ssadd item ss) ; 如果块名匹配，则添加到选择集
         )
      )
      )
   )
)
  )

  ;; 如果找到匹配的块，则选中它们
  (if (> (sslength ss) 0)
(progn
   (princ (strcat "\n找到 " (itoa (sslength ss)) " 个块名包含 \"" searchText "\" 的块。"))
   (sssetfirst nil ss) ; 选中匹配的块
)
(princ (strcat "\n未找到块名包含 \"" searchText "\" 的块。"))
  )
  (princ) ; 静默退出
)

查找块内包含文字或属性文字：
(defun c:findblockwithtext (/ searchtext blockset blockname ent entdata txtvalue found)
  (setq searchtext (getstring T "\n请输入要查找的文字: "))
  (setq blockset (ssget "_X" '((0 . "INSERT"))))
  (setq found nil)

  (if blockset
(progn
   (setq i 0)
   (while (< i (sslength blockset))
      (setq ent (ssname blockset i))
      (setq entdata (entget ent))
      (setq blockname (cdr (assoc 2 entdata)))

      (setq j 0)
      (while (and (not found) (setq ent (entnext ent)))
      (setq entdata (entget ent))
      (if (eq (cdr (assoc 0 entdata)) "MTEXT")
         (progn
            (setq txtvalue (cdr (assoc 1 entdata)))
            (if (wcmatch txtvalue (strcat "*" searchtext "*"))
            (progn
               (setq found T)
               (princ (strcat "\n找到包含文字 '" searchtext "' 的块名: " blockname))
            )
            )
         )
      )
      (setq j (1+ j))
      )
      (setq i (1+ i))
   )
)
  )

  (if (not found)
(princ (strcat "\n未找到包含文字 '" searchtext "' 的块。"))
  )

  (princ)
)

fengyu6913 · 发表于昨天 09:10

“XX”代表要查找的内容

llsheng_73 · 发表于昨天 11:23

本帖最后由 llsheng_73 于 2025-3-11 11:27 编辑

fengyu6913 发表于 2025-3-11 09:09
以下是两段没达到效果的代码，不知道问题出在哪了

查找块名包含文字

大概看了下，第一部分：查找含指定块名的块应该能实现，只是思路不对，正确做法是向院长那样直接通过块名进行选择，由于最后会进行选择，这里先把"*指定内容*"添加到块名表
第二部分：目测楼主代码实现不了，可以通过TblNext得到所有块名，到块定义数据里边去找MTEXT或TEXT进行内容对比（MTEXT的话可能需要去除格式控制字符后再比对），得到需要的块名添加到块名表
第三部分：本来可以和第二部分一并进行，但是块参照带的属性可能不是预定义的，所以需要先选择所有块参照，逐一检查它的属性来进行内容对比，得到需要的块名添加到块名表
最后通过块名表进行选择（把块名表通过strcat连接起来，中间用","分隔）

fengyu6913 · 发表于 1 小时前

xyp1964 发表于 2025-3-10 20:19

感谢院长

账号		自动登录	找回密码
密码			注册

[提问] 如何实现：全图查找并先中：块名包含 “XX”，块内文字或属性文字包含 “XX”

最佳答案

点评

点评

[提问] 如何实现：全图查找并先中：块 名包含 “XX”，块 内文字或属性文字包含 “XX”

最佳答案

点评

点评

[提问] 如何实现：全图查找并先中：块名包含 “XX”，块内文字或属性文字包含 “XX”