CAD tip # 13048:

Představme si například písmena textu psaného podél oblouku a tato písmena nyní chceme každé sklopit podél jeho dolního účaří (základny).

Pomůže nám následující kód v LISPu (AutoLISPu):

(defun C:ROT3D1 ( / ss i)
 (princ "\nSelect objects to rotate individually in 3D")
 (setq ss (ssget)  i 0)
 (while (< i (sslength ss))
  (setq ent (ssname ss i))
  (command "_UCS" "_obj" ent)
  (command "_ROTATE3D" ent "" "_X" "" 90.0)
  (command "_UCS" "_P")
  (setq i (1+ i))
 );while
)

Uložte si jej do textového .LSP souboru, soubor pak načtěte do AutoCADu pomocí APLČTI (nebo přetažením myší) a napište příkaz ROT3D1. Vyberte jednotlivé objekty písmen a ty budou pootočeny o 90° podél jejich účaří, lokální objektové osy X.

Viz ukázka: