如何用autolisp提取cad文件中的所有文字样式 – java – 前端

(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)返回的值就是当前图档中包含的所有文字样式的表