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

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

本帖最后由 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:33

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

应该是这个效果：

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

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

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

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

特殊使用条件，收藏！

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

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

很不错的程序谢谢ssyfeng共享

统一网名 · 发表于 2024-8-11 16:19:40

(defun c:tt6 (/ a b en len s0 ss ss1 tucys x ys yslst)
(defun tucys (en)
(setq tuc (vla-get-Layer (vlax-ename->vla-object en)));图层
(setq ys (vla-get-Color (vlax-ename->vla-object en)));颜色
)
(setq yslst nil ss1 (ssadd))
(while (setq s0 (car (entsel "\n请选过滤颜色对象: ")))
(redraw s0 3)
(tucys s0)
(setq yslst (cons(list tuc ys) yslst))
)
(setq ss (ssget))
(repeat (setq len (sslength ss))
(setq s0 (ssname ss (setq len (1- len))))
(tucys s0)
(foreach x yslst
(setq a (nth 0 x) b (nth 1 x))
(if(and(= a tuc)(= b ys))(ssadd s0 ss1))
)
)
(sssetfirst nil ss1)
(princ (strcat "\n已选择" (itoa (sslength ss1)) "个对象"))
(princ)
)

season_88 · 发表于 2025-3-20 02:05:03

谢谢大师分享

敖沧海 · 发表于 2025-6-13 16:53:39

p-3-ianlcc 发表于 2024-2-23 00:16
谢谢分享！
这个满实用的…

是否可选择块内对象

敖沧海 · 发表于 2025-6-13 17:02:21

统一网名发表于 2024-8-11 16:19
(defun c:tt6 (/ a b en len s0 ss ss1 tucys x ys yslst)
(defun tucys (en)
(setq tuc (vla-get-Lay ...

请教一下我查看了SSGET命令的介绍没有介绍块内对象的选择只看到了可以选择锁定图层对象的介绍 CAD自带的NCOPY是可以从块内选择对象且复制出来的

统一网名 · 发表于 2025-6-16 07:39:20

本帖最后由统一网名于 2025-6-16 07:44 编辑

敖沧海发表于 2025-6-13 17:02
请教一下我查看了SSGET命令的介绍没有介绍块内对象的选择只看到了可以选择锁定图层对象的介绍 ...

获取块然后炸开，通过条件过滤取得相要的对象。也可以搜索一下相关主题帖子根据自己的需求来学习。

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

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

本帖子中包含更多资源