Drawing orientation: viewing dwgs at 90 degrees...

[James Murphy]

Dave,
I had you pegged as being from the same "old school" as Paul Turvill. : )
Once you get the concept of Layouts and PS you can't beat it.

Murph

"David Doane" <> wrote in message ...
> . Of course
> I only work in model space. :)

[David Doane]

Not as fancy as yours, Jamie, but this simply turns the drawing. Of course

I only work in model space. :)

(defun C:DVT (/ evtw nvtw) ;Dynamic View Twist
(setq evtw (rtos (* (getvar "viewtwist") (/ 180 pi)) 2 1))
(setq nvtw (if (equal evtw "0.0") 90 0))
(command "dview" "all" "" "twist" nvtw "")
(princ)
)

Dave D

"Jamie Duncan" <jamie...@eol.ca> wrote in message
news:857A6B4D7E11CB42...@in.WebX.maYIadrTaRb...
> Dear Levon,
>
> I truly recommend the following:
>
>
> (defun c:myvs (/ x_ucs)
> (setq x_ucs (getvar "ucsfollow"))
> (setvar "ucsfollow" 1)
> (if (not (tblsearch "UCS" "Portrait"))
> (command ".ucs" "new" "ZA" "0,0,0" "1,0,1" ".ucs" "save" "Portrait")
> (command ".ucs" "r" "Portrait")
> )
> (command ".zoom" "extents")
> (if (not (tblsearch "view" "Portrait"))
> (command "-view" "save" "Portrait")
> )
> (if (not (tblsearch "UCS" "Landscape"))
> (command ".ucs" "world" ".ucs" "s" "Landscape")
> (command "r" "Landscape")
> )
> (command ".zoom" "extents")
> (if (not (tblsearch "view" "Landscape"))
> (command "-view" "save" "Landscape")
> )
> (setvar "ucsfollow" x_ucs)
> )
>
> this will set up a portrait and landscape view - load and run in model
space. Now to toggle you need two toolbuttons, one that restores portrai,
and one that restores landscape.
>
> good luck!
>
>
>
> --
> Jamie Duncan
>
> "Don't walk in front of me, I may not follow. Don't walk behind me, I may
not lead. Walk beside me and be my friend. "
>
> "Levon-Austin" <levon-...@lycos.com> wrote in message
news:f187b...@WebX.maYIadrTaRb...
> Greetings,
> I'm looking for a lisp that would allow me to view dwgs at 90 degrees
(Landscape, Portrait orientation). This would relieve me from having to tilt
my head for hours on my wiring dwgs.
> Thanks, Levon Austin
>
>

[Jamie Duncan]

That's an excellent idea, yawn....

--
Jamie Duncan

"Don't walk in front of me, I may not follow. Don't walk behind me, I may
not lead. Walk beside me and be my friend. "

"Tom Smith" <tsm...@dongardner.com> wrote in message
news:781357ECCA5F7C6C...@in.WebX.maYIadrTaRb...
> He could just lie down across his desk with his head on a comfortable
> pillow.
>
> Ken Alexander <ka...@fremontmillwork.com> wrote in message
> news:672548A99501364D...@in.WebX.maYIadrTaRb...
> > Is turning your monitor on its side out of the question. <g>
> > Sorry, a little Friday humor.
> >
> > --
> > Ken Alexander
> > Acad2000
> > Windows2000 Prof.
> >
> > "We can't solve problems by using the same kind
> > of thinking we used when we created them."
> > --Albert Einstein

[kDispoto]

I find the following routine useful when I need to read or write text that
normally shows vertically. Basically the routine combines a number of
standard AutoCAD commands. A nice feature with this routine is that it
maintains the center point of the screen. By the way - this routine only
works in model space.
To get back to normal view I run the command 2 more times.
To make the whole process faster I have assigned lisp to a toolbar button.

Ken Dispoto
NJAUG Vice Prez

;;RotV90.LSP
;; Routine to rotate the view 90 degrees clockwise - model space only

(defun c:ROTV90 (/ VCEN VSZ ZAX )
(setq VCEN (getvar "VIEWCTR"))
(setq VSZ (getvar "VIEWSIZE"))
(setq ZAX 90.0)
(command "UCSICON" "ON")
(command "UCS" "VIEW")
(command "UCS" "Z" ZAX)
(command "PLAN" "CURRENT")
(command "UCS" "P")
(command "ZOOM" "C" VCEN VSZ)
(command "UCS" "VIEW")
(princ)
)
(prompt "\n type ROTV90 ")
(princ)