窗选择相同标注样式的标注 如何循环追加选择集

暮雨晨曦

2. ;;;;;窗选择相同标注样式的标注
   
3. (defun c:SX ()
   
4.   (setq ss (ssadd)) ; 创建一个空选择集 SS
   
5.   (if (setq sst  (Cdr(Assoc 3 (Entget (Car(Entsel "\n选择要标记的标注:"))))))
   
6.         (progn
   
7.     (setq pt1 (getpoint "\n指定第一点:"))
   
8.     (while (/= pt1 nil)
   
9.           (setq pt2 (getcorner pt1 "\n指定对角点:"))
   
10.     (setq ss1 (ssget "w" pt1 pt2 (list '(0 . "DIMENSION") (cons 3 sst))))
    
11.     (setq ss (ssand ss ss1))
    
12.     (setq pt1 (getpoint "\n指定第一点:")))   
    
13.     (sssetfirst nil ss)        
    
14.     ))
    
15. (princ)
    
16. )
    
17. 
    
18. 
    
19. (defun ssand (ss ss1 / i en)
    
20. (setq i 0)
    
21. (while (< i (sslength ss1))
    
22.   (setq en (ssname ss1 i)) ; 获取SS1中的第i个选择项
    
23.   (if (not (null en))
    
24.     (ssadd en ss) ; 将选择项添加到SS选择集中
    
25.   )
    
26.   (setq i (1+ i))
    
27. )
    
28. )

;;;;;窗选择相同标注样式的标注<br /> (defun c:SX ()<br />   (setq ss (ssadd)) ; 创建一个空选择集 SS<br />   (if (setq sst  (Cdr(Assoc 3 (Entget (Car(Entsel "\n选择要标记的标注:"))))))<br />         (progn <br />     (setq pt1 (getpoint "\n指定第一点:"))<br />     (while (/= pt1 nil)<br />           (setq pt2 (getcorner pt1 "\n指定对角点:"))<br />     (setq ss1 (ssget "w" pt1 pt2 (list '(0 . "DIMENSION") (cons 3 sst))))<br />     (setq ss (ssand ss ss1))<br />     (setq pt1 (getpoint "\n指定第一点:")))    <br />     (sssetfirst nil ss)        <br />     ))<br /> (princ)<br /> )<br /> <br /> <br /> (defun ssand (ss ss1 / i en) <br /> (setq i 0)<br /> (while (< i (sslength ss1))<br />   (setq en (ssname ss1 i)) ; 获取SS1中的第i个选择项<br />   (if (not (null en))<br />     (ssadd en ss) ; 将选择项添加到SS选择集中<br />   )<br />   (setq i (1+ i))<br /> )<br /> )

窗选择相同标注样式的标注 如何循环追加选择集 并且每次选择 都把选择集亮显  写了这个不对 实现不了  也不会写了 求助各位大神帮助

飞雪神光

1. ;;;;;窗选择相同标注样式的标注
   
2. (defun c:SX (/ pt1 pt2 ss ss1 ssand sst)
   
3.         (defun ssand (ss ss1 / i en)
   
4.                 (setq i 0)
   
5.                 (if (and ss1 (> (sslength ss1) 0))
   
6.                         (while (< i (sslength ss1))
   
7.                                 (setq en (ssname ss1 i)) ; 获取SS1中的第i个选择项
   
8.                                 (ssadd en ss) ; 将选择项添加到SS选择集中
   
9.                                 (setq i (1+ i))
   
10.                         )
    
11.                 )
    
12.                 ss
    
13.         )
    
14.   (setq ss (ssadd)) ; 创建一个空选择集 SS
    
15.   (if (setq sst  (Cdr(Assoc 3 (Entget (Car(Entsel "\n选择要标记的标注:"))))))
    
16.                 (progn
    
17.                         (setq pt1 (getpoint "\n指定第一点:"))
    
18.                         (while pt1
    
19.                                 (setq pt2 (getcorner pt1 "\n指定对角点:"))
    
20.                                 (setq ss1 (ssget "w" pt1 pt2 (list '(0 . "DIMENSION") (cons 3 sst))))
    
21.                                 (setq ss (ssand ss ss1))
    
22.                                 (setq pt1 (getpoint "\n指定第一点:"))
    
23.                         )   
    
24.                         (sssetfirst nil ss)        
    
25.     )
    
26.         )
    
27.         (princ)
    
28. )

;;;;;窗选择相同标注样式的标注<br /> (defun c:SX (/ pt1 pt2 ss ss1 ssand sst)<br />         (defun ssand (ss ss1 / i en) <br />                 (setq i 0)<br />                 (if (and ss1 (> (sslength ss1) 0))<br />                         (while (< i (sslength ss1))<br />                                 (setq en (ssname ss1 i)) ; 获取SS1中的第i个选择项<br />                                 (ssadd en ss) ; 将选择项添加到SS选择集中<br />                                 (setq i (1+ i))<br />                         )<br />                 )<br />                 ss<br />         )<br />   (setq ss (ssadd)) ; 创建一个空选择集 SS<br />   (if (setq sst  (Cdr(Assoc 3 (Entget (Car(Entsel "\n选择要标记的标注:"))))))<br />                 (progn <br />                         (setq pt1 (getpoint "\n指定第一点:"))<br />                         (while pt1<br />                                 (setq pt2 (getcorner pt1 "\n指定对角点:"))<br />                                 (setq ss1 (ssget "w" pt1 pt2 (list '(0 . "DIMENSION") (cons 3 sst))))<br />                                 (setq ss (ssand ss ss1))<br />                                 (setq pt1 (getpoint "\n指定第一点:"))<br />                         )    <br />                         (sssetfirst nil ss)        <br />     )<br />         )<br />         (princ)<br /> )

自贡黄明儒

飞雪神光 发表于 2023-10-16 18:57

我喜欢用选择集相加

;;1 [功能] 图元列表->选择集(或者选择集相加)
(defun lst->ss (Lst)
  (apply '(if command-s command-s vl-cmdf) (cons "_.select" (append Lst (list ""))))
  (ssget "_p")
)

(ssadd [ename [ss]])
如果不带参数调用 ssadd 函数，它将创建不含任何成员的选择集（空选择集）。如果调用本函数时，仅提供图元名参数 ename，它将创建一个仅含该图元的选择集。如果调用本函数时同时提供了图元名参数和选择集 ss，ssadd 将把指定图元加入到该选择集中。