各位大侠，有关VB.net编写lsp对话框函数问题！

huaxiamengqing

我想写一个lsp可以用来调用对话框的vb.net  dll,加载后就会有这个函数来调用，选中的的文件名写入CAD系统变量（没办法呀，自定义lsp函数的参数搞不明白)代码如下：

2. Imports Autodesk.AutoCAD.DatabaseServices
   
3. Imports Autodesk.AutoCAD.Windows '.OpenFileDialog
   
4. Imports Autodesk.AutoCAD.ApplicationServices
   
5. Imports Autodesk.AutoCAD.Runtime
   
6. 
   
7. Public Class CADnet
   
8.     <LispFunction("LispDialog")> _
   
9.     Public Sub LispDialog(ByVal rbArgs As ResultBuffer)
   
10.         'Dim Myvar As String = Application.GetSystemVariable("USERS1")
    
11.         Try
    
12.             Dim Myfile As String = ""
    
13.             If rbArgs = Nothing Then
    
14.                 Dim sFilter As String = "*"
    
15.                 Dim MLsDlog As New OpenFileDialog("打开----江河梦小组", "", sFilter, "", OpenFileDialog.OpenFileDialogFlags.AllowMultiple)
    
16.                 Dim Fname As String = ""
    
17.                 MLsDlog.ShowDialog()
    
18.                 For Each Fname In MLsDlog.GetFilenames()
    
19.                     Myfile = Myfile & Fname & ","
    
20.                 Next
    
21.         Application.SetSystemVariable("USERS1", Myfile)
    
22.         MLsDlog = Nothing
    
23.         End If
    
24.         Catch e As Exception
    
25.         End Try
    
26.     End Sub
    
27. End Class

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.DatabaseServices<br /> Imports Autodesk.AutoCAD.Windows '.OpenFileDialog<br /> Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.Runtime<br /> <br /> Public Class CADnet<br />     <LispFunction("LispDialog")> _<br />     Public Sub LispDialog(ByVal rbArgs As ResultBuffer)<br />         'Dim Myvar As String = Application.GetSystemVariable("USERS1")<br />         Try<br />             Dim Myfile As String = ""<br />             If rbArgs = Nothing Then<br />                 Dim sFilter As String = "*"<br />                 Dim MLsDlog As New OpenFileDialog("打开----江河梦小组", "", sFilter, "", OpenFileDialog.OpenFileDialogFlags.AllowMultiple)<br />                 Dim Fname As String = ""<br />                 MLsDlog.ShowDialog()<br />                 For Each Fname In MLsDlog.GetFilenames()<br />                     Myfile = Myfile & Fname & ","<br />                 Next<br />         Application.SetSystemVariable("USERS1", Myfile)<br />         MLsDlog = Nothing<br />         End If<br />         Catch e As Exception<br />         End Try<br />     End Sub<br /> End Class

加载dll后确实有了这个函数，选中文件文件名就会存入系统变量。但是问题来了，如果点击取消按钮，CAD会马上出现致命错误，请各大侠给指点指点！

sailorcwx

if MLsDlog.ShowDialog()<>DialogResult.OK Then Return

huaxiamengqing

楼上正解，多谢大侠指点。

2. Imports Autodesk.AutoCAD.DatabaseServices
   
3. Imports Autodesk.AutoCAD.Windows '.OpenFileDialog
   
4. Imports Autodesk.AutoCAD.ApplicationServices
   
5. Imports Autodesk.AutoCAD.Runtime
   
6. Imports Autodesk.AutoCAD.LayerManager.LayerFilter
   
7. 'E:\我的磁盘\源代码\VB.net\vb.net程序\lsp函数对话框（lispdialog）\lsp函数对话框（lispdialog）\bin\Debug\lsp函数对话框（lispdialog）.dll
   
8. Public Class CADnet
   
9.     <LispFunction("LispDialog")> _
   
10.     Public Sub LispDialog(ByVal rbArgs As ResultBuffer)
    
11.         'Dim Myvar As String = Application.GetSystemVariable("USERS1")
    
12.         Try
    
13.             Dim Myfile As String = ""
    
14.             If rbArgs = Nothing Then
    
15.                 Dim sFilter As String = "*"
    
16.                 Dim MLsDlog As New OpenFileDialog("打开----江河梦小组", "", sFilter, "", OpenFileDialog.OpenFileDialogFlags.AllowMultiple)
    
17.                 Dim Fname As String = ""
    
18.                 MLsDlog.ShowDialog()
    
19.                 If MLsDlog.ShowDialog() <> DialogResult.OK Then
    
20.                     Exit Sub
    
21.                 Else
    
22.                     For Each Fname In MLsDlog.GetFilenames()
    
23.                         Myfile = Myfile & Fname & ","
    
24.                     Next
    
25.                     Application.SetSystemVariable("USERS1", Myfile)
    
26.                     MLsDlog = Nothing
    
27.                 End If
    
28.             End If
    
29.         Catch e As Exception
    
30.         End Try
    
31.     End Sub
    
32. End Class

Imports Autodesk.AutoCAD.DatabaseServices<br /> Imports Autodesk.AutoCAD.Windows '.OpenFileDialog<br /> Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.Runtime<br /> Imports Autodesk.AutoCAD.LayerManager.LayerFilter<br /> 'E:\我的磁盘\源代码\VB.net\vb.net程序\lsp函数对话框（lispdialog）\lsp函数对话框（lispdialog）\bin\Debug\lsp函数对话框（lispdialog）.dll<br /> Public Class CADnet<br />     <LispFunction("LispDialog")> _<br />     Public Sub LispDialog(ByVal rbArgs As ResultBuffer)<br />         'Dim Myvar As String = Application.GetSystemVariable("USERS1")<br />         Try<br />             Dim Myfile As String = ""<br />             If rbArgs = Nothing Then<br />                 Dim sFilter As String = "*"<br />                 Dim MLsDlog As New OpenFileDialog("打开----江河梦小组", "", sFilter, "", OpenFileDialog.OpenFileDialogFlags.AllowMultiple)<br />                 Dim Fname As String = ""<br />                 MLsDlog.ShowDialog()<br />                 If MLsDlog.ShowDialog() <> DialogResult.OK Then<br />                     Exit Sub <br />                 Else<br />                     For Each Fname In MLsDlog.GetFilenames()<br />                         Myfile = Myfile & Fname & ","<br />                     Next<br />                     Application.SetSystemVariable("USERS1", Myfile)<br />                     MLsDlog = Nothing<br />                 End If<br />             End If<br />         Catch e As Exception<br />         End Try<br />     End Sub<br /> End Class

但是为何点击取消后，这个对话框会再弹出来一次，再点击才会消失，请再指点一下！谢谢

sailorcwx

删掉一个MLsDlog.ShowDialog()

huaxiamengqing

额，是呀。竟然忽略了这个，谢谢各位指点。

雪山飞狐_lzh

选中的的文件名写入CAD系统变量。。。
LispFunction可以有返回值的，看这里6楼代码
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79849&extra=page%3D1%26filter%3Dtypeid%26typeid%3D36&page=1

huaxiamengqing

雪山飞狐_lzh 发表于 2012-6-24 09:49
选中的的文件名写入CAD系统变量。。。
LispFunction可以有返回值的，看这里6楼代码
http://bbs.mjtd.com/ ...

受教了，多谢狐哥指点。