[源码]对象复制旋转

carrot1983

2. 
   
3. (princ "\n[carrot1983][7/3/09]★复制旋转命令: CR")
   
4. (defun C:CR (/ LAST_PT NEW_SSALL SS SSALL SSP)
   
5.   (princ "\n★选择对象复制旋转")
   
6.   (if (and (setq SSALL (ssget "X"))
   
7.            (setq SS (ssget))
   
8.       )
   
9.     (progn
   
10.       (command "_.COPY" SS "")
    
11.       (while (= (getvar "CMDNAMES") "COPY")
    
12.         (command PAUSE)
    
13.       )
    
14.       (if (and (setq LAST_PT (getvar "LASTPOINT"))
    
15.                (setq NEW_SSALL (ssget "X"))
    
16.           )
    
17.         (progn
    
18.           (command "_.SELECT" NEW_SSALL "R" SSALL "")
    
19.           (setq SSP (ssget "P"))
    
20.           (command "_.ROTATE" SSP "" "_NON" LAST_PT)
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    
27. 
    

<br /> (princ "\n[carrot1983][7/3/09]★复制旋转命令: CR")<br /> (defun C:CR (/ LAST_PT NEW_SSALL SS SSALL SSP)<br />   (princ "\n★选择对象复制旋转")<br />   (if (and (setq SSALL (ssget "X"))<br />            (setq SS (ssget))<br />       )<br />     (progn<br />       (command "_.COPY" SS "")<br />       (while (= (getvar "CMDNAMES") "COPY")<br />         (command PAUSE)<br />       )<br />       (if (and (setq LAST_PT (getvar "LASTPOINT"))<br />                (setq NEW_SSALL (ssget "X"))<br />           )<br />         (progn<br />           (command "_.SELECT" NEW_SSALL "R" SSALL "")<br />           (setq SSP (ssget "P"))<br />           (command "_.ROTATE" SSP "" "_NON" LAST_PT)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

ljh19991220

谢谢楼主提供源码，学习下。

hbbboss

有个说明就好了

ljh19991220

我用了下，有时候好像速度有点慢。是不是因为选择集“X”所有图形,全选了的原因？

jwdjwd

试用中，感谢分享了！

AyungerStudio

;;;************************
;;;No.9-3 复制并旋转 函数  
;;;************************
(defun C:CR (/ SS1        newSS xPtnewEntName XPT)
  (prompt "\n【提示】选择复制并旋转对象...")
  (if (and (setq SS1 (ssget))
                                         (setq xPt (getpoint "\n指定基点:")))
    (progn
                        (while T
              (setq newEntName (entlast))
              (princ "\n指定目标点:")
              (command "copy" SS1 "" xPt pause)
              (setq newSS (ssadd))
              (while (setq newEntName (entnext newEntName)) (ssadd newEntName newSS))
              (princ "\n指定旋转角度或 [参照(R)]:")
              (command "rotate" newSS "" "non" "@" pause)
                        );end_while T
    );end_progn
  );end_if
);end_defun