[求助]：怎么选择copy或mirror后的那个选择集

青马

我用(setq ss(ssget))指定了一个选择集ss，
(command "mirror" ss "" .....)后
要对镜像后的那个选择集再
move,
但我发现
(command "move" "p"或"last"。。。 )都不是我想要的镜像后的物体的那个选择集，怎么才能得到镜像后物体的那个选择集呢
“p”,选出来的是ss,"last"选出来的是镜像后的那些物体中的一个，并不是全部

yshf

如下处理：
(setq ent (entlast))
(command "mirror" ss "" .....)
......
(setq ssa (ssadd))
(while (setq ent (entnext ent))(ssadd ent ssa))

eachy

用xdapi中的函数最简单，Copy mirror 前要标记。另外Wkai写过一个Lisp版的

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq ss1(ssget "X"))
   
4.   (setq ss(ssget))
   
5.   (command "mirror" ss "" .....)
   
6.   .....
   
7.   (setq ss2(ssget "X"))
   
8.   (command "select" ss2 "r" ss1 "")
   
9.   (setq ss (ssget "P"))
   
10.   .....  
    
11. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq ss1(ssget "X"))<br />   (setq ss(ssget))<br />   (command "mirror" ss "" .....)<br />   .....<br />   (setq ss2(ssget "X"))<br />   (command "select" ss2 "r" ss1 "")<br />   (setq ss (ssget "P"))<br />   .....  <br /> )[/FONT]

狂刀

2. 
   
3. ;| (x-ssmarke e) = 取得标志实体后的新生成实体选集-----------by lxx.2005.9
   
4. 参数: e = 实体名
   
5. 返回: 选择集或nil.
   
6. 说明:　简单用法，可调用(x-ssmark)取得最后一次(x-mark)标志的新选集.
   
7. 实例:
   
8. (setq e (entlast)) ;;标志ａ
   
9. .... ;;生成实体
   
10. (x-mark);;标志ｂ
    
11. .... ;;生成实体
    
12. (setq ss1 (x-ssmark));;取得标志ｂ后的新实体选集.
    
13. (setq ss2 (x-ssmarke e));;取得标志ａ后的新实体选集.
    
14. |;
    
15. ;;
    
16. (defun x-ssmarke (e / ss)
    
17.   (if (= 'ENAME (type e))
    
18.     (progn
    
19.       (setq ss (ssadd))
    
20.       (while (setq e (entnext e))
    
21.         (if (not(wcmatch (cdr (assoc 0 (entget e)))"VERTEX,SEQEND,ATTRIB"))
    
22.           (ssadd e ss)
    
23.         )
    
24.       )
    
25.       ss
    
26.     )
    
27.   )
    
28. )
    
29. ;; (x-ssmark)=取得最后一次(x-mark)标志的新选集
    
30. (defun x-ssmark ()
    
31.   (x-ssmarke *ssmark*)
    
32. )
    
33. ;; (x-mark)=设置当前最后实体为(x-ssmark)的标志位.
    
34. (defun x-mark ()
    
35.   (setq *ssmark* (entlast))
    
36. )
    

<br /> ;| (x-ssmarke e) = 取得标志实体后的新生成实体选集-----------by lxx.2005.9<br /> 参数: e = 实体名<br /> 返回: 选择集或nil.<br /> 说明:　简单用法，可调用(x-ssmark)取得最后一次(x-mark)标志的新选集.<br /> 实例:<br /> (setq e (entlast)) ;;标志ａ<br /> .... ;;生成实体<br /> (x-mark);;标志ｂ<br /> .... ;;生成实体<br /> (setq ss1 (x-ssmark));;取得标志ｂ后的新实体选集.<br /> (setq ss2 (x-ssmarke e));;取得标志ａ后的新实体选集.<br /> |;<br /> ;;<br /> (defun x-ssmarke (e / ss)<br />   (if (= 'ENAME (type e))<br />     (progn<br />       (setq ss (ssadd))<br />       (while (setq e (entnext e))<br />         (if (not(wcmatch (cdr (assoc 0 (entget e)))"VERTEX,SEQEND,ATTRIB"))<br />           (ssadd e ss)<br />         )<br />       )<br />       ss<br />     )<br />   )<br /> )<br /> ;; (x-ssmark)=取得最后一次(x-mark)标志的新选集<br /> (defun x-ssmark ()<br />   (x-ssmarke *ssmark*)<br /> )<br /> ;; (x-mark)=设置当前最后实体为(x-ssmark)的标志位.<br /> (defun x-mark ()<br />   (setq *ssmark* (entlast))<br /> )<br />

baihc798

还是不懂怎么用，能不能说详细一点，就是(command "copy" ss "" "m" "")，后move+p移动最后那个选择集。LSP要怎么写，我试着自己编了几次都不行，请高手指教！到底那里出错？
(defun c:c()
(setq ss (ssget))
(setq e (entlast))
(command "copy" ss "" "m" "")
(x-mark)
(setq ss1 (x-ssmark))
(setq ss2 (x-ssmarke e))
)
;;
(defun x-ssmarke (e / ss)
  (if (= 'ENAME (type e))
    (progn
      (setq ss (ssadd))
      (while (setq e (entnext e))
        (if (not(wcmatch (cdr (assoc 0 (entget e)))"VERTEX,SEQEND,ATTRIB"))
          (ssadd e ss)
        )
      )
      ss
    )
  )
)
;; (x-ssmark)=取得最后一次(x-mark)标志的新选集
(defun x-ssmark ()
  (x-ssmarke *ssmark*)
)
;; (x-mark)=设置当前最后实体为(x-ssmark)的标志位.
(defun x-mark ()
  (setq *ssmark* (entlast))
)

青马

(command "copy" ss "" "m" "")这行时就已经停了，
(x-mark)
(setq ss1 (x-ssmark))这两行在一起没有意义，当作了记号，就提取，没有不一样
ss2是你想要的move+p选极

xyp1964

2. [FONT=courier new];;;移动镜像后的选择集
   
3. (defun c:test ()
   
4.   (setq ss1(ssget "X"))
   
5.   (setq ss(ssget))
   
6.   (command "mirror" ss "" pause pause "n")
   
7.   (setq ss2(ssget "X"))
   
8.   (command "select" ss2 "r" ss1 "")
   
9.   (setq ss (ssget "P"))
   
10.   (command "move" ss "" )
    
11. )[/FONT]

[FONT=courier new];;;移动镜像后的选择集<br /> (defun c:test ()<br />   (setq ss1(ssget "X"))<br />   (setq ss(ssget))<br />   (command "mirror" ss "" pause pause "n")<br />   (setq ss2(ssget "X"))<br />   (command "select" ss2 "r" ss1 "")<br />   (setq ss (ssget "P"))<br />   (command "move" ss "" )<br /> )[/FONT]

狂刀

图小可以，图大不推荐用(command "select" ss2 "r" ss1 "")
会比较慢

baihc798

就是，这么命令太慢了。

xyp1964

最初由 baihc798 发布
[B]就是，这么命令太慢了。 [/B]

(command "copy" ss "" "m" "")会更慢，因为"m"无效（2004需要点或选项关键字。）！

青马

那我就这个命令再提个问题吧，怎么能先选择物体再执行呢或先执行命令再ssget呢，我看了论坛的一些相关的资料，越看越乱，真是不明白了，有人直接用ssgetfirst,有人用(car(ssgetfirst)),有人用(cadr (ssgetfirst)),我在我的小命令里试了都不行，还有，我看了资料，说ssgetfirst有两个选择集，这两个都有什么不同吗
;;;移动镜像后的选择集
(defun c:test ()
;;;  (or (setq ss (ssgetfirst))
;;;      (setq ss (ssget))
;;;  )
  (setq ss1(ssget "X"))
   (command "mirror" ss "" pause pause "n")
  (setq ss2(ssget "X"))
  (command "select" ss2 "r" ss1 "")
  (setq ss (ssget "P"))
  (command "move" ss "" )
)

xyp1964

最初由 青马 发布
[B]那我就这个命令再提个问题吧，怎么能先选择物体再执行呢或先执行命令再ssget呢，我看了论坛的一些相关的资料，越看越乱，真是不明白了，有人直接用ssgetfirst,有人用(car(ssgetfirst)),有人用(cadr (ssgetfirst)),我... [/B]

要移动的选择集未定义！
应该这样：

2. [FONT=courier new](defun c:test ()
   
3.   (setq ss1 (ssget "X"))
   
4.   (princ "\n选择实体 : ")
   
5.   (setq ss (ssget))
   
6.   (command "mirror" ss "" pause pause "n")
   
7.   (setq ss2 (ssget "X"))
   
8.   (command "select" ss2 "r" ss1 "")
   
9.   (setq ss (ssget "P"))
   
10.   (command "move" ss "")
    
11. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq ss1 (ssget "X"))<br />   (princ "\n选择实体 : ")<br />   (setq ss (ssget))<br />   (command "mirror" ss "" pause pause "n")<br />   (setq ss2 (ssget "X"))<br />   (command "select" ss2 "r" ss1 "")<br />   (setq ss (ssget "P"))<br />   (command "move" ss "")<br /> )[/FONT]

青马

您理解错我的意思啊，我的意思是，先选择了物体，这时敲命令，就不会执行(ssget)这一步了，和cad内部命令copy,move等一样，我用ssgetfirst不行，不会用啊

狂刀

最初由 青马 发布
[B]您理解错我的意思啊，我的意思是，先选择了物体，这时敲命令，就不会执行(ssget)这一步了，和cad内部命令copy,move等一样，我用ssgetfirst不行，不会用啊 [/B]

你编程时将ｓｓｇｅｔ放在前面
(defun c:tt ()
(setq ss (ssget))
....
....
)