Quick save view and restore view

[liuhaixin88]

Hi all,

I want use three command to save view and use three command to restore view.

eg.

command "save_view1" to save view, view name is "view1"

command "restore_view1" to restore view to "view1"

......view2

......view3

[BlackBox]

These should get you started....

 

 

 

Save view:

 

(defun c:ViewSave () (command "._-view" "_s") (princ))

 

 

 

Restore view:

 

(defun c:ViewRestore () (command "._-view" "_r") (princ))

[liuhaixin88]

These should get you started....

 

Thank you! BB I know.

(defun c:ViewSave1 () (command "._-view" "_s" "view1") (princ))

(defun c:ViewRestore1 () (command "._-view" "_r" "view1") (princ))

[liuhaixin88]

(defun c:ViewRestore () (vl-cmdf "._-view" "_r" "view1") (princ))

 

"command" and "vl-cmdf " Which is better?

[BlackBox]

Thank you! BB I know.

 

You're welcome, liuhaixin88; I'm happy to help.

 

Cheers

[BlackBox]

"command" and "vl-cmdf " Which is better?

 

They're functionally the same, but COMMAND always returns Nil, whereas VL-CMDF returns T which may be useful in test expressions, etc.

 

Cheers

[liuhaixin88]

They're functionally the same, but COMMAND always returns Nil, whereas VL-CMDF returns T which may be useful in test expressions, etc.

 

Cheers

 

Hi BB, Good teaching . Thank you again.

 

Cheers

[BlackBox]

Hi BB, Good teaching . Thank you again.

 

That is kind of you to say, liuhaixin88.

[David Bethel]

I use something similar to this :

 

[color=#8b4513];;;SAVE[/color]
[b][color=BLACK]([/color][/b]defun c:sv [b][color=FUCHSIA]([/color][/b]/ p v vn vi[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq p [color=#2f4f4f]"VIEW"[/color] v 1[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq vn [b][color=NAVY]([/color][/b]strcat p [b][color=MAROON]([/color][/b]itoa v[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]tblsearch [color=#2f4f4f]"VIEW"[/color] vn[b][color=NAVY])[/color][/b]
          [b][color=NAVY]([/color][/b]setq v [b][color=MAROON]([/color][/b]1+ v[b][color=MAROON])[/color][/b] vn [b][color=MAROON]([/color][/b]strcat p [b][color=GREEN]([/color][/b]itoa v[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq vi [b][color=NAVY]([/color][/b]getint [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nView Number To Save <"[/color] [b][color=GREEN]([/color][/b]itoa v[b][color=GREEN])[/color][/b] [color=#2f4f4f]">:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]or vi [b][color=NAVY]([/color][/b]setq vi v[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Save"[/color] [b][color=NAVY]([/color][/b]strcat p [b][color=MAROON]([/color][/b]itoa vi[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

[color=#8b4513];;;RESTORE[/color]
[b][color=BLACK]([/color][/b]defun c:rv [b][color=FUCHSIA]([/color][/b]/ p vl td ev vi[b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]setq p [color=#2f4f4f]"VIEW"[/color][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq td [b][color=MAROON]([/color][/b]tblnext [color=#2f4f4f]"VIEW"[/color] [b][color=GREEN]([/color][/b]not td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]setq ev [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 2 td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]= p [b][color=GREEN]([/color][/b]substr ev 1 [b][color=BLUE]([/color][/b]strlen p[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq vl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]atoi [b][color=RED]([/color][/b]substr ev [b][color=PURPLE]([/color][/b]1+ [b][color=TEAL]([/color][/b]strlen p[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] vl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]terpri[b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]prin1 [b][color=NAVY]([/color][/b]reverse vl[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not vi[b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]member vi vl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]initget 7[b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]setq vi [b][color=MAROON]([/color][/b]getint [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\tView To Restore:   "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Restore"[/color] [b][color=NAVY]([/color][/b]strcat p [b][color=MAROON]([/color][/b]itoa vi[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 

I use a different prefix from "VIEW", but the same scenario.

 

 

-David

[liuhaixin88]

That is kind of you to say, liuhaixin88.

 

haha.

[liuhaixin88]

I use something similar to this :

 

I use a different prefix from "VIEW", but the same scenario.

 

 

-David

 

David , A good routine. Thanks for sharing.