Turn FILEDIA back on...

[CornDawgPower]

How do I turn off and on “FILEDIA” in C#?

If I run the code the way it is. I get a dialog box. If I don’t turn “FILEDIA” back on at the end it work the way it should, but “FILEDIA” is turn off in the drawing.

Here is my C# code:

[CommandMethod("woSetupSubEng")]
        public void woSetupSubEng()
        {
            //  Get the current Document and Database.
            Document acDoc = Application.DocumentManager.MdiActiveDocument;
            Database acCurDb = acDoc.Database;
            var ed = acDoc.Editor;
            string strDWGName = acDoc.Name;
            ed.WriteMessage("\nRunning Command:. ");
            if (File.Exists(@"c:\\UserScript.scr"))
            {
                // Set system variable to new value
                Application.SetSystemVariable("FILEDIA", 0);
                acDoc.SendStringToExecute("._script c:\\UserScript.scr \n", true, false, false);
                Application.SetSystemVariable("FILEDIA", 1);

            }
        }

Here the Script:

open
C:\AUD\Drawings\181911-01.dwg
zoomext
qsave
close
open
C:\AUD\Drawings\181911-02.dwg
zoomext
qsave
close
open
C:\AUD\Drawings\181911-03.dwg
zoomext
qsave
close

Here the Lisp:

(defun c:zoomext ( / )
  (command "zoom" "e")
  (princ)
  )

Please don’t worry about the Script or the Lisp. They are short and simply for testing.

Thanks for any help!!!

[BlackBox]

How do I turn off and on “FILEDIA” in C#?

From Autodesk Exchange Online:

Set and Return System Variables

// Get the current value from a system variable
int nMaxSort = System.Convert.ToInt32(Application.GetSystemVariable("MAXSORT"));
 
// Set system variable to new value
Application.SetSystemVariable("MAXSORT", 100);

[CornDawgPower]

Thanks RenderMan,

I do use that SetSystemVariable to set the variable but i can turn it back on with out getting the dialog box went I run the command.

Thanks Corn

[BlackBox]

When you debug your code, does the code stay in SendStringToExecute() until the Script is complete (i.e., processed all drawings), or does it (your code) move onto the FileDia restore before it (the script) is done?

[CornDawgPower]

It move on before its done. It don't wait.

[_gile]

Hi,

This is due to SendStringToExecute() asynchronous execution.

If you realy want to do this with NET (should be easier with LISP), you have to P/Invoke acedCmd which works synchronously.

        // Replace acad.exe with accore.dll for AutoCAD 2013
        [System.Security.SuppressUnmanagedCodeSecurity]
        [DllImport("acad.exe", EntryPoint = "acedCmd",
            CharSet = CharSet.Auto, CallingConvention = CallingConvention.Cdecl)]
        extern static private int acedCmd(IntPtr resbuf);

       /// Calls an AutoCAD command (works synchronously).
       /// </summary>
       /// <param name="args">The command name followed by command inputs.</param>
       public static void Command(params object[] args)
       {
           ResultBuffer resbuf = new ResultBuffer();
           foreach (object obj in args)
           {
               switch (obj.GetType().Name)
               {
                   case "String":
                       resbuf.Add(new TypedValue((int)LispDataType.Text, obj)); break;
                   case "Int16":
                       resbuf.Add(new TypedValue((int)LispDataType.Int16, obj)); break;
                   case "Int32":
                       resbuf.Add(new TypedValue((int)LispDataType.Int32, obj)); break;
                   case "Double":
                       resbuf.Add(new TypedValue((int)LispDataType.Double, obj)); break;
                   case "Point2d":
                       resbuf.Add(new TypedValue((int)LispDataType.Point2d, obj)); break;
                   case "Point3d":
                       resbuf.Add(new TypedValue((int)LispDataType.Point3d, obj)); break;
                   case "ObjectId":
                       resbuf.Add(new TypedValue((int)LispDataType.ObjectId, obj)); break;
                   case "ObjectId[]":
                       foreach (ObjectId id in (ObjectId[])obj)
                           resbuf.Add(new TypedValue((int)LispDataType.ObjectId, id));
                       break;
                   case "ObjectIdCollection":
                       foreach (ObjectId id in (ObjectIdCollection)obj)
                           resbuf.Add(new TypedValue((int)LispDataType.ObjectId, id));
                       break;
                   case "SelectionSetDelayMarshalled":
                   case "SelectionSetFullyMarshalled":
                       resbuf.Add(new TypedValue((int)LispDataType.SelectionSet, obj)); break;
                   default:
                       throw new InvalidOperationException("Unsupported type in Command() method");
               }
           }
           acedCmd(resbuf.UnmanagedObject);

Then call:

Application.SetSystemVariable("FILEDIA", 0);
Command("._script", "c:\\UserScript.scr");
Application.SetSystemVariable("FILEDIA", 1);

[_gile]

For AutoCAD 2009 or later, you can use the non-public Editor.RunCommand() method instead of P/Invoking acedCmd().
see this here:
http://www.theswamp.org/index.php?to...3306#msg483306

[CornDawgPower]

Thanks Gile,
I will take a look at your posting.

I was out last week for SQL training.

In the completed command, the I will get a dialog box so that I can select the files to run the script on (is the reason why i didn't go with LISP).

Thanks a gain.