求：包含文字 “XXX” 的全部文字查找并连线的程序
求：包含文字 “XXX” 的全部文字查找并连线的程序以下为本站找到地借鉴代码，希望加入连线功能：
;;; tt 简易查找文本并亮显 by yjr111 2012-5-14
(defun c:tt (/ stxt s1 ent ss )
(setq stxt (getstring "\n输入要查找的文本<右键选取>:"))
(cond((and (= stxt "")
(setq s1 (entsel "\n选择标记 :"))
(setq ent (entget (car s1)))
(= (cdr (assoc 0 ent)) "TEXT")
)
(redraw (car s1) 3)
(setq stxt (cdr (assoc 1 (entget (car s1)))))
)
)
(setq ss (ssget"x"(list '(0 . "MTEXT,TEXT") (cons 1 (strcat "*" stxt "*")))))
(if (and ss (> (sslength ss) 0))
(progn (princ (list "\n总共找到" (sslength ss) "处"))
(sssetfirst ss ss)
)
)
(princ)
)
(defun c:tt ()
"简易查找文本并亮显"
(setq tx (getstring "\n输入要查找的文本<右键选取>: "))
(cond ((and (= tx "")
(setq s1 (entsel "\n选择标记: "))
(= (cdr (assoc 0 (entget (car s1)))) "TEXT")
)
(redraw (car s1) 3)
(setq tx (cdr (assoc 1 (entget (car s1)))))
)
)
(if (and tx
(/= tx "")
(setq ss (ssget "x"
(list '(0 . "MTEXT,TEXT") (cons 1 (strcat "*" tx "*")))
)
)
(> (sslength ss) 0)
(setq p0 (getpoint "\n基点<退出>: "))
)
(progn
(setq i -1)
(princ (strcat "\n总共找到 " (itoa (sslength ss)) " 处"))
(sssetfirst ss ss)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (cdr (assoc 10 (entget s1))))
(command "line" "non" pt "non" p0 "")
)
)
)
(princ)
) 本帖最后由 llsheng_73 于 2025-1-14 20:27 编辑
(ssget"x"(list '(0 . "MTEXT,TEXT") (cons 1 (strcat "*" stxt "*"))))
对于MTEXT中形似神非的情况，过滤会失效，下边这个图中，有一个mtext,一眼看去内容和那个text的内容完全相同，都是"123456"，
但按上边的方法对"234"过滤却没选到MTEXT,因为中间夹杂了其它格式控制字符，完整的内容是"{\\fNSimSun|b0|i0|c134|p49;12\\fSimSun|b0|i0|c134|p2;3\\fNSimSun|b0|i0|c134|p49;456}",而不是肉眼直接看到的"123456"，所以过滤失效
本帖最后由 llsheng_73 于 2025-1-15 09:04 编辑
xyp1964 发表于 2025-1-14 20:08
对于MTEXT,各字符受不同格式控制是经常的事吧？
但是快速选择命令、find命令都能忽略这些格式控制，lsp不知道怎么忽略格式控制字符，只能想到选择所有mtext后通过去除格式控制字符再去比对 xyp1964 发表于 2025-1-14 18:23
感谢 xyp1964 大佬
大佬厉害 感谢大佬出手 大佬厉害,非常好用 院长代码简洁明了 大佬厉害,非常好用
页:
[1]