vbnet 在autocad当中加载DLL时自动执行命令

在VB.NET中，可以使用以下代码加载DLL并执行命令：

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime

Public Class MyCommands
    <CommandMethod("LoadDLL")>
    Public Sub LoadDLL()
        ' 加载DLL
        Dim dllPath As String = "C:\Path\To\YourDLL.dll"
        Application.LoadPartialMenu(dllPath)

        ' 执行命令
        Dim cmdName As String = "YOURCOMMAND"
        Application.DocumentManager.MdiActiveDocument.SendStringToExecute(cmdName & vbLf, True, False, True)
    End Sub
End Class

在上面的代码中，LoadDLL方法用于加载DLL并执行命令。首先，使用Application.LoadPartialMenu方法加载DLL。然后，使用Application.DocumentManager.MdiActiveDocument.SendStringToExecute方法执行命令。

在AutoCAD中，可以通过输入LoadDLL命令来调用LoadDLL方法，从而加载DLL并执行命令。请确保将YOURCOMMAND替换为你要执行的命令的名称。