求：包含文字 “XXX” 的全部文字查找并连线的程序

fengyu6913 · 发表于 2025-1-14 18:23:36

求：包含文字 “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)
)

xyp1964 · 发表于 2025-1-14 18:23:37

(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)
)

(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:23:53

本帖最后由 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 · 发表于 7 天前

本帖最后由 llsheng_73 于 2025-1-15 09:04 编辑

xyp1964 发表于 2025-1-14 20:08

对于MTEXT,各字符受不同格式控制是经常的事吧？
但是快速选择命令、find命令都能忽略这些格式控制，lsp不知道怎么忽略格式控制字符，只能想到选择所有mtext后通过去除格式控制字符再去比对

fengyu6913 · 发表于 7 天前

xyp1964 发表于 2025-1-14 18:23

感谢 xyp1964 大佬

大佬厉害

paulpipi · 发表于 7 天前

感谢大佬出手

puzb2023 · 发表于前天 21:09

大佬厉害,非常好用

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

[提问] 求：包含文字 “XXX” 的全部文字查找并连线的程序

最佳答案

本帖子中包含更多资源

点评