VB.net Bemvindo (Zwcad and Autocad)

Depois de termos criado o template para o Zwcad, vamos agora ter uma rotina de boas vindas para o Zwcad e Autocad.

Zwcad+

1:  Imports ZwSoft.ZwCAD.ApplicationServices  
2:  Imports ZwSoft.ZwCAD.Runtime  
3:  Imports ZwSoft.ZwCAD.DatabaseServices  
4:  Imports ZwSoft.ZwCAD.Geometry  
5:    
6:  Public Class Class1  
7:    <CommandMethod("BemVindo")> _  
8:    Public Sub BemVindo()  
9:      Dim nome As String = InputBox("Qual o seu nome? ", "ZWcad+ 2014")  
10:      MsgBox("Seja Bem Vindo " & nome)  
11:    End Sub  
12:  End Class  

Autocad

1:  Imports Autodesk.AutoCAD.ApplicationServices  
2:  Imports Autodesk.AutoCAD.DatabaseServices  
3:  Imports Autodesk.AutoCAD.EditorInput  
4:  Imports Autodesk.AutoCAD.Runtime  
5:    
6:  Public Class Class1  
7:    <CommandMethod("BemVindo")> _  
8:    Public Sub Proj1()  
9:      Dim nome As String = InputBox("Qual o seu nome? ", "Autocad")  
10:      MsgBox("Bem Vindo " & nome)  
11:    End Sub  
12:  End Class  

Criado o código teremos de salvar ir ao menu bar Build->Build Bemvindo e então temos o dll criado.

Vamos à linha de comando ao Zwcad ou Autocad e fazemos
Command: Netload

Temos uma caixa de dialogo e vamos caregar o nosso dll criado.

Por fim basta escrever na linha de comando a nossa nova rotina.

Command:Bemvindo

e voilá

Boa programação

Follow Loja dos Desenhadores (Facebook)