如何判断是否用户是否选中文本

ddbegg

代码如下，请高手帮忙加一句如何判断如果用户未选中任何图元（目前用户如果点空白的地方，会退出提示：错误: 参数类型错误: lentityp nil）
- Q  K9 W4 G" Q- z# j
(setq en (entsel "\n请选择文本对象:"))
. N# |  w* i3 n8 V( b, E9 I (setq endata(entget (car en)))
(setq entype(cdr (assoc 0 endata)))
(while (/= entype "TEXT")
  (setq en (entsel "\n对象错误，请重新选择:"))
* m2 f7 m' T+ ^( H  (setq endata(entget (car en)))
  (setq entype(cdr (assoc 0 endata)))
4 O8 ^) R$ L5 i)

Camello

: S% |2 d, G) T0 p/ I+ a6 N$ |# l. _
; u  A6 p6 }& D/ C* k(if (setq en (entsel "\n请选择文本对象:"))
  (选中处理)
  (alert "未选中")
( I+ [" @, {: p% ~2 ^0 I/ s8 ~)

(entget (car en))  ; 此句若 en 不是图元 ==>错误: 参数类型错误: lentityp nil

ddbegg

回复 2# Camello
& {* u2 R2 S/ J7 r

    谢谢