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


    谢谢
页: [1]
查看完整版本: 如何判断是否用户是否选中文本