如何实现：全图查找并先中：块 名包含 “XX”，块 内文字或属性文字包含 “XX”
如何实现：全图查找并先中：块 名包含 “XX”，块 内文字或属性文字包含 “XX”，详见附图！谢谢
本帖最后由 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)
)
xyp1964 发表于 2025-3-10 20:19
库文件没有 以下是两段没达到效果的代码，不知道问题出在哪了
查找块名包含文字
(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)
) “XX”代表要查找的内容 本帖最后由 llsheng_73 于 2025-3-11 11:27 编辑
fengyu6913 发表于 2025-3-11 09:09
以下是两段没达到效果的代码，不知道问题出在哪了
查找块名包含文字
大概看了下，第一部分：查找含指定块名的块应该能实现，只是思路不对，正确做法是向院长那样直接通过块名进行选择，由于最后会进行选择，这里先把"*指定内容*"添加到块名表
第二部分：目测楼主代码实现不了，可以通过TblNext得到所有块名，到块定义数据里边去找MTEXT或TEXT进行内容对比（MTEXT的话可能需要去除格式控制字符后再比对），得到需要的块名添加到块名表
第三部分：本来可以和第二部分一并进行，但是块参照带的属性可能不是预定义的，所以需要先选择所有块参照，逐一检查它的属性来进行内容对比，得到需要的块名添加到块名表
最后通过块名表进行选择（把块名表通过strcat连接起来，中间用","分隔） xyp1964 发表于 2025-3-10 20:19
感谢院长
页:
[1]