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

ddbegg · 发表于 2012-6-1 09:28

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

(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)))
  (setq entype(cdr (assoc 0 endata)))
)

Camello · 发表于 2012-6-1 09:41

本帖最后由 Camello 于 2012-6-1 14:09 编辑

(if (setq en (entsel "\n请选择文本对象:"))
  (选中处理)
  (alert "未选中")
)

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

ddbegg · 发表于 2012-6-1 13:27

回复 2# Camello

谢谢

		自动登录	找回密码
密码			立即注册

[求助] 如何判断是否用户是否选中文本