lichh_2003 发表于 2006-4-21 09:13:00

求助：图形先复制，然后再对这个旋转（用弧度）

<P>1、选择闭合区域内的和穿过的所有的</P>
<P>2、复制到指定点</P>
<P>3、旋转</P>
<P>谢谢。LISP源码或编译过的皆可。谢谢！</P>

jialiang168 发表于 2010-6-19 23:38:00

<font face="Verdana">(prompt "\n\n***复制旋轉 2006.10.18***命令：ffc")<br/>(defun C:ffc ( / ent om pt1 pt2 ss ss1)<br/>(setq OM (getvar "OSMODE"))<br/>(setvar "OSMODE" 4863)<br/>(setq SS (ssget))<br/>(setq PT1 (getpoint "n 指定複制基準點:"))<br/>(setq PT2 (getpoint "\n 指定旋轉基準點:"&nbsp; PT1))<br/>(setq ent (entlast))<br/>(command ".copy" ss "" pt1 PT2)<br/>(setq ss1 (ssadd))<br/>(setq ent (entnext ent))<br/>(while ent<br/>(ssadd ent ss1)<br/>(setq ent (entnext ent))<br/>)<br/>(setq pt2 (getvar "LastPoint"))<br/>(setq ANG0 (getangle PT2 "\n 指定旋轉角度:"))<br/>(setq ANG (* (/&nbsp; ANG0 PI) 180))<br/>(command ".rotate" ss1 "" pt2 ANG)<br/>(setvar "OSMODE" OM)<br/>(PRINC)<br/>)<br/></font>

jialiang168 发表于 2010-6-20 11:17:00

楼上是我转载来发的，比较可惜的是物件不会跟着旋转。希望有高手可以修改一下。

tanle2020 发表于 2012-10-19 16:35:44

jialiang168 发表于 2010-6-20 11:17 static/image/common/back.gif
楼上是我转载来发的，比较可惜的是物件不会跟着旋转。希望有高手可以修改一下。

(prompt "\n\n***复制旋轉 2006.10.18***命令：ffc")
(defun C:ffc ( / ent om pt1 pt2 ss ss1)
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 4863)
(setq SS (ssget))
(setq PT1 (getpoint "n 指定複制基準點:"))
(setq PT2 (getpoint "\n 指定旋轉基準點:"PT1))
(setq ent (entlast))
(command ".copy" ss "" pt1 PT2)
(setq ss1 (ssadd))
(setq ent (entnext ent))
(while ent
(ssadd ent ss1)
(setq ent (entnext ent))
)
(setq pt2 (getvar "LastPoint"))
(command ".rotate" ss1 "" pt2 pause)
(setvar "OSMODE" OM)
(PRINC)
)

zmzk 发表于 2023-1-4 20:28:32

第二个好用
页: [1]
查看完整版本: 求助：图形先复制，然后再对这个旋转（用弧度）