Lispboy 发表于 2016-10-14 10:15:04

（XD::Pickset:GetSub）从选择集中获得满足过滤条件的子选择集


(defun XD::Pickset:GetSub (ss fillter / e i ss1 ss2)
   (setq ss1 (ssget "x" fillter))
   (setq i -1)
   (setq ss2 (ssadd))
   (repeat (sslength ss)
   (setq e (ssname ss (setq i (1+ i))))
   (if (ssmemb e ss1)
       (ssadd e ss2)
   )
   )
   (if (> (sslength ss2) 0)
   ss2
   nil
   )
)


winerfjy 发表于 2017-7-1 09:54:12

这个写法也可以
（setq ss (ssget）)
(setq ss =上次选择集再加过滤条件

knife0930 发表于 2017-7-31 15:07:50

虽然看不了，还是顶一下！

xinxirong 发表于 2017-7-31 18:10:19

我也是这么想的寄过来吗好吧好吧好吧好吧好吧

wsadgang 发表于 2017-8-13 00:31:53

最常用的。看看

liulisheng 发表于 2017-8-15 12:59:30

{:1_12:}{:1_12:}{:1_12:}{:1_12:}{:1_12:}{:1_12:}

knife0930 发表于 2017-8-25 10:01:34

不错不错~~

dyjwyqz5221 发表于 2018-1-5 11:04:48

{:1_1:}正好需要，参考下{:1_1:}{:1_23:}

lifei1979 发表于 2018-3-22 12:01:09


最常用的参考下

dyjwyqz5221 发表于 2020-5-11 08:30:14

经过测试，这种办法在数据量不是太多的情况下，效率不是太高，在数据量大的情况下，效率挺高的。

测完收工 发表于 2020-10-13 18:00:11

学习大神代码

510438061 发表于 2020-11-20 21:35:14

判断是否连接到INTERNET

13793997827 发表于 2024-2-25 15:59:53

是不是要与picksethome配合使用？有时候不定义picksethome，选择集显示nil
页: [1]
查看完整版本: （XD::Pickset:GetSub）从选择集中获得满足过滤条件的子选择集