自定义函数实例-选择文件

【环境】CAD2014+VS2010

using System.IO;
using System.Windows.Forms;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using Application = Autodesk.AutoCAD.ApplicationServices.Core.Application;
using OpenFileDialog = Autodesk.AutoCAD.Windows.OpenFileDialog;
using SaveFileDialog = Autodesk.AutoCAD.Windows.SaveFileDialog;
using ofdFlags = Autodesk.AutoCAD.Windows.OpenFileDialog.OpenFileDialogFlags;
using sfdFlags = Autodesk.AutoCAD.Windows.SaveFileDialog.SaveFileDialogFlags;

namespace CGabriel
{
    public class LispFileDialogs
    {
        public static string title;//对话框标题
        public static string defaultFileName;//默认路径
        public static string defaultExtension;//拓展名
        public static short flags;//
        //(setq dwgnm (GetOpenFileDialog "Hello" "D:\test\"  "dwg" 2))
        [LispFunction("GetOpenFileDialog")]
        public static ResultBuffer GetOpenFileDialog(ResultBuffer args)
        {
            if (!parseArguments(args)) return null;

            var dlgFlags = (ofdFlags) flags;
            if (((dlgFlags & ofdFlags.DefaultIsFolder) != 0) && Path.HasExtension(defaultFileName))
                defaultFileName = Path.GetDirectoryName(defaultFileName);

            var dlg = new OpenFileDialog(title, defaultFileName, defaultExtension, title, dlgFlags);
            if (dlg.ShowDialog() != DialogResult.OK)
                return null;

            var result = new ResultBuffer();
            foreach (string file in dlg.GetFilenames())
                result.Add(new TypedValue((int) LispDataType.Text, file));
            return result;
        }

        [LispFunction("GetSaveFileDialog")]
        public static TypedValue GetSaveFileDialog(ResultBuffer args)
        {
            if (!parseArguments(args))
                return new TypedValue((int) LispDataType.Nil, null);

            var dlgFlags = (sfdFlags) flags;
            if (((dlgFlags & sfdFlags.DefaultIsFolder) != 0) && Path.HasExtension(defaultFileName))
                defaultFileName = Path.GetDirectoryName(defaultFileName);

            var dlg = new SaveFileDialog(title, defaultFileName, defaultExtension, title, dlgFlags);
            if (dlg.ShowDialog() != DialogResult.OK)
                return new TypedValue((int) LispDataType.Nil, null);

            return new TypedValue((int) LispDataType.Text, dlg.Filename);
        }

        public static bool parseArguments(ResultBuffer args)
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            if (args == null)
                return notEnoughArguments(ed);

            ResultBufferEnumerator iter = args.GetEnumerator();

            iter.MoveNext();
            if (iter.Current.TypeCode != (short) LispDataType.Text)
                return wrongArguments(ed);
            title = (string) iter.Current.Value;

            if (iter.MoveNext() == false)
                return notEnoughArguments(ed);
            if (iter.Current.TypeCode != (short) LispDataType.Text)
                return wrongArguments(ed);
            defaultFileName = (string) iter.Current.Value;

            if (iter.MoveNext() == false)
                return notEnoughArguments(ed);
            if (iter.Current.TypeCode != (short) LispDataType.Text)
                return wrongArguments(ed);
            defaultExtension = (string) iter.Current.Value;

            if (iter.MoveNext() == false)
                return notEnoughArguments(ed);
            if (iter.Current.TypeCode != (short) LispDataType.Int16)
                return wrongArguments(ed);
            flags = (short) iter.Current.Value;

            return true;
        }

        public static bool notEnoughArguments(Editor ed)
        {
            ed.WriteMessage("
Too few arguments.");
            return false;
        }

        public static bool wrongArguments(Editor ed)
        {
            ed.WriteMessage("
Expected string string string int.");
            return false;
        }
    }
}