COPY & ROTATE vienu metu

Kaip vienu metu objektą ir nukopijuoti ir pasukti? Kaip skaitykite toliau...

Vienas iš paprasčiausiu būdu pasinaudoti ARRAY funkcija su polar array metodu arba jei turite ExpressTool tai MOCORO komanda.

Trečias būdas pasinaudojant žemiau pateikta LISP funkcija, komanda iškviečiama su CORO pavadinimu.

(defun c:coro ( / What BasePT)
 (setvar "cmdecho" 0)
 (princ "\nSelect Objects to Copy and Rotate: ")
 (setq What (ssget))
 (command "copy" What "" "0,0" "0,0")
 (setq BasePT (getpoint "\nSelect Base Point for Rotation: "))
 (command "rotate" What "" BasePT)
 (setq What nil)
 (setvar "cmdecho" 1)
 (princ)
)