如何从选择集中两次过滤块对象？

fengyu6913

如何从选择集中两次过滤块对象：

第一步，创建选择集：
(princ "\n 选择对象：")
(setq ss (ssget))

第二步，如何从上面的选择集中过滤出想要的块：
(setq ss1 （从ss中过滤出前缀为"HfSec-*"的块）
(setq ss2 （从ss中过滤出 "块"）

xyp1964

1. (setq ss (ssget))
   
2. (setq ss2 (ssget "p" '((0 . "insert"))))
   
3. (setq ss1 (ssget "p" '((2 . "HfSec-*"))))

(setq ss (ssget))<br /> (setq ss2 (ssget "p" '((0 . "insert"))))<br /> (setq ss1 (ssget "p" '((2 . "HfSec-*"))))

你有种再说一遍

论坛那么多帖子,肯定有人敲过,不如直接搜就好了

lee50310

ssget可多次選擇過濾

1. ;;ssget可多次選擇過濾
   
2. (defun c:tt()
   
3. (princ "\n<*** 選取對象 ***>")
   
4.   (setq pt1 (getpoint "\n矩形框選 指定第一個角點: "))
   
5.   (setq pt2 (getcorner pt1 "\n指定第二角點: "))         
   
6.   (command "._rectang" pt1 pt2)
   
7.   (command "ERASE" (entlast) "")
   
8.   
   
9.   (setq ss1(ssget "c" pt1 pt2 '((0 . "INSERT"))))         ;此範圍內過濾圖塊
   
10.   (setq ss2(ssget "c" pt1 pt2 '((0 . "CIRCLE")(62 . 1)))) ;此範圍內過濾紅色的圓  
    
11.   (setq ss3(ssget "c" pt1 pt2 '((0 . "ARC")(62 . 3))))    ;此範圍內過濾綠色的弧
    
12.   (setq ss4(ssget "c" pt1 pt2 '((0 . "LWPOLYLINE")(70 . 1))))    ;此範圍內過濾封閉的多段線
    
13.    ;
    
14.    ;  可再無限增加
    
15. )
    

;;ssget可多次選擇過濾<br /> (defun c:tt()<br /> (princ "\n<*** 選取對象 ***>")<br />   (setq pt1 (getpoint "\n矩形框選 指定第一個角點: "))<br />   (setq pt2 (getcorner pt1 "\n指定第二角點: "))         <br />   (command "._rectang" pt1 pt2) <br />   (command "ERASE" (entlast) "")<br />   <br />   (setq ss1(ssget "c" pt1 pt2 '((0 . "INSERT"))))         ;此範圍內過濾圖塊<br />   (setq ss2(ssget "c" pt1 pt2 '((0 . "CIRCLE")(62 . 1)))) ;此範圍內過濾紅色的圓  <br />   (setq ss3(ssget "c" pt1 pt2 '((0 . "ARC")(62 . 3))))    ;此範圍內過濾綠色的弧 <br />   (setq ss4(ssget "c" pt1 pt2 '((0 . "LWPOLYLINE")(70 . 1))))    ;此範圍內過濾封閉的多段線 <br />    ;<br />    ;  可再無限增加<br /> )<br />

vitalgg

https://atlisp.cn/function/pickset:get-sub

pickset:get-sub
说明：从选择集或图元表中按 filter 规则过滤. 当前版本不支持 XOR 和 逻辑嵌套。

用法：
(pickset:get-sub ss filter)

参数：1 ss : 选择集;2 filter : 过滤dxf组码;

返回值：过滤后的图元表

示例：
(pickset:get-sub ss '((-4 . "")(1 . "7")(-4 . "<")(1 . "4")(-4 . "OR>")))

黄翔

一直在重复问题一样的.
http://bbs.mjtd.com/thread-190924-1-1.html

黄翔

过滤出块

1. ;;;第一步，创建选择集：
   
2. (princ "\n 选择对象：")
   
3. (setq _ss (ssget))
   
4. ;;;第二步，如何从上面的选择集中过滤出想要的块：
   
5. (repeat (setq _nn (sslength _ss))
   
6.     (setq _entN (ssname _ss (setq _nn (1- _nn))) _entNlst (entget _entN))   
   
7.     ;;加入判断
   
8.       (if (/= "INSERT" (cdr(assoc 0 _entNlst )))
   
9.           (setq _ss (ssdel _entN _ss))
   
10.       )
    
11.   )
    
12. (sssetfirst nil _ss)

;;;第一步，创建选择集：<br /> (princ "\n 选择对象：")<br /> (setq _ss (ssget))<br /> ;;;第二步，如何从上面的选择集中过滤出想要的块：<br /> (repeat (setq _nn (sslength _ss))<br />     (setq _entN (ssname _ss (setq _nn (1- _nn))) _entNlst (entget _entN))    <br />     ;;加入判断<br />       (if (/= "INSERT" (cdr(assoc 0 _entNlst )))<br />           (setq _ss (ssdel _entN _ss))<br />       )<br />   )<br /> (sssetfirst nil _ss)

qazxswk

入门级代码

2. (defun c:tt(/ pt1 pt2 ss1 ss2 ss3)
   
3.    (setq pt1 (getpoint "\n指定起点: "))
   
4.   (setq pt2 (getcorner pt1 "\n指定对角点: "))  
   
5.   (setq ss1(ssget "C" pt1 pt2)) ;选择任意对象 ,C表示交选，如果用W，表示窗选
   
6.   (setq ss2(ssget "C" pt1 pt2 '((0 . "INSERT")))) ;选择块
   
7.   (setq ss3(ssget "C" pt1 pt2 '((2 . "HfSec-*")))) ;选择指定块名的块
   
8.    (princ))

(defun c:tt(/ pt1 pt2 ss1 ss2 ss3)<br />    (setq pt1 (getpoint "\n指定起点: "))<br />   (setq pt2 (getcorner pt1 "\n指定对角点: "))  <br />   (setq ss1(ssget "C" pt1 pt2)) ;选择任意对象 ,C表示交选，如果用W，表示窗选<br />   (setq ss2(ssget "C" pt1 pt2 '((0 . "INSERT")))) ;选择块<br />   (setq ss3(ssget "C" pt1 pt2 '((2 . "HfSec-*")))) ;选择指定块名的块<br />    (princ))

fengyu6913

感谢大佬们给出这么多解决方案，谢谢