CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1888|回复: 2

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

[复制链接]
发表于 2012-6-1 09:28 | 显示全部楼层 |阅读模式
代码如下,请高手帮忙加一句如何判断如果用户未选中任何图元(目前用户如果点空白的地方,会退出提示:错误: 参数类型错误: lentityp nil)
- Q  K9 W4 G" Q- z# j' N) r+ E' @' D# H
(setq en (entsel "\n请选择文本对象:"))
. N# |  w* i3 n8 V( b, E9 I (setq endata(entget (car en)))- d! z+ e. ?- V  A0 ?$ }
(setq entype(cdr (assoc 0 endata)))  z7 ^! C! H) B8 i
(while (/= entype "TEXT")+ Y1 j* B7 I+ [0 z/ x/ u3 T
  (setq en (entsel "\n对象错误,请重新选择:"))
* m2 f7 m' T+ ^( H  (setq endata(entget (car en)))6 i  z7 X! B  p+ u
  (setq entype(cdr (assoc 0 endata)))
4 O8 ^) R$ L5 i)
发表于 2012-6-1 09:41 | 显示全部楼层
本帖最后由 Camello 于 2012-6-1 14:09 编辑
: S% |2 d, G) T0 p/ I+ a6 N$ |# l. _
; u  A6 p6 }& D/ C* k(if (setq en (entsel "\n请选择文本对象:"))# e" m/ s1 @: t& l4 K! @+ s- r2 B9 W
  (选中处理)9 N9 C& l( _' Q
  (alert "未选中")
( I+ [" @, {: p% ~2 ^0 I/ s8 ~)* z6 a% e9 L. A$ R. C2 u6 P
' V" v) @+ k+ ^" [* w
(entget (car en))  ; 此句若 en 不是图元 ==>错误: 参数类型错误: lentityp nil
 楼主| 发表于 2012-6-1 13:27 | 显示全部楼层
回复 2# Camello
& {* u2 R2 S/ J7 r' T  T: B8 G3 e, ^* K/ p3 B- }0 U7 E
$ v9 l# k" h  ]: k. \
    谢谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-11-22 06:54

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表