Lisp实现Getfiled多选

函数使用要求：
1、安装.net 4.0以上；
2、把dll文件copy到一个目录，找出.net安装目录中的regasm.exe (cad为64位的用regasm64.exe),
然后用 regasm /c mycad.dll 注册dll，即可使用。

以下是lisp调用代码：

(defun c:test()
    (setq o (vlax-create-object "mycad.openmultifiles"))
    ;(vlax-invoke o "openfiles" "Excel文件(*.xls;*.xlsx)|*.xls;*.xlsx|所有文件|*.*") ;选择excel文件
    (vlax-invoke o "openfiles" "DWG文件(*.dwg)|*.dwg|所有文件|*.*") ;选择CAD文件
)

以下是dll文件的代码（C#）

using System;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace mycad
{
public class openmultifiles
{
public string[] openfiles(string fl)
{
string[] flist={};

        OpenFileDialog ofd = new OpenFileDialog();<br />            ofd.Filter = fl;<br />            ofd.ValidateNames = true;<br />            ofd.CheckPathExists = true;<br />            ofd.CheckFileExists = true;<br />            ofd.Multiselect = true;<br />            if (ofd.ShowDialog() == DialogResult.OK)<br />               flist = ofd.FileNames;
         return flist;<br />        }
}<br />}

有了这个方法，很多的VS的功能都可以为CAD所用了！