Excuse me for saying this, but everything that everyone
has told you to this point, is wrong. Most people seem
to overlook the fact that they can use GetObject to get
an AcadDocument object, as well as AcadApplication.
If the objective is to start a running instance of
AutoCAD and open an existing file, then what you
should be doing, is this:
Dim Doc As AcadDocument
Set Doc = GetObject("C:\TEMP\TEST.DWG")
You can then get the Application object from the
Document object returned by GetObject().
This will not only start AutoCAD and make it load the
specified file, but if the file is already open in a
running instance of AutoCAD, it will return the open
document object, rather than start another instance of
AutoCAD and load the file again.
Not only using this method eliminate the need to check
whether an instance of AutoCAD is already running, it
eliminates the need to call the Open() method, and it
does something important that few VB programmers ever
bother to do, which is to check to see if the existing
file they are about to open, is already open in a
running instance of AutoCAD.
Graham Steele wrote:
>
> Yes this is a2k, It works fine in AutoCAD 14
> acadselect file is defined by dialog box
> even if I specify the path I error
> Thanks
>
> ''Define AutoCAD Variables System
> Dim AcaDApplication As AcaDApplication
> Dim ThisDrawing As AcadDocument
>
> Dim AcadSelectedFile As String 'Define the selected file for Autocad
>
> Dim objectLayer As AcadLayer 'Variable For Layers
>
> Dim LayerTmp As String'Temporay Locator for Print the Layers of a file
>
> 'On Error GoTo ErrorLog 'Catch any errors
>
> Set AcaDApplication = CreateObject("Autocad.Application") 'open AutoCAD
> Set AcaDApplication = GetObject(, "AutoCAD.Application") 'setq reference to
> AutoCAD Application
>
> AcaDApplication.Visible = True 'Make Autocad Visible
> Set ThisDrawing = AcaDApplication.ActiveDocument 'set reference to active
> document
>
> 'Open the new file
> ThisDrawing.Open AcadSelectedFile.......................
>
> --
> Graham Steele
> CADD Manager
> Whitman Requardt Associates
> Baltimore, MD, 21218
> gsteele@wrallp.com
> Frank Oquendo wrote in message
> news:ef06d74.5@WebX.SaUCah8kaAW...
> > Verify the existence of the drawing and that you are specifying the
> correct
> > path. If you still have trouble, post the exact you are using. Also, the
> > *assumption* has been that you're programming A2K. Is this the case?
> >
> > --
> > Visit me at http://www2.stonemedia.com/franko
> >
> > "Graham Steele" wrote in message
> > news:ef06d74.4@WebX.SaUCah8kaAW...
> > > The method identified is not working
> > >
> > > I still have a method open of object acaddocument failed
> > >
> > > If a mark the file for read only this is requesting and users defined
> data
> > > type,
> > > for the read only method
> > > Sorry for the inconvenience
> >
--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/
