[求助]：谁看到过能在复制的同时旋转的lsp文件？

sprwind

谁有复制同时可以90、180、270度旋转该物体的lsp或其他程序？谢谢!

lsjjm

参考:

2. 
   
3. (defun C:COPYROTATE ()
   
4. (setq theset nil thelist nil mflag 0 rflag nil)
   
5. (setq startent (entlast)); obtain last entity in database
   
6. (prompt "Pick Objects to Copy: ")
   
7. (setq sset (ssget)); object selection
   
8. (initget 1 "Multiple")
   
9. (setq bpt (getpoint "\nBasepoint/Multiple: ")); basepoint or m for multiple
   
10. (if (= (type bpt) 'STR)
    
11.     (progn
    
12.     (setq mflag 1)
    
13.     (initget 1 "Fixed")
    
14.     (setq bpt (getpoint "\nBasepoint (mult. copies)/Fixed angle:")); base point or f for fixed rotation angle
    
15.        (if (= (type bpt) 'STR)
    
16.            (progn
    
17.            (setq rflag 1)
    
18.            (setq bpt (getpoint "\nBasepoint (mult. copies and fixed angle): "))
    
19.            (setq fang (getangle bpt "\nFixed Angle:"));fixed angle for rotation
    
20.            );progn
    
21.        );if
    
22.     );progn
    
23. );if
    
24. ; loop until mflag becomes nil
    
25. (while mflag
    
26.    (progn
    
27.      (setq startent (entlast))
    
28.      (setq npt (getpoint bpt "Newpoint: "))
    
29.      (command "copy" sset "" bpt npt)
    
30.      (setq thelist (list (cdr (assoc 5 (entget startent)))))
    
31.      (setq nextone startent)
    
32.        (while nextone
    
33.          (progn
    
34.            (setq nextone (entnext nextone))
    
35.              (if nextone (setq thelist (cons (cdr (assoc 5 (entget nextone))) thelist)))
    
36.          );progn
    
37.        );while
    
38.      (setq thelist (cdr (reverse thelist))); list of entity handles for copied group
    
39.      (ssmake thelist)
    
40.      (if rflag
    
41.         (command "rotate" theset "" npt (rtd fang))
    
42.         (command "rotate" theset "" npt pause)
    
43.      );if
    
44.      (setq theset nil thelist nil); reset list and selection set
    
45.      (if (= mflag 0) (setq mflag nil)); drop out of while if not multiple
    
46.    );progn
    
47. );while
    
48. (if (equal npt bpt) (redraw)); if @ was used for newpoint redraw old object
    
49. (setq theset nil thelist nil);try to clean up after one's self
    
50. );defun
    
51. 
    
52. ;turn list of ehandles to selection set
    
53. (defun ssmake(sslist)
    
54.        (setq theset (ssadd))
    
55.        (foreach ent sslist (ssadd (handent ent) theset))
    
56. )
    

<br /> (defun C:COPYROTATE ()<br /> (setq theset nil thelist nil mflag 0 rflag nil)<br /> (setq startent (entlast)); obtain last entity in database<br /> (prompt "Pick Objects to Copy: ")<br /> (setq sset (ssget)); object selection<br /> (initget 1 "Multiple")<br /> (setq bpt (getpoint "\nBasepoint/Multiple: ")); basepoint or m for multiple<br /> (if (= (type bpt) 'STR)<br />     (progn <br />     (setq mflag 1)<br />     (initget 1 "Fixed")<br />     (setq bpt (getpoint "\nBasepoint (mult. copies)/Fixed angle:")); base point or f for fixed rotation angle<br />        (if (= (type bpt) 'STR)<br />            (progn<br />            (setq rflag 1)<br />            (setq bpt (getpoint "\nBasepoint (mult. copies and fixed angle): "))<br />            (setq fang (getangle bpt "\nFixed Angle:"));fixed angle for rotation<br />            );progn<br />        );if<br />     );progn<br /> );if<br /> ; loop until mflag becomes nil<br /> (while mflag<br />    (progn<br />      (setq startent (entlast))<br />      (setq npt (getpoint bpt "Newpoint: ")) <br />      (command "copy" sset "" bpt npt)<br />      (setq thelist (list (cdr (assoc 5 (entget startent)))))<br />      (setq nextone startent)<br />        (while nextone<br />          (progn<br />            (setq nextone (entnext nextone))<br />              (if nextone (setq thelist (cons (cdr (assoc 5 (entget nextone))) thelist)))<br />          );progn<br />        );while<br />      (setq thelist (cdr (reverse thelist))); list of entity handles for copied group<br />      (ssmake thelist)<br />      (if rflag<br />         (command "rotate" theset "" npt (rtd fang))<br />         (command "rotate" theset "" npt pause)<br />      );if<br />      (setq theset nil thelist nil); reset list and selection set<br />      (if (= mflag 0) (setq mflag nil)); drop out of while if not multiple<br />    );progn<br /> );while<br /> (if (equal npt bpt) (redraw)); if @ was used for newpoint redraw old object<br /> (setq theset nil thelist nil);try to clean up after one's self<br /> );defun<br /> <br /> ;turn list of ehandles to selection set<br /> (defun ssmake(sslist)<br />        (setq theset (ssadd))<br />        (foreach ent sslist (ssadd (handent ent) theset))<br /> )<br />

XDSoft

最初由 sprwind 发布
[B]谁有复制同时可以90、180、270度旋转该物体的lsp或其他程序？谢谢! [/B]

请参见“晓东工具箱”“自由复制”LSP程序的代码，不仅仅复制的同时旋转，开可以缩放，对齐，镜像等。使用了ACAD的“AcEdJig类对象拖动机制”，“矢量绘制”速度快。

sprwind

问题已经解决！谢谢！

f5612140

程序的目的在減少繁瑣的操作及提高工作效率,兩個指令就能完成的操作,大費周章的寫了相關的程序,即使功能又強又完整,是否有意義,或許我對程序設計體會不深,總覺得這個程序的目的可做教學及示範練習,實際上運用功效不大

xbx7920

R14的BONUS里面有这样的一个命令啊！

cqnj023

在et工具里有mocoro.arx。加载其即可