[功能] 图元列表=>选择集(另类)

WhoCanSay

;;[功能] 图元列表=>选择集(另类)

2. 
   
3. (defun Lst=>SS (Lst)
   
4.   (setq Lst (append Lst (list "")))
   
5.   (apply 'vl-cmdf (cons "_.select" Lst))
   
6.   (ssget "_p")
   
7. )
   

<br /> (defun Lst=>SS (Lst)<br />   (setq Lst (append Lst (list "")))<br />   (apply 'vl-cmdf (cons "_.select" Lst))<br />   (ssget "_p")<br /> )<br />

HLCAD

;;; 有时不能返回正确的选择集的:
(setq ss (ssget) ;随便选择一两根线等
(Lst=>SS nil) ;并不出错.
(command "_.move" "_p") ;将会把SS选择集选中。这是我们不想要的结果.

WhoCanSay

;;1 "当前选择集"与ssget

2. 
   
3. (defun C:w1 (/ ss)
   
4.   (sslength (setq ss (ssget)))
   
5. )
   
6. (defun C:w2 ()
   
7.   (sslength (ssget "_p"))
   
8. )

<br /> (defun C:w1 (/ ss)<br />   (sslength (setq ss (ssget)))<br /> )<br /> (defun C:w2 ()<br />   (sslength (ssget "_p"))<br /> )

Command: (C:w1)
Select objects: Specify opposite corner: 2 found
Select objects:
2
Command: (C:w2)
2
由此可见，"当前选择集"Autocad保存在某个地方

;;2  ssgetfirst与ssget

2. 
   
3. (defun w3 (/ SS)
   
4.   (sslength (setq ss (cadr (ssgetfirst))))
   
5. )
   
6. (defun w4 ()
   
7.   (sslength (ssget "_p"))
   
8. )
   

<br /> (defun w3 (/ SS)<br />   (sslength (setq ss (cadr (ssgetfirst))))<br /> )<br /> (defun w4 ()<br />   (sslength (ssget "_p"))<br /> )<br />

先选择3个对象，然后执行(w3)
Command: (w3)
3
Command: (w4)
3
表面上看来，通过ssgetfirst，可以取得"当前选择集"。断续看下面的

2. 
   
3. (defun W5 (/ SS1 SS2)
   
4.   (sslength (setq ss1 (ssget)));这里假定选择2个对象
   
5.   (sslength (setq ss2 (ssget)));这里假定选择3个对象
   
6.   (sssetfirst ss1 ss1)
   
7.   (princ "\n")
   
8.   (princ (sslength (cadr (ssgetfirst))))
   
9.   (princ "\n")
   
10.   (princ(sslength (ssget "_p")))
    
11.   (princ)
    
12. )
    

<br /> (defun W5 (/ SS1 SS2)<br />   (sslength (setq ss1 (ssget)));这里假定选择2个对象<br />   (sslength (setq ss2 (ssget)));这里假定选择3个对象<br />   (sssetfirst ss1 ss1)<br />   (princ "\n")<br />   (princ (sslength (cadr (ssgetfirst))))<br />   (princ "\n")<br />   (princ(sslength (ssget "_p")))<br />   (princ)<br /> )<br />

Command: (w5)
Select objects: Specify opposite corner: 2 found
Select objects:
Select objects: Specify opposite corner: 3 found
Select objects:
2
3
从这个例子可看出，"当前选择集"是用户作出的选择,可以(ssget "_p")的方式取得，是ss2(同w4)；ssgetfirst取得的是sssetfirst的选择集ss1(同w3)。
通过sssetfirst亮显的对象，不能做为"当前选择集"。与以上执w3不同，当我们先选择时，就已经取得了"当前选择集"。

;;4 选选择，后执行
使用Autocad时，通常可以先选择后执行，也可执行命令对象。

2. 
   
3. (defun W6 (/ ss)
   
4.   (setq ss (ssget '((0 . "DIMENSION"))))  
   
5. )
   

<br /> (defun W6 (/ ss)<br />   (setq ss (ssget '((0 . "DIMENSION"))))  <br /> )<br />

如果先选择对象，然后执行(w6),则不提示选择对象

;;[功能] 先选择，后执行通用函数
;;(sslength (StrartSSget '((0 . "DIMENSION"))))

2. 
   
3. (defun StrartSSget (fil / SS)
   
4.   (cond ((cadr (ssgetfirst)) (setq ss (apply 'ssget (list "p" fil)))))
   
5.   (cond        (SS (sssetfirst nil nil))
   
6.         (T (setq ss (apply 'ssget (list fil))))
   
7.   )
   
8.   ss
   
9. )
   

<br /> (defun StrartSSget (fil / SS)<br />   (cond ((cadr (ssgetfirst)) (setq ss (apply 'ssget (list "p" fil)))))<br />   (cond        (SS (sssetfirst nil nil))<br />         (T (setq ss (apply 'ssget (list fil))))<br />   )<br />   ss<br /> )<br />

看过w5,则StrartSSget完全可以改写如下

2. 
   
3. (defun StrartSSget (fil / SS)
   
4.   (apply 'ssget (list fil))
   
5. )
   

<br /> (defun StrartSSget (fil / SS)<br />   (apply 'ssget (list fil))<br /> )<br />

lshj1993

感谢楼主分享 学习了

xvjiex

感谢楼主分享[功能] 图元列表=>选择集(另类)

88725674

;;;(setq lst '(<图元名: 1dc8ed0ad50> <图元名: 1dc8ed0ad40> <图元名: 1dc8ed0ad30> <图元名: 1dc8ed0ad20> <图元名: 1dc8ed0ad10> <图元名: 1dc8ed0ad00>))
;;;(c:tt lst)
(defun c:tt (lst / n ss)
  (setq n -1)
  (setq ss (ssadd))
  (foreach x lst
    (ssadd (nth (setq n (1+ n)) lst) ss)
  )
  ss
)