Make a new drawing or open one

[Juergen.Becker]

Hi,

there is something thats makes me crazy.

In one of my application I want to open a drawing and make a new one.
That doesnt work. So I copy following code from the .Net help.

        [CommandMethod("NewDrawing", CommandFlags.Session)]

        public static void NewDrawing()
        {
            string strTemplatePath = "acadiso.dwt";
            DocumentCollection acDocMgr  = Application.DocumentManager;
            acDocMgr.DocumentActivationEnabled = true;
            Autodesk.AutoCAD.ApplicationServices.Document acDoc = DocumentCollectionExtension.Add(acDocMgr, strTemplatePath);

// Alternatively: Autodesk.AutoCAD.ApplicationServices.Document acDoc = Application.DocumentManager.Add(strTemplatePath);
            acDocMgr.MdiActiveDocument = acDoc;
        }

At the end the MdiActiveDocument is still the drawing which where open before a new document is created.

BTW: I'm using 2013 and 2014. This method works fine in 2010.

Whats the different between 2013/ 2014 and 2010.

Thanks for help.

Best Regards Jürgen

[mzakiralam]

please try the method which has been shown in below link
http://exchange.autodesk.com/autocad/enu/online-help/browse#WS73099cc142f48755-385a98b0121d1bb015f-3...

[Juergen.Becker]

Hi,

thanks for reply.

That is what I did all the time. The MdiActiveDocument object is always the old one.

Therefore AutoCAD didnt switch or actived the new drawing.

This is my actual code (really simple just for testing):

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices.DocumentCollectionExtension

Public ClassClass1

    < CommandMethod("NewDrawing", CommandFlags.Session)>

   Public Sub NewDrawing()

      '' Specify the template to use, if the template is not found 

   '' the default settings are used.

   Dim strTemplatePath AsString = "acad.dwt"

   Dim acDocMgr AsDocumentCollection = Application.DocumentManager

   Dim acDoc AsDocument = acDocMgr.Add(strTemplatePath)

       acDocMgr.MdiActiveDocument = acDoc

 End Sub

End Class

The problem is now that no editor works probably.

Best Regards Jürgen

[Alfred.NESWADBA]

Hi,

does that work (for me it does):

<Runtime.CommandMethod("NewDrawing", Runtime.CommandFlags.Session)> _
Public Sub NewDrawing()
   Dim strTemplatePath As String = "acad.dwt"
   Dim acDocMgr As ApplicationServices.DocumentCollection = ApplicationServices.Application.DocumentManager
			Autodesk.AutoCAD.ApplicationServices.DocumentCollectionExtension.Add(acDocMgr, strTemplatePath)

End Sub

When I copied your code into my VS2012 project (that is prepared for AutoCAD 2013) I looked to that syntax:

    acDocMgr.Add(strTemplatePath)

...if you try to type    acDocMgr.    after the dot you should get available methods/properties and there is no .Add available (or I missed some Import?)

- alfred -

- alfred -

[Juergen.Becker]

Hi,

I did what you wrote but that doesnt solved that problem.

Please try this and you will see what I mean.

    <CommandMethod("NewDrawing", CommandFlags.Session)>

PublicSub NewDrawing()

Dim strTemplatePath AsString = "acad.dwt"

Dim acDocMgr As Autodesk.AutoCAD.ApplicationServices.DocumentCollection =

        ApplicationServices.

Application.DocumentManager

Dim acDoc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.DocumentCollectionExtension.Add(acDocMgr, strTemplatePath)

        acDocMgr.MdiActiveDocument = acDoc

Dim hED As EditorInput.Editor = acDoc.Editor

Dim hPr AsPromptSelectionOptions

Dim hResult AsPromptSelectionResult = hED.SelectAll()

EndSub

The line with hED.SelectAll() will crash with an eNotApplicable Error. That because the editor shows at the old drawing not into the new one. I know that line makes no sence because there are no elements in the drawing. I just wanted to show you what I mean.

Best Regards Jürgen

[Alfred.NESWADBA]

Hi,

>> The line with hED.SelectAll() will crash with an eNotApplicable Error

No, your code does not crash (testing currently with AutoCAD 2013 German with .English language pack (G.114.0.0), 64bit on Win7.

I have made (and attached) a project for you with the content so you can compare your project settings with mine.

- alfred -

[Hallex]

Hi, Jürgen

You may want to try this code as well,

idea is not mine though

  public bool is_template = true;

  [CommandMethod("od", CommandFlags.Modal)]
  public void testNewDocOpen()
  {
      // possible using examples:
     // is_template = true;
     // OpenDocInAppContext("acad.dwt");// <-- or acadiso.dwt

      // Or
       is_template = false;
       OpenDocInAppContext(@"C:\Test\WorkingDrawing.dwg");// <-- your file name here
  }

  public void OpenDocInAppContext(string filename)
  {
      DocumentCollection docs = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager;
      docs.ExecuteInApplicationContext(OpenDocCallback, filename);
  }

  // The callback that will run in the application
  // execution context:


  public void OpenDocCallback(object Data)
  {
      // Open the document here, whose name was passed in
      // the Data parameter
      DocumentCollection docs = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager;
      if (is_template)
      {
          docs.Add(Data.ToString());
      }
      else
      {
          docs.Open(Data.ToString(), false, "");

          // documents is already open and activated, pass your utility here:
          //Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.RunCommand("my cool command");
      }
  }

[_gile]

Hi,

Just a little precision about extension methods using with VB.

With AutoCAD 2013 some methods have been moved to another class (see the Migration Guide topic in the ObjectARX 2013 \Docs\arxmgd.chm file).

For exmple the DocumentCollection.Add() method became an extension method defined in the DocumentCollectionExtension class (or module in VB).

Extension methods can be called both way (assuming docCol = Application.DocumentManager):

- as static (Shared) methods:

doc = Autodesk.AutoCAD.ApplicationServices.DocumentCollectionExension.Add(docCol, "acad.dwt")

- as instance methods of the extended type:

doc = docCol.Add("acad.dwt")

The second one will directly work with C# because DocumentCollectionExtension is a class of the ApplicationServices namespace.

But with VB extension methods have to be defined in a Module, so, the DocumentcollectionExtension module have to be imported first for this behavior to be available.

Imports Autodesk.AutoCAD.ApplicationServices.DocumentCollectionExtension

[Juergen.Becker]

Many, many thanks to all of you.

I think I solved that problem.

The problem was my AutoCAD. After reinstall and installing the SP2 it works fine.

But I didnt test it in my application enviroment, I will see if it works there.

Nice Weekend.

Best Regards Jürgen.

[Hallex]

Jürgen, you can use my code in any public class

without creating extension static class

Have a nice weekend