Save view name with named UCS?

[Small Fish]

hi

is it possible to save a named UCS with a named View?

I know it can be done in the "VIEW" dialogue box. then hitting the "NEW" button.

Refer to this page:

http://www.cadtutor.net/corner/2005/april.php

 

However can something similar be achieved programatically using Visual Lisp

or Autolisp?

thanks to anyone who can help

[gile]

Hi,

 

If an UCS is saved with a named view, the UCS datas are stored in the view dxf datas which you can access using

(tblsearch ...) or (entget (tblobjname ...))

72 code groupe = 1 if an UCS is saved with the view

110 code group = UCS origin

111 code group = UCS X axis

112 code group = UCS Y axis

 

See DXF reference in the developer's help.

[David Bethel]

This definitely a "USE AT YOUR OWN RISK", I made it for in house use as it defines a restore routine without checking to see if a routine of the same name already exists. It also uses (exit) without an error trap.

 

[b][color=BLACK]([/color][/b]defun c:vcs [b][color=FUCHSIA]([/color][/b]/ vn com[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not vn[b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]snvalid vn[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq vn [b][color=MAROON]([/color][/b]strcase [b][color=GREEN]([/color][/b]getstring [color=#2f4f4f]"\nView/UCS Name To Save:   "[/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]if [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"VIEW"[/color] vn[b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"UCS"[/color] vn[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]progn
      [b][color=MAROON]([/color][/b]initget [color=#2f4f4f]"Yes No"[/color][b][color=MAROON])[/color][/b]
      [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]= [color=#2f4f4f]"No"[/color] [b][color=BLUE]([/color][/b]getkword [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"\n"[/color] vn [color=#2f4f4f]"Exists - Replace [b][color=PURPLE]([/color][/b]Y/N[b][color=PURPLE])[/color][/b] <Y>:   "[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
          [b][color=GREEN]([/color][/b]exit[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]setvar [color=#2f4f4f]"EXPERT"[/color] 5[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Save"[/color] vn
        [color=#2f4f4f]"_.UCS"[/color]  [color=#2f4f4f]"_Save"[/color] vn[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"EXPERT"[/color] 0[b][color=FUCHSIA])[/color][/b]

[b][color=FUCHSIA]([/color][/b]setq com [b][color=NAVY]([/color][/b]strcat [color=#2f4f4f]"[b][color=MAROON]([/color][/b]defun c:r"[/color] vn [color=#2f4f4f]" [b][color=GREEN]([/color][/b][b][color=GREEN])[/color][/b] "[/color]
                 [color=#2f4f4f]"[b][color=GREEN]([/color][/b]command \"[/color]_.VIEW\[color=#2f4f4f]" \"[/color]_Restore\[color=#2f4f4f]" \"[/color][color=#2f4f4f]" vn "[/color]\[color=#2f4f4f]""[/color]
                         [color=#2f4f4f]" \"[/color]_.UCS\[color=#2f4f4f]"  \"[/color]_Restore\[color=#2f4f4f]" \"[/color][color=#2f4f4f]" vn "[/color]\[color=#2f4f4f]"[b][color=GREEN])[/color][/b]"[/color]
                 [color=#2f4f4f]"[b][color=GREEN]([/color][/b]prin1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]"[/color] [b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]eval [b][color=NAVY]([/color][/b]read com[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]princ [b][color=NAVY]([/color][/b]strcat [color=#2f4f4f]"C:R"[/color] vn [color=#2f4f4f]" Defined For Restoring This View/UCS"[/color][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]

-David

[Small Fish]

Many Thanks Dave - I had to modify it to suit, but its just what I wanted,

cheers

S.F.