如何点选获取多种颜色进行筛选

xudongchu · 发表于 2024-1-12 20:24

本帖最后由 xudongchu 于 2024-1-15 12:49 编辑

此程序只能点选一种颜色进行筛选，请问如何连续点选获取多种颜色进行筛选？

;按颜色选择
(defun c:tt ()
  (defun GetCo (s0 / a la co en)
(setq en (entget s0))
(if (setq a (assoc 62 en)) (cdr a) (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 en))))) )
  )
  (if
            (progn (setq s0 (car (entsel "\n请选过滤颜色对象: "))) (redraw s0 3) (setq ss1 (ssget)) )
(progn
                     (setq co (GetCo s0) ss (ssadd) i  -1)
   (while (setq s1 (ssname ss1 (setq i (1+ i)))) (if (= (GetCo s1) co) (ssadd s1 ss)) )
   (sssetfirst nil ss)
   (princ (strcat "\n已选择" (itoa (sslength ss)) "个对象"))
)
  )
  (princ)
)

ssyfeng · 发表于 2024-1-16 09:56

本帖最后由 ssyfeng 于 2024-1-16 10:32 编辑

应该是这个效果：

p-3-ianlcc · 发表于 2024-2-23 00:16

ssyfeng 发表于 2024-1-16 09:56
应该是这个效果：

谢谢分享！
这个满实用的…

jkop · 发表于 2024-2-23 14:26

特殊使用条件，收藏！

ninja37 · 发表于 2024-3-20 17:27

ssyfeng 发表于 2024-1-16 09:56
应该是这个效果：

很不错的程序谢谢ssyfeng共享

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

如何点选获取多种颜色进行筛选

本帖子中包含更多资源