话说ssget

自贡黄明儒

;;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 /> )<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时，通常可以先选择后执行，也可执行命令对象。
(defun W6 (/ ss)
  (setq ss (ssget '((0 . "DIMENSION"))))  
)
如果先选择对象，然后执行(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 />

未完，待续......

fl202

老黄我请教你几个问题。
    (ssgetfirst)
功能及参数
    此函数将用来决定哪一个图形已被选取。之后将返回两个选择集的表。在此图元选择集表里的第１个图元, 已经被获取, 但是却未被选取。表里的第二个图元既为被获取, 也是被选取的。只有在模型空间与纸张空间的图元可以被此函数来分析。而非图形图元与图块图元则无法使用此函数。
(sssetfirst gripset [pickset])
功能及参数
    此函数将用来设定哪一个图形要被选取与获取。gripset 参数将用来指定只要获取的图形选择集。pickset参数则用来指定要获取也要选取的图形选择集。如果这两个参数均有指定, 则sssetfirst仅获取并选择经过pickset参数所指定的选择集。若只指定 gripset 参数, 则此函数将获取经过 gripset 参数所指定的选择集。sssetfirst 函数将返回选择集的两个变量的表。
    【注意】 当 AutoCAD 正在执行命令时, 不要调用ads_ssetfirst() 函数

没看懂上面的解释。获取和选取有什么区别？

(ssget ＂P＂) 选择您最近所选取的图形
(ssget ＂L＂) 选择您最后加入数据库内的图元
(ssget ＂I＂) 建立在 Implied 选择模式下所选取图元的选择集。(PICKFIRST 有效时)

2. 
   
3.      (command "_copy" (entsel) "" (getpoint "pt1:") (getpoint "pt2:") (getpoint "pt3:") )
   
4.      (command "_break" (entsel)  "f" (getpoint) (getpoint) )
   
5.      (command "chprop" (entlast) "" "C" "19" "")
   
6.     (command "chprop"  (ssget "_p") "" "C" "19" "")
   

<br />      (command "_copy" (entsel) "" (getpoint "pt1:") (getpoint "pt2:") (getpoint "pt3:") )<br />      (command "_break" (entsel)  "f" (getpoint) (getpoint) )<br />      (command "chprop" (entlast) "" "C" "19" "")<br />     (command "chprop"  (ssget "_p") "" "C" "19" "")<br />

关于break命令打断后的2个对象，怎么获取？似乎哪个是(entlast)没什么规律啊？

2. (defun c:W5 (/ SS1 SS2)
   
3.   (sslength (setq ss1 (ssget)));这里假定选择2个对象
   
4.   (sslength (setq ss2 (ssget)));这里假定选择3个对象
   
5.   (sssetfirst ss1 ss1)
   
6.   (princ "\n")
   
7.   (princ (sslength (cadr (ssgetfirst))))
   
8.   (command "chprop" (cadr (ssgetfirst)) "" "C" "29" "")
   
9.   (princ "\n")
   
10.   (princ(sslength (ssget "_p")))
    
11.   (command "chprop"  (ssget "_p") "" "C" "19" "")
    
12.   (princ)
    
13. )
    
14. 命令: w5
    
15. 选择对象: 指定对角点: 找到 4 个
    
16. 选择对象:
    
17. 选择对象: 指定对角点: 找到 3 个
    
18. 选择对象:
    
19. 4
    
20. 4
    
21. 我执行的结果和你的不一致。？？？
    
22. 
    
23. 命令: (apply 'ssget (list  '((0 . "TEXT"))))
    
24. 选择对象: 指定对角点: 找到 6 个
    
25. 选择对象:  <Selection set: 5a3c>
    
26. 命令: *取消*
    
27. 命令: (type (apply 'ssget (list  '((0 . "TEXT")))))
    
28. 选择对象: 指定对角点: 找到 6 个
    
29. 选择对象:  PICKSET
    

(defun c: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 />   (command "chprop" (cadr (ssgetfirst)) "" "C" "29" "")<br />   (princ "\n")<br />   (princ(sslength (ssget "_p")))<br />   (command "chprop"  (ssget "_p") "" "C" "19" "")<br />   (princ)<br /> )<br /> 命令: w5<br /> 选择对象: 指定对角点: 找到 4 个<br /> 选择对象:<br /> 选择对象: 指定对角点: 找到 3 个<br /> 选择对象:<br /> 4<br /> 4<br /> 我执行的结果和你的不一致。？？？<br /> <br /> 命令: (apply 'ssget (list  '((0 . "TEXT"))))<br /> 选择对象: 指定对角点: 找到 6 个<br /> 选择对象:  <Selection set: 5a3c><br /> 命令: *取消*<br /> 命令: (type (apply 'ssget (list  '((0 . "TEXT")))))<br /> 选择对象: 指定对角点: 找到 6 个<br /> 选择对象:  PICKSET<br />

自贡黄明儒

第一个问题，sssetfirst。以前在本论坛上看到讨论，好像有个参数没什么用。
第二个问题，(ssget ＂P＂)。我以上说的就是(ssget ＂P＂)与sssetfirst，他们之间没有什么关系。当我们先选择后执行程序时，创建了“当前选择集”，因而(ssget ＂P＂)可以获取它。
第三个问题，(ssget ＂I＂) ，可以查《AutoLisp葵花宝典A.chm》sssetfirst,上面说得很清楚。
第四个，(ssget ＂L＂) 与（entlast)应该差不多，但后都删除后，可能结果不一样
第五，打断后的对象通常（setq e (entlast)),然后用(entnext e)来搜索。

fl202

自贡黄明儒 发表于 2016-7-27 10:37
第一个问题，sssetfirst。以前在本论坛上看到讨论，好像有个参数没什么用。
第二个问题，(ssget ＂P＂)。我 ...

为什么W5我的执行结果与你的不一致呢？

fl202

fl202 发表于 2016-7-27 14:05
为什么W5我的执行结果与你的不一致呢？

命令: w5
选择对象: 指定对角点: 找到 4 个
选择对象:
选择对象: 指定对角点: 找到 3 个
选择对象:
4
4
我执行的结果和你的不一致。？？？

Sylvanas

黄大师我有问题请教

(setq ss0 (ssget))
  (setq ss (ssget "p" '((0 . "TEXT") (62 . 6))))
  (command "erase" ss "")

之后我还想再次利用ss0怎么做？

如果 (setq ss (ssget "p" '((0 . "INSERT")))) 就取不到选择集了

[em0] 实在不想遍历啊

yhly555

请教楼主，"当前选择集"Autocad应该是保存在某个地方，我们怎么操作才能释放（清空）“当前选择集”

alexmai

老师，这是你写的原码，发现有些问题，请回复一下，感激！

http://bbs.mjtd.com/thread-179168-1-1.html

999999

收藏，顶一下，，，