lisp vla中怎样判定选的对象是单行文字或是多行文字

Answer 1

;试用以下程序
(defun c:test()
(vl-load-com)
(while (setq ent (car (entsel "\n请选择一个文字:")))
(setq obj (vlax-ename->vla-object ent)
nam (vlax-get-property obj "ObjectName")
)
(if (wcmatch nam "AcDb*Text")
(if (= nam "AcDbText")
(alert "所选取文字为单行文本")
(alert "所选取文字为多行文本")
)
(alert "所选取的图元不是文字")

)

)
)