(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)
) 664571221 发表于 2023-9-25 22:08
哪个帖子，可以发一下吗
http://bbs.mjtd.com/thread-183273-1-1.html
页:
1
[2]