Netload 2 - A Missão

Netload 2 - A Missão!!! hehehe então voce fez um probraminha em VB.NET ou (C#, em fim...)
carregou com o net load e nada aconteceu... é.... em lisp, se fazemos isso:

---

(defun c:algumacoisa
;....
)
(c:algumacoisa)

---

O programa algumacoisa é executado logo após ser carregada a lisp, correto?

Agora, que tal se um programa feito em VB.NET também fosse executado logo após ser carregado com o netload?? Seria legal né? Imagine colocar um "splashscreen"??
O pior, é que é muito simples de fazer, veja:

---

Imports Autodesk.AutoCAD.Runtime
 
Public Class INICIALIZACAO
 
    Implements IExtensionApplication
 
    Private Sub Initialize() Implements IExtensionApplication.Initialize
 
        'faça algo interessante aqui!!!
        MsgBox("Ei, carregou!!! Agora, na linha de comando digite: ALGUMACOISA")
 
    End Sub
 
    Private Sub Terminate() Implements IExtensionApplication.Terminate
 
    End Sub
 
    <CommandMethod("algumacoisa")> _
    Public Sub algumacoisa()
        MsgBox("Ei, deu certo!!")
    End Sub
End Class

---

O truque todo fica por conta daquele Implements IExtensionApplication e as subs Initialize e Terminate.

E olha que me debati um monte pra achar isso.... afff

Ah, claro, adicione as referências ACMGD.DLL e ACDBMGD.DLL do seu autocad!!
junte isso com o outro post do netload e você terá algo muito interessante para "autoinstalar" seu programa!!!