多条件选择，ZZXXQQ老大请进

nishuihanjian

上次您写的这个怎么实现既符合0=实体类型又符合8=层名两个条件的才被选中，另外除了0,1，2和8没有别的吗组吗吗，我想选中机械CAD中代理图形例如机械CAD或PCCAD中的粗糙度或者焊接标注符号，望老大支招。有个插件叫CAD小帮手能实现，相信您也能搞出来，插件附上下载地址：http://www.cadgj.com/这个插件恶心就是需要注册，他的菜单风格和那个选择功能是我最喜欢的，其他都比较垃圾,不知道老大能否去除他的注册功能。

(defun c:qss()
(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)
)

669423907

朋友，请注意言辞，此插件已免费