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

ddbegg

代码如下，请高手帮忙加一句如何判断如果用户未选中任何图元（目前用户如果点空白的地方，会退出提示：错误: 参数类型错误: lentityp nil）
/ H+ E& P6 l$ r! j% l
1 c6 V# R3 r# J+ Y& |+ p$ f(setq en (entsel "\n请选择文本对象:"))
(setq endata(entget (car en)))
(setq entype(cdr (assoc 0 endata)))
(while (/= entype "TEXT")
  (setq en (entsel "\n对象错误，请重新选择:"))
  (setq endata(entget (car en)))
; h* K+ c/ L/ D  (setq entype(cdr (assoc 0 endata)))
)

Camello

4 @4 t, t* L# Y2 P8 o
2 m" _; g, [" _* [(if (setq en (entsel "\n请选择文本对象:"))
  (选中处理)
  (alert "未选中")
)

/ h* m( t' K  q7 x9 F(entget (car en))  ; 此句若 en 不是图元 ==>错误: 参数类型错误: lentityp nil

ddbegg

回复 2# Camello
  U' V0 C9 U3 m$ [, p

    谢谢