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

ddbegg

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

! g: V  R! Z6 s6 @(setq en (entsel "\n请选择文本对象:"))
; X* A) H' p& J6 j (setq endata(entget (car en)))
' E. X7 c: i: e(setq entype(cdr (assoc 0 endata)))
(while (/= entype "TEXT")
0 N2 }* K3 u# X/ F9 W$ {& S  (setq en (entsel "\n对象错误，请重新选择:"))
  (setq endata(entget (car en)))
6 A, I" D' F7 |3 S8 [3 ~) C  (setq entype(cdr (assoc 0 endata)))
)

Camello

/ o% C4 I3 w+ G7 f1 f; n! M
3 F# H0 ]$ V+ f3 i# ^; [(if (setq en (entsel "\n请选择文本对象:"))
  (选中处理)
; B1 R+ Y* _5 J6 a% m% o; I' V  (alert "未选中")
)

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

ddbegg

回复 2# Camello

. C8 E* ]. [# m) j( F
    谢谢