question about degrees in turning instead of fixed degrees turning in viewport

[killerdemaster]

Hai guys,
How can I, instead of a fixed 90 degrees, make it a question of how much degrees it's going to be?
So that I don't have to use 3 scripts.

(DEFUN C:viewportrotate90 ()
(SETVAR "CMDECHO" 0)
(COMMAND "PSPACE")
(COMMAND "-vports" "lock" "off" "all" "")

(COMMAND "MSPACE")
(command "ucsicon" "on")
(command "dview" "" "tw" "90" "")

(COMMAND "-vports" "lock" "on" "all" "")
(COMMAND "MSPACE")
(command "ucs" "view")

(setvar "cmdecho" 1)

(princ "\nViewport rotated to UCS 90.")
(PRINC))

Moderator Note:

How to use [ CODE ] tags...

['gile']

Hi,

Have a look at the getangle (and getorient) function.

[killerdemaster]

I'm not that good at it, that's why I'm asking those questions. In that case 2 out of 5 problems are solved.

['gile']

something like this:

(DEFUN C:viewportrotate (/ ang)
  (SETVAR "CMDECHO" 0)
  (COMMAND "_PSPACE")
  (COMMAND "_-vports" "_lock" "_off" "_all" "")

  (setq ang (getangle "\nSpecify Rotation angle: "))

  (COMMAND "_MSPACE")
  (command "_ucsicon" "_on")
  (command "_dview" "" "_tw" (angtos ang) "")

  (COMMAND "_-vports" "_lock" "_on" "_all" "")
  (COMMAND "_MSPACE")
  (command "_ucs" "_view")

  (setvar "cmdecho" 1)

  (princ (strcat "\nViewport rotated to UCS " (angtos ang)))
  (PRINC)
)

[Tom Beauford]

Why not try a macro:

 -vports;_lock;_ON;;_dview;all;;tw;\;^P(progn(setvar "snapang" (- (getvar "viewtwist")))(princ))

I never lock my viewports, save a lot of MS views to protect my work instead. As easy as they are to lock/unlock simply locking a viewport wouldn't make me feel very secure.