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

ddbegg

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

3 r5 I# x2 @' y! {+ x(setq en (entsel "\n请选择文本对象:"))
(setq endata(entget (car en)))
% b9 U) V7 u8 s9 s9 k% f3 L(setq entype(cdr (assoc 0 endata)))
3 q* u1 f  L9 Z( a/ J(while (/= entype "TEXT")
7 `$ Q! A7 {3 [" J; M& a! k  (setq en (entsel "\n对象错误，请重新选择:"))
9 U, l3 _. K4 A$ O! v; Z5 g2 C; R" o  (setq endata(entget (car en)))
  (setq entype(cdr (assoc 0 endata)))
)

Camello

(if (setq en (entsel "\n请选择文本对象:"))
3 p# K4 |0 u# [4 I  (选中处理)
  (alert "未选中")
& c; O# G( Y# {! O# e0 r)
3 Y) z0 S' g# l8 s$ C
(entget (car en))  ; 此句若 en 不是图元 ==>错误: 参数类型错误: lentityp nil

ddbegg

回复 2# Camello
* B, ^2 M! p8 O: _& ~1 D& ?. P

8 F7 M( w! c# P! K2 Q/ g    谢谢