Get Named View from within Xref

Is it possible to get the name of a NAMED VIEW within an XREF? I've got a custom plotting program that plots using named views and I'd rather put that named view in just ONE drawing (the title block drawing) instead of EVERY SINGLE FILE. Is this possible?? If so, how??

Thanks in advance!
  ~ Matt

 

using the following as a portion of your code should get what you want...

Dim doc As AcadDocument
Dim XRname As String
Dim view As AcadView
Dim vName As String
Dim newView As AcadView

Set doc = acad.Documents.Open(XRname)
Set view = doc.Views.Item(vName)
doc.Close savechanges:=False
doc = Nothing
Set newView = ThisDrawing.Views.Add(vName)
newView.Center = view.Center
newView.Direction = view.Direction
newView.Height = view.Height
newView.Target = view.Target
newView.Width = view.Width

HTH,
Jeff

custom plotting program that plots using named views and I'd rather put that
named view in just ONE drawing (the title block drawing) instead of EVERY
SINGLE FILE. Is this possible?? If so, how??

 

What you can do is write an 'import view' function, by copying the view from the xref object into the drawing. Look at the online help for VBA, and you will see for the Object Model that there is for Blocks a seperate object called DataBase. What you can do is access the xrefs database (ie the database object), and then use the CopyObjects method to copy the view and its ucs settings into your drawing.


I wrote a routine like this that gives the user a list of xrefs, and on selecting the list tells them what Views are saved with that xref, so that if they select one they can import it. Works a treat and is very, very useful on working with our drawings.