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

lichh_2003

1、选择闭合区域内的和穿过的所有的

2、复制到指定点

3、旋转

谢谢。LISP源码或编译过的皆可。谢谢！

jialiang168

(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"))
(setq ANG0 (getangle PT2 "\n 指定旋轉角度:"))
(setq ANG (* (/  ANG0 PI) 180))
(command ".rotate" ss1 "" pt2 ANG)
(setvar "OSMODE" OM)
(PRINC)
)

jialiang168

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

tanle2020

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

(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

第二个好用