上一选择集优化

ㄘ丶转裑ㄧ灬

1. (defun c:a ()
   
2. (command "move" "previous" "")
   
3. (princ)
   
4. )

(defun c:a ()<br /> (command "move" "previous" "")<br /> (princ)<br /> )

用这个操作画图的时候，确实比以前快了不少，省了几次按键，
但是还有一个问题，我平常的习惯是先选择后执行的，上面的代码是只针对空选时的，
我想不管是什么情况，都只用一个命令去执行移动，
即有选择集时移动当前选择集，没有时移动上一选择集。

想了个比较笨的办法就是再执行一次。。。

1. (defun c:a ()
   
2. (command "move" "previous" "")
   
3. (command "move" "previous" "")
   
4. (princ)
   
5. )

(defun c:a ()<br /> (command "move" "previous" "")<br /> (command "move" "previous" "")<br /> (princ)<br /> )

大家别笑哈，由于是新手，只会这样写。。。但是又出现下面这样的情况。。
命令:  A move
选择对象: previous 找到 1 个

选择对象:
指定基点或 [位移(D)] <位移>:  move
需要点或选项关键字。
; 错误: 函数被取消

指定基点或 [位移(D)] <位移>:
指定第二个点或 <使用第一个点作为位移>: *取消*

上面这个倒是可以用，就是看着不舒服，呵呵。。。。


2014.08.28更新，参考了论坛里的代码，感谢！
http://bbs.mjtd.com/thread-88900-1-1.html

1. (defun c:a ()  (setq ss (ssget "i")) ;将已选中的实体加入选择集
   
2.   (if (= ss nil)
   
3.     (command "move" "previous" "") ;如果选择集为空，则执行移动上一选择集命令
   
4.     (command "move")   ;如果选择集不为空，则执行正常移动命令
   
5.   )
   
6.   (princ)
   
7. )
   
8. 
   
9. ;对于复制，此方法的修改版本不能通用于所有CAD，只支持2010以上。
   
10. ;(defun c:c ()
    
11. ; (setq ss (ssget "i")) ;将已选中的实体加入选择集
    
12. ; (if (= ss nil)
    
13. ;   (command "copy" "previous" "" "m") ;如果选择集为空，则执行复制上一选择集命令
    
14. ;   (command "COPY" "M")   ;如果选择集不为空，则执行正常复制命令
    
15. ; )
    
16. ; (princ)
    
17. ;)
    
18. 
    
19. ;旧版本，通用所有CAD。
    
20. (defun c:c ()
    
21. (setvar "pickfirst" 1)
    
22. (setvar "pickfirst" 0)
    
23. (command "copy" "previous" "" "m")
    
24. (setvar "pickfirst" 1)
    
25. (princ)
    
26. )

(defun c:a ()  (setq ss (ssget "i")) ;将已选中的实体加入选择集<br />   (if (= ss nil)<br />     (command "move" "previous" "") ;如果选择集为空，则执行移动上一选择集命令<br />     (command "move")   ;如果选择集不为空，则执行正常移动命令<br />   )<br />   (princ)<br /> )<br /> <br /> ;对于复制，此方法的修改版本不能通用于所有CAD，只支持2010以上。<br /> ;(defun c:c ()<br /> ; (setq ss (ssget "i")) ;将已选中的实体加入选择集<br /> ; (if (= ss nil)<br /> ;   (command "copy" "previous" "" "m") ;如果选择集为空，则执行复制上一选择集命令<br /> ;   (command "COPY" "M")   ;如果选择集不为空，则执行正常复制命令<br /> ; )<br /> ; (princ)<br /> ;)<br /> <br /> ;旧版本，通用所有CAD。<br /> (defun c:c ()<br /> (setvar "pickfirst" 1)<br /> (setvar "pickfirst" 0)<br /> (command "copy" "previous" "" "m")<br /> (setvar "pickfirst" 1)<br /> (princ)<br /> )

ㄘ丶转裑ㄧ灬

呵呵，谢谢Z版能看我帖子。。。
我想把移动<M>和移动上一选择集<M+P>这两个命令合并成一个命令。。。。
这样后面继续操作的时候就只需按空格了，其实最后面那个代码就已经可以实现了，只是小纠结了一下。。

Andyhon

2. 
   
3. (defun c:a ()
   
4.    (cond
   
5.      ((cadr (ssgetfirst))
   
6.       (command "move")  
   
7.      )
   
8.      ((or
   
9.        (setq ss (ssget "P"))
   
10.        (setq ss (ssget))
    
11.       )
    
12.       (command "move" ss "")
    
13.    ))
    
14.    (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
    
15. )
    

<br /> (defun c:a ()<br />    (cond<br />      ((cadr (ssgetfirst))<br />       (command "move")  <br />      )<br />      ((or<br />        (setq ss (ssget "P"))<br />        (setq ss (ssget))<br />       )<br />       (command "move" ss "")<br />    ))<br />    (while (= (logand (getvar "CmdActive") 1) 1) (command pause))<br /> )<br />

Andyhon

check pickfirst == 1

ZZXXQQ

这样行吗？

1. (defun c:tt ()
   
2. (command "MOVE")
   
3. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
4. (command "MOVE" "P" "")
   
5. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
6. (princ)
   
7. )
   

(defun c:tt ()<br /> (command "MOVE")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (command "MOVE" "P" "")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (princ)<br /> )<br />

lidaxiu

没明白，程序可以用啊

999999

哈哈，，支持一下，有想法就实现，加油