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

ddbegg

代码如下，请高手帮忙加一句如何判断如果用户未选中任何图元（目前用户如果点空白的地方，会退出提示：错误: 参数类型错误: lentityp nil）

  K# [0 x1 V7 X% v$ L7 o/ W(setq en (entsel "\n请选择文本对象:"))
(setq endata(entget (car en)))
% V; o& j7 v7 Z(setq entype(cdr (assoc 0 endata)))
(while (/= entype "TEXT")
8 [( [! K9 C* Z; v9 Y$ E' _  (setq en (entsel "\n对象错误，请重新选择:"))
3 j' W& g6 m0 \  (setq endata(entget (car en)))
7 [4 K3 B" E' N1 I3 W  (setq entype(cdr (assoc 0 endata)))
)

Camello

(if (setq en (entsel "\n请选择文本对象:"))
9 }: a. o3 u8 J6 W7 p+ b: K; e  (选中处理)
  (alert "未选中")
9 h. l7 \7 k8 m) l& j% ?1 m)

2 M- \" Q' ^( P/ z2 [" A(entget (car en))  ; 此句若 en 不是图元 ==>错误: 参数类型错误: lentityp nil

ddbegg

回复 2# Camello

, d+ j7 @# h7 M% d. V7 {# w5 s
    谢谢