Public Class Form1
[b]'Setup Form...[/b]
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "VB.NET Test"
Button1.Text = "Fill Text"
Button2.Text = "Clear Text"
Button3.Text = "SolidWorks"
Button4.Text = "AutoCAD"
End Sub
[b]'Fill Text Box...[/b]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Hello World"
End Sub
[b]'Clear Text Box...[/b]
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
End Sub
[b]'SolidWorks Interface...[/b]
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim swApp As SldWorks.SldWorks
Dim Dwg As SldWorks.DrawingDoc
swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
swApp.UserControl = True
Dwg = swApp.NewDrawing(-1)
Dwg.CreateText(TextBox1.Text, 0 * 0.0254, 11 * 0.0254, 0, 0.5 * 0.0254, 0)
End Sub
[b]'AutoCAD Interface...[/b]
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim acApp As AutoCAD.AcadApplication
Dim Dwg As AutoCAD.AcadDocument
Dim pt1(2) As Double
Try
acApp = GetObject(, "AutoCAD.Application")
Catch ex As Exception
acApp = CreateObject("AutoCAD.Application")
End Try
acApp.Visible = True
Dwg = acApp.Documents.Add("")
Dwg.ModelSpace.AddText(TextBox1.Text, pt1, 1)
End Sub
End Class 'Create the SolidWorks application
Try
swApp = System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application")
Catch ex As Exception
'if errors out, that means SW was not already running
End Try
If swApp Is Nothing Then
#If DEBUG Then
swApp = New SldWorks.SldWorks
#Else
swApp = CreateObject("SldWorks.Application")
#End If
End If 'release handle to SW
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(swApp)
Catch ex As System.NullReferenceException
Debug.WriteLine("SolidWorks wasn't hooked")
Catch ex2 As Exception
'don't care about any other errors - just exit
End Tryrgrayclamps said: