各位大神，求输入tt，选择多个文字，比如 你好，我好 然后确认后全图选中你好和我好

664571221

xyp1964 发表于 2023-9-25 20:59

(defun c:tt ()
  "参照文本选择"
  (setq tx "")
  (while (setq s1 (car (entsel "\n选择文本: ")))
    (setq tx (strcat tx "," (cdr (assoc 1 (entget s1)))))
  )
  (setq ss (ssget ":S" (list '(0 . "text") (cons 1 tx))))
  (sssetfirst nil ss)
  (princ)
)

wzg356

664571221 发表于 2023-9-25 22:08
哪个帖子，可以发一下吗

http://bbs.mjtd.com/thread-183273-1-1.html