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

ddbegg

代码如下，请高手帮忙加一句如何判断如果用户未选中任何图元（目前用户如果点空白的地方，会退出提示：错误: 参数类型错误: lentityp nil）
' k' A" @9 {. p5 r2 Z
(setq en (entsel "\n请选择文本对象:"))
; o' u# t- _% s9 G/ H7 h (setq endata(entget (car en)))
(setq entype(cdr (assoc 0 endata)))
$ M6 C7 \: |. q. H8 x(while (/= entype "TEXT")
' \& E+ k% x  f1 ~  |, A  X4 p0 s4 ^  (setq en (entsel "\n对象错误，请重新选择:"))
  (setq endata(entget (car en)))
! _7 [! s8 B0 d) w0 n7 G$ T  (setq entype(cdr (assoc 0 endata)))
)

Camello

) A, z# _8 j/ `, o* z; n
(if (setq en (entsel "\n请选择文本对象:"))
/ H- t$ `+ }% o- c  (选中处理)
" `8 t7 A4 }! \3 r- e; E5 S  (alert "未选中")
2 M4 d  B& v  J)
1 W/ Y3 y* I; I% ^8 O
* a2 }. d5 h& U* j  J" ]& v- [(entget (car en))  ; 此句若 en 不是图元 ==>错误: 参数类型错误: lentityp nil

ddbegg

回复 2# Camello


    谢谢