save screenview

[maksolino]

hello

i need a lisp to save some screenview which i will call

later (without using command zoom or pan).

Something like

save screenview 1 (2 or 3 ..)

and later

restore screeview 1 (2 or 3 ..).

cheers

[maksolino]

My wish is : whith lisp skip this steps

1.view

2.named view

3.- select named view

4.make current

5.ok

 

Thanks

[MarcoW]

My wish is : whith lisp skip this steps

1.view

2.named view

3.- select named view

4.make current

5.ok

 

Thanks

 

You are welcome

[alanjt]

You are welcome

didn't you know MacroW, this is TRL (Total Request Lisp)!

[StevJ]

hello

i need a lisp to save some screenview which i will call

later (without using command zoom or pan).

Something like

save screenview 1 (2 or 3 ..)

and later

restore screeview 1 (2 or 3 ..).

cheers

 

Autocad can already do this for you.

Research DDVIEW (or VIEW) command.

 

 

Steve

[maksolino]

hello Steve

whith your suggestion i find the solution

very simply but very powerfull for big drawings

in CUI i made two new buttoms whith command:

1. ^C^C-view

save

2. ^C^C-view

restore

Now is easy to move quickly in the drawing

thanks to all

[StevJ]

You're welcome.

And here is a handy routine that will show where all the views are in your drawing.

I am not the author of this program. I don't know who wrote it. The author did not sign his work.

 

 
;* DRAW BOX AROUND ALL VIEWS
;* CREATED 5/3/93
(defun DXF (code elist)
 (cdr (assoc code elist))
)
(defun C:VIEWSHOW ( / tbdata elist)
(if (setq tbdata (tblnext "VIEW" T))
 (while (/= tbdata nil)
  (setq port (getvar "CVPORT")
   vname (dxf 2 tbdata)                     ;extract view name
   Y (* (dxf 40 tbdata) 0.5)                ;view height
   X (* (dxf 41 tbdata) 0.5)                ;view width
  );setq
  (setq CP (dxf 10 tbdata)
   P1 (list (- (car CP) X) (- (cadr CP) Y)) ;lower left corner
   P2 (list (- (car CP) X) (+ (cadr CP) Y)) ;upper left corner
   P3 (list (+ (car CP) X) (+ (cadr CP) Y)) ;upper right corner
   P4 (list (+ (car CP) X) (- (cadr CP) Y)) ;lower right corner
  );setq
  (grdraw P1 P2 7 1)                        ; draws vector
  (grdraw P2 P3 7 1)
  (grdraw P3 P4 7 1)
  (grdraw P4 P1 7 1)
  (setq tbdata (tblnext "VIEW"))            ;* get next view
 )                                          ;* while end
)                                           ;* endif
(prompt " VIEWSHOW Done")
(princ)
)