各位大神看下，这个选区包含字连线，能否改为只亮显，不连线

664571221

各位大神看下，这个选区包含字连线，能否改为只亮显，不连线，就是选中后有一个夹点显示的亮显，esc取消后就不亮显
(defun c:BHZ123 ()
  "简易查找文本并亮显"
  (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)
•       )
•     (progn
•       (sssetfirst ss ss)
•       (princ (strcat "\n 总共找到 " (itoa (sslength ss)) " 处"))
•     )
•   )
•   (princ)
• )
  

664571221

尘缘一生 发表于 2025-2-12 11:49

;"简易查找文本并亮显"

(defun c:tt ()

  (setq tx (getstring "\n 输入要查找的文本: "))

谢谢陈工......