Roteer één object door middel van reference.
In AutoCad kun je dit doen met ROTATE, je moet dan voor één object 8 keer een handeling uitvoeren (klikken, toetsenboord aanslaan e.d.).
Doormiddel van de volgende Lisp-routine toe te voegen of te maken, kun je dit beperken naar 4 keer.!
Selecteer de rode tekst, copy en paste naar je eigen Lisp ding.
;;;Roteer met reference gemaakt door EddyBeerke
(defun c:rref()
(setq L1 (getpoint "\nWijs Basis point (1) aan: "))
(setq L2 (getpoint "\nWijs Referentie punt (2) aan: "))
(command "ROTATE" pause "" L1 "r" L1 L2 )
)
;;;Einde Roteer met reference
Succes en de groetjes,
EddyBeerke