选择特定类型实体的通用写法

marting · 发表于 2016-12-14 11:22:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面拿选择属性实体为例，如果没选到属性实体，提示重新选择或者回车退出，稍加修改就可以写个通用的选择函数。

(while
  (progn
    (setvar 'errno 0) 
    (setq sel (nentsel "\nSelect attibute: "))
    (cond
      (
        (= 7 (getvar 'errno))
        (princ "\nMissed. Try again.")
      )
      (sel
        (if (not (wcmatch (cdr (assoc 0 (entget (car sel)))) "ATTRIB"))
          (princ "\nThis is not attribute. Try again.")
        )
      )
    )
  )
)

gdslqs · 发表于 2016-12-14 12:36:12

ssget更方便

marting · 发表于 2016-12-14 13:19:12

gdslqs 发表于 2016-12-14 12:36

SSGET你选不到块内实体，和属性实体的

cable2004 · 发表于 2016-12-14 22:33:11

确实是难得好帖啊，顶先

xvjiex · 发表于 2021-11-17 04:00:37

感谢分享选择特定类型实体的通用写法

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

[每日一码] 选择特定类型实体的通用写法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子