如何用autolisp提取cad文件中的所有文字樣式？

(defun get-textstyle ( )

(if (null vlax-dump-object) (vl-load-com) )

(setq txts (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))))

(setq txtl '())

(vlax-for txt txts

(setq txtl (cons (vla-get-name txt) txtl))

)

(reverse txtl)

)

;;函數(get-textstyle)返回的值就是當前圖檔中包含的所有文字樣式的表