; Button commands to rotate model view in 90 deg steps
; Jerry Fiedler - July 2026
; https://forum.bricsys.com/discussion/38432/rotate-model-space-view#latest
(defun c:twistCCW nil (twistModel -90.0))
(defun c:twistCW nil (twistModel 90.0))
(defun twistModel (dir)
	(command "ucs" "world")
	(setq *LookFromAngle* (+ *LookFromAngle* dir))
	(command "ucs" "z" *LookFromAngle*)
	(command "plan" "Current")
	(command "zoom" "scale" ".9x")
	(if (equal (abs *LookFromAngle*) 360. 0.0001) (setq *LookFromAngle* 0.0))
	(princ)
)
; Set default.
(setq *LookFromAngle* 0)
(princ)