一起来学vb.net(2，CAD.net调试不再是问题---续..）

huaxiamengqing

没注意，原来我仅有的俩明经币是狐哥给的。既然那么给力，我就再贴出我最新的调试方法。如下：
启动的外部程序为下面的代码编写的debug.exe程序。只需将生产dll的名字改为你命令的名字+数字即可。比如

2. Imports Autodesk.AutoCAD.Runtime
   
3. Public Class Class1
   
4.     <CommandMethod("xxx")> _
   
5.     Public Sub xxx()
   
6.     End Sub
   
7. End Class

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Runtime<br /> Public Class Class1<br />     <CommandMethod("xxx")> _<br />     Public Sub xxx()<br />     End Sub<br /> End Class

你的命令是XXX，那么生产编译程序的时候，在“应用程序”—“程序集名称”里面将生产dll名称改为 “xxx 数字”即可，我用正则来判断的，当然你可以任意发挥。CAD一直保持打开状态，然后 启动调试（F5)，调试后，直接切到CAD窗口，按 空格键即可查看效果。重复调试只需更改数字就行了。下面是debug.exe的源码（vb.net)及工程：

2. Imports System.IO
   
3. Public Class Form1
   
4. 
   
5.     Public Function SortbycreateTime(ByVal x As String, ByVal y As String) As Integer
   
6.         Dim xinfo As New FileInfo(x)
   
7.         Dim yinfo As New FileInfo(y)
   
8.         Return -xinfo.CreationTime.CompareTo(yinfo.CreationTime)
   
9. 
   
10.     End Function
    
11. 
    
12.     Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    
13.       
    
14.         Me.Hide()
    
15.         Me.Dispose(True)
    
16.         End
    
17.     End Sub
    
18.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    
19.         Dim Mpath As String = My.Computer.FileSystem.CurrentDirectory
    
20.         Dim Mdlls As String() = Directory.GetFiles(Mpath, "*.dll")
    
21.         Array.Sort(Mdlls, AddressOf SortbycreateTime)
    
22.         Dim Filestr As String = Mdlls(0)
    
23.         Dim Myinfo As New FileInfo(Filestr)
    
24. 
    
25.         Dim Mcmd As String = System.Text.RegularExpressions.Regex.Replace(Myinfo.Name, "\d*\.dll$", "")
    
26.         ' MsgBox(Mcmd)
    
27.         If Filestr <> "" Then
    
28.             Dim acadApp As Object = GetObject(, "AutoCAD.Application")
    
29.             Dim AcadD As Object = acadApp.ActiveDocument
    
30.             Dim Mnet As String = Replace(Filestr, "", "/")
    
31.             AcadD.SetVariable("FILEDIA", 0)
    
32.             AcadD.SendCommand("(command " & Chr(34) & "netload" & Chr(34) & Chr(34) & Mnet & Chr(34) & ")" & Chr(13))
    
33.             AcadD.SetVariable("FILEDIA", 1)
    
34.             AcadD.SendCommand(Mcmd)
    
35.             AcadD = Nothing
    
36.             acadApp = Nothing
    
37.         End If
    
38.     End Sub
    
39. End Class

Imports System.IO<br /> Public Class Form1<br /> <br />     Public Function SortbycreateTime(ByVal x As String, ByVal y As String) As Integer<br />         Dim xinfo As New FileInfo(x)<br />         Dim yinfo As New FileInfo(y)<br />         Return -xinfo.CreationTime.CompareTo(yinfo.CreationTime)<br /> <br />     End Function<br /> <br />     Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated<br />        <br />         Me.Hide()<br />         Me.Dispose(True)<br />         End<br />     End Sub<br />     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />         Dim Mpath As String = My.Computer.FileSystem.CurrentDirectory<br />         Dim Mdlls As String() = Directory.GetFiles(Mpath, "*.dll")<br />         Array.Sort(Mdlls, AddressOf SortbycreateTime)<br />         Dim Filestr As String = Mdlls(0)<br />         Dim Myinfo As New FileInfo(Filestr)<br /> <br />         Dim Mcmd As String = System.Text.RegularExpressions.Regex.Replace(Myinfo.Name, "\d*\.dll$", "")<br />         ' MsgBox(Mcmd)<br />         If Filestr <> "" Then<br />             Dim acadApp As Object = GetObject(, "AutoCAD.Application")<br />             Dim AcadD As Object = acadApp.ActiveDocument<br />             Dim Mnet As String = Replace(Filestr, "", "/")<br />             AcadD.SetVariable("FILEDIA", 0)<br />             AcadD.SendCommand("(command " & Chr(34) & "netload" & Chr(34) & Chr(34) & Mnet & Chr(34) & ")" & Chr(13))<br />             AcadD.SetVariable("FILEDIA", 1)<br />             AcadD.SendCommand(Mcmd)<br />             AcadD = Nothing<br />             acadApp = Nothing<br />         End If<br />     End Sub<br /> End Class

注意，最好不要开多个CAD.我一直用的是CAD2012调试的，VS2010。