Beste forumgebruikers,
Wanneer ik UCS entity gebruikt (in combinatie met UCSfollow on) dan draait mijn tekening. Hierbij wordt volledig uitgezoomd. Ik wil graag dezelfde mate van inzoomen behouden.
Ik ben op zoek gegaan naar de zoominstellingen. Ik kan wel viewctr (hartpunt beeld) vinden, maar niet de zoomfactor die de de mate van inzoomen weergeeft.
Weet iemand waar ik deze waarde kan vinden?
Alvast bedankt, Fred.
UCSFOLLOW uitzetten en uit laten!!!!
Geef het commando: Explan
Dit is een express commando draait ook het view, maar dan met een zoom en viewcenter zo goed mogelijk hetzelfde.
Bedankt Eddy,
Ik wil juist dat de tekening draait. Dus UCSfollow moet aan staan.
Het enige probleem is, dat ik wil dat de zoomfactor gelijk blijft.
Fred
Ik heb het reeds gevonden.
Door bij de 3e regel de VIEWCTR variabele te gebruiken hoef je één keer minder te klikken.
De code wordt dan:
(DEFUN C:UZOOM2 ()
(setq zoomfactor (getvar "VIEWSIZE"))
(setq zoomcenter (getvar "VIEWCTR"))
;ucs gedraaid
(if (/= (rtd(getvar "VIEWTWIST")) 0)
(progn
(setq zoomcenter (trans zoomcenter 1 0))
);_progn
);_if
(COMMAND "_ucs" "e" pause)
(setq zoomcenter (trans zoomcenter 0 1))
(COMMAND ".zoom" "c" zoomcenter zoomfactor)
);defun
Reimer
Ik zou er dit van maken:
(DEFUN C:UZOOM3 ()
(setq zoomfactor (getvar "VIEWSIZE"))
(setq zoomcenter (getvar "VIEWCTR"))
;ucs gedraaid
(if (/= (rtd(getvar "VIEWTWIST")) 0)
(progn
(setq zoomcenter (trans zoomcenter 1 0))
);_progn
);_if
(COMMAND "_ucs" "e" pause)
(command "plan" "Current")
(setq zoomcenter (trans zoomcenter 0 1))
(COMMAND ".zoom" "c" zoomcenter zoomfactor)
);defun
Ik heb (command "plan" "Current") toegevoegd zodat "UCSFOLLOW" uit kan blijven.
Heb hier hele slechte ervaringen mee!
Heren, bedankt voor het meedenken.
Viewctr hebt ik met de volgende reden niet gebruikt. Het element, welke ik als referentie heb aangewezen voor het draaien van het ucs, wordt op deze manier niet het center van de view. Met de extra muisklik wel.
groeten, Fred