[求助]如何做自已的CAD启动图标程序

CAD83

在网找不少,但有C#写的DLL的方式有很多,下面的请各位给菜人说下如何用法

Dim acadapp As AcadApplication
Dim acadoc As AcadDocument
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.Application")
If Err Then
    Err.Clear
    Set acadapp = CreateObject("AutoCAD.Application")  '根据情况这里可以设置不同的版本，在这里是指所有版本
    If Err Then      
       MsgBox "AutoCAD不存在或AutoCAD启动发生错误！请关闭后再打开本软件！"
       Unload Me
    Exit Sub
       End If
End If
acadapp.Visible = False
acadapp.ActiveDocument.SendCommand "filedia" & vbCr & "0" & vbCr
acadapp.ActiveDocument.SendCommand "netload" & vbCr & App.Path & "\mydll.dll" & vbCr   '在这里加载我们的mydll.dll文件
acadapp.ActiveDocument.SendCommand "filedia" & vbCr & "1" & vbCr
acadapp.ZoomAll
acadapp.WindowTop = True
acadapp.Visible = True
Unload Me