旋转复制实体(以角度）

正航

(defun c:copyrt(/ ss r p1 osm jd s)
     (setvar "cmdecho" 0)
     (setq jd (getvar "auprec"))
     (setvar "auprec" 5)
     (setq osm (getvar "osmode"))
     (princ "\n     *****  旋转复制实体程序 ***** ")
     (princ "\n 请选择旋转复制的实体:")
     (setq ss (ssget))
     (if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
     (if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
     (setq p1 (getpoint "\n 请选择圆心点:"))
     (if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
     (command ".copy" ss "" p1 p1)
     (command ".rotate" ss "" p1 "r" "0" pause)
     (princ "\n 旋转复制完成!")
     (command ".redraw")
     (setvar "osmode" osm)
     (setvar "auprec" jd)
     (princ)
     )

梦断江南

其它方法，仅供参考:
方法a:用cad的夹点功能
1。选实体
2。点选热点（变红），鼠标右键取rotate,鼠标右键取copy
3.可以绕热点拷贝多个实体选集。
方法b:
1。用array功能

2. 
   
3. (defun c:arr1 ()
   
4. (setq ss1 (ssget) pt (getpoint "\n原点:"))
   
5. (command "_array" ss1 "" "p" pt 2 pause "")
   
6. )
   
7. ;或者
   
8. (defun c:arr2 ()
   
9. (setq ss1 (ssget) pt1 (getpoint "\n原点:") pt2 (getpoint pt1 "\n角度:"))
   
10. (command "_array" ss1 "" "p" pt1 2 pt2 "")
    
11. )
    

<br /> (defun c:arr1 ()<br /> (setq ss1 (ssget) pt (getpoint "\n原点:"))<br /> (command "_array" ss1 "" "p" pt 2 pause "")<br /> )<br /> ;或者<br /> (defun c:arr2 ()<br /> (setq ss1 (ssget) pt1 (getpoint "\n原点:") pt2 (getpoint pt1 "\n角度:"))<br /> (command "_array" ss1 "" "p" pt1 2 pt2 "")<br /> )<br />

LUCAS

仅供参考:

2. 
   
3. (defun c:copyrt(/ holdecho osm ss p1)
   
4. (setq holdecho (getvar "cmdecho"))
   
5. (setvar "cmdecho" 0)
   
6. (setq osm (getvar "osmode"))
   
7. (princ "\n ***** 复制旋转实体程序 ***** ")
   
8. (while (= ss nil)
   
9. (princ "\n 请选择复制旋转的实体:")
   
10. (setq ss (ssget))
    
11. (if (= ss nil)(alert "\n您未选择有效的复制旋转实体!"))
    
12. )
    
13. (setvar "osmode" 39)
    
14. (initget 1)
    
15. (setq p1 (getpoint "\n 请选择复制基准点:"))
    
16. (setvar "osmode" 0)
    
17. (command "_.copy" ss "" p1 p1)
    
18. (setvar "osmode" 39)
    
19. (prompt "\n 请选择复制目标点:")
    
20. (command "_.move" "p" "" p1 pause)
    
21. (initget 1)
    
22. (setq p1 (getpoint "\n 请选择旋转基准点:"))
    
23. (setvar "cmdecho" 1)
    
24. (command "_.rotate" "p" "" p1 pause)
    
25. (setvar "osmode" osm)
    
26. (setvar "cmdecho" holdecho)
    
27. (princ)
    
28. )
    

<br /> (defun c:copyrt(/ holdecho osm ss p1) <br /> (setq holdecho (getvar "cmdecho"))<br /> (setvar "cmdecho" 0) <br /> (setq osm (getvar "osmode")) <br /> (princ "\n ***** 复制旋转实体程序 ***** ") <br /> (while (= ss nil)<br /> (princ "\n 请选择复制旋转的实体:")<br /> (setq ss (ssget))<br /> (if (= ss nil)(alert "\n您未选择有效的复制旋转实体!"))<br /> ) <br /> (setvar "osmode" 39)<br /> (initget 1)<br /> (setq p1 (getpoint "\n 请选择复制基准点:"))<br /> (setvar "osmode" 0)<br /> (command "_.copy" ss "" p1 p1) <br /> (setvar "osmode" 39)<br /> (prompt "\n 请选择复制目标点:")<br /> (command "_.move" "p" "" p1 pause) <br /> (initget 1)<br /> (setq p1 (getpoint "\n 请选择旋转基准点:"))<br /> (setvar "cmdecho" 1)<br /> (command "_.rotate" "p" "" p1 pause) <br /> (setvar "osmode" osm) <br /> (setvar "cmdecho" holdecho)<br /> (princ) <br /> )<br />

云中人

用于电线杆好爽！

zhuquanmao

稍微做了修改
[PHP](defun c:copyrt (/ ortho osm jd ss pl)
  (setvar "cmdecho" 0)
  (setq ortho (getvar "orthomode"))
  (setvar "orthomode" 0)
  (setq osm (getvar "osmode"))
  (setq jd (getvar "auprec"))
  (setvar "auprec" 5)
  (setq ss nil)
  (while (= ss nil)
    (princ "\n请选择复制旋转的实体:")
    (setq ss (ssget))
    (if (= ss nil)
      (alert "\n您未选择有效的复制旋转实体!")
    )
  )
  (setvar "osmode" 4)
  (initget 1)
  (setq p1 (getpoint "\n请选择圆心点:"))
  (command ".copy" ss "" p1 p1)
  (prompt "\n请输入旋转角度:")
  (command ".rotate" ss "" p1 "r" "0" pause)
  (command ".redraw")
  (setvar "orthomode" ortho)
  (setvar "osmode" osm)
  (setvar "auprec" jd)
  (princ)
)[/PHP]

xstlf

如何才能实现多次复制旋转呢？这才是关键。

它山之石

　　这个主题有好几个版本了。不妨试试俺的那个实体旋转复制程序，可以多次复制。在“横眉冷对千图纸”下面有链接。