自定义复制

lanjqka

2. ;;更改AutoCAD的复制命令
   
3. ;;目标是:在初始选择集合为空时,不需按"P"键,而是点鼠标右键就可以获取上一次选择集
   
4. ;;一是懒,二是嫌"P"太远
   
5. (defun C:C1 (/ SS) ;复制
   
6.   (if (not (setq SS (ssget)))
   
7.     (if (not (setq SS (ssget "_P")))
   
8.       (exit)
   
9.     )
   
10.   )
    
11.   (command ".COPY" SS "" "Multiple")
    
12.   (princ)
    
13. )
    
14. ;;后来发现select命令扩展更好,"P"之后,还可以对选择集增删
    
15. (defun C:C2 () ;复制
    
16. (if (not (ssget))(command ".SELECT" "Previous" PAUSE))
    
17.   (command ".COPY" (ssget "_P") "" "Multiple")
    
18.   (princ)
    
19. )

;;更改<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>的复制命令<br /> ;;目标是:在初始选择集合为空时,不需按"P"键,而是点鼠标右键就可以获取上一次选择集<br /> ;;一是懒,二是嫌"P"太远<br /> (defun C:C1 (/ SS) ;复制<br />   (if (not (setq SS (ssget)))<br />     (if (not (setq SS (ssget "_P")))<br />       (exit)<br />     )<br />   )<br />   (command ".COPY" SS "" "Multiple")<br />   (princ)<br /> )<br /> ;;后来发现select命令扩展更好,"P"之后,还可以对选择集增删<br /> (defun C:C2 () ;复制<br /> (if (not (ssget))(command ".SELECT" "Previous" PAUSE))<br />   (command ".COPY" (ssget "_P") "" "Multiple")<br />   (princ)<br /> )

bpf19880323

怎么那么复杂，看不懂。这样貌似也可以：
(defun c:c11 ()
  (setq en (ssget))
  (if (= en nil)
   (setq en (ssget "p"))
)
  (command "copy" EN "" "m")
  (princ)
)

香田里浪人

有特色，连续复制。

lanjqka

2. ;;C2在上一次空选连续右键,command "" "Multiple"会出问题 改进
   
3. (defun C:C3 (/ SS) ;复制
   
4. (if (not (ssget))
   
5. (progn(command ".SELECT" "Previous" PAUSE)(command))
   
6. );可以扩展到其他命令上
   
7.     (if (setq SS (ssget "_P"))
   
8.   (command ".COPY" SS "" "Multiple"))
   
9.   (princ)
   
10. )

;;C2在上一次空选连续右键,command "" "Multiple"会出问题 改进<br /> (defun C:C3 (/ SS) ;复制<br /> (if (not (ssget))<br /> (progn(command ".SELECT" "Previous" PAUSE)(command))<br /> );可以扩展到其他命令上<br />     (if (setq SS (ssget "_P"))<br />   (command ".COPY" SS "" "Multiple"))<br />   (princ)<br /> )

adc

用得着那么复杂吗？
(defun c:tt()
(command "copy" "p" "" "m")
)

混沌初开

原来可以这么简单!

zmzk

收藏了！有一天可能会用到