有什么办法从CAD中复制文字（一次性复制大量不同处的文字）

工具---快速选择--按对象类型。

你的文字要在同一个图层
要不你就慢慢选择吧
好像可以按属性选择，不过会把所有符合属性的都选上的！

(defun c:pt(/ ent_set set_length pn_ent ent )
(princ "请选择要print的文字：")
(setq ent_set (ssget '((0 . "TEXT,MTEXT"))))

(setq set_length (sslength ent_set))

(while (> set_length 0)

(setq pn_ent (ssname ent_set (- set_length 1)))

(setq ent(entget pn_ent))

;(princ ent)
(princ "\n")
(princ (cdr (nth 11 ent)))
(princ "\n")
(setq set_length (- set_length 1))
)
(princ)
)