选择——按对象类型

nishuihanjian · 发表于 2015-5-10 20:56:04

怎么按照对象类型快速选择，点选一个对象，全图高亮显示同类对象类型的对象。找了很多没找到这样的程序，下面的程序是点选一个对象后右键在框选后能选择同类型对象怎么修改成我想要的效果？
论坛大多数是按图层，颜色快速选择，我想按照对象类型快速选择，论坛也有按类型进行快速选择的，但是不支持PCCAD或者机械工程师的符号图元，不知道为什么，希望高手予以解决给成好用的程序，类似CAD好帮手的同类选择功能。这个插件就这一个功能我喜欢，求源码。

(defun c:hh() (QS T '(8)))

(defun QS (new ids / filter)

  (defun GetPat (ids / SS n e en lst)

   (and
   (princ "\n请选择模板对象:")
   (setq SS (ssget ) )
   )

   (setq n(sslength ss) lst'() )

   (repeat n
      (setq n(- n  1 )
            e(ssname ss n)
            en(entget e)
            lst(append(vl-remove-if-not '(lambda (e) (member (car e) ids)) en)lst)
      )
   )

   (setq lst(append '((-4 . "<OR")) lst '((-4 .  "OR>")) ) )

  ) ;defun

  (sssetfirst nil (ssget(GetPat ids)))

  (princ)

) ;defun

vectra · 发表于 2015-5-10 21:14:17

本帖最后由 vectra 于 2015-5-10 21:17 编辑

(defun c:hh () (qs t '(8)))

修改为

(defun c:hh () (qs t '(0)))

同时

(sssetfirst nil (ssget(GetPat ids)))

修改为

(sssetfirst nil (ssget "X" (getpat ids)))

nishuihanjian · 发表于 2015-5-10 22:01:27

改成(defun c:hh () (qs t '(0)))不行啊

spp_wall · 发表于 2015-5-11 08:23:49

找了很久连选择易都没找到啊

ZZXXQQ · 发表于 2015-5-11 08:30:59

(defun c:tt ()
(defun getpat (ids / SS n e en lst)
(if (and (princ "\n请选择模板对象:")
(setq SS (ssget))
) (progn
(repeat (setq n (sslength ss))
(setq en (entget (ssname ss (setq n (1- n))))
lst (append(vl-remove-if-not '(lambda (e) (member (car e) ids)) en)lst)
)
)
(setq lst (append '((-4 . "<OR")) lst '((-4 . "OR>"))))
))
) ;defun
(setq ids (getstring "\n过滤组码(0=实体类型,1=字串内容,2=块名,8=层名...): "))
(setq ids (read(strcat "(" ids ")")))
(sssetfirst nil (ssget (GetPat ids)))
(princ)
)

tianyi1230 · 发表于 2015-5-11 18:08:09

飞诗选择易和小菜选择易不能用吗？

nishuihanjian · 发表于 2015-5-11 18:30:29

不能用了，我用选择易3.5还是多少版本忘记了不支持机械工程师的符号选择就删了

xyp1964 · 发表于 2015-5-12 13:16:44

(defun c:tt ()
(if (setq s1 (car (entsel "\n选择模板对象: ")))
(sssetfirst nil (ssget "x" (list (cons 0 (cdr (assoc 0 (entget s1)))))))
)
(princ)
)

nishuihanjian · 发表于 2015-5-14 22:06:52

谢谢大家，不过没有小帮手那个选择好用，这软件没什么就那个选择好用。

nishuihanjian · 发表于 2015-6-19 20:09:31

xyp1964的还是不支持机械工程师的粗糙度序号什么的

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

[已解答] 选择——按对象类型