Membuat silinder sederhana di Solidworks 2008 melalui Visual Studio 2005

Tutorial ini adalah bagian dari TA saya… 1 bulan lebih saya cari source code untuk bisa membuat silinder pada Solidworks 2008 melalui Visual Studio 2005. Berikut adalah step by stepnya :

1. Buat project dan form baru pada Visual Studio.

2. Drag 2 buah text box dan beri nama txtDiameter dan txtTinggi

3. Drag button dan beri nama btDraw

4. Pada solution explorer, klik kanan project anda dan pilih add reference.

5. Pilih COM dan cari library Solidworks 2008 Type Library dan Solidworks 2008 Constant Type Library

6. Kemudian ketik listing berikut :

Imports SldWorks

Imports SwConst

Public Class FrmCAPP

Private Sub btDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDraw.Click

Dim swApp As Object

Dim Part As Object

Dim diameter As Double

Dim tinggi As Double

‘Definisi Diameter dan Tinggi

diameter = CDbl(txtDiameter.Text) / 1000

tinggi = CDbl(txtTinggi.Text) / 1000

‘Koneksi ke Solidworks

swApp = New SldWorks.SldWorks()

Part = swApp.ActiveDoc

‘Membuat Part di Solidworks

Part.SketchManager.InsertSketch(True)

Part.CreateCircleByRadius2(0, 0, 0, diameter / 2)

Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, _

0, tinggi, 0, False, False, False, False, 0.01745, _

0.01745, False, False, False, False, 1, 1, 1, 0, 0, False)

End Sub

Private Sub btExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btExit.Click

Close()

End Sub

7. Bukalah program Solidworks 2008

8. Running program…

9. Untuk fitur lain dapat dilihat pada API help (sampai sekarang saya masih “ngoprek” source code untuk buat fitur yang lain)