I'm reviewing a SW World 2007 presentation I attended titled "SolidWorks Addins Using .NET".
The steps are:
- Record a simple macro in SolidWorks using VBA.
- Verify the macro.
- Start Visual Studio.
- Create a new SW Addin using SWVBAddin Template.
- Open SwAddin.vb
- Expand the code region.
- Select all of the code in 'Sub CreateCube ()'
- Use Ctrl+K C to comment out the code
- Swith back to VBA and select all the code in 'Sub main ()'
- Copy and paste back to Visual Studio.
- Add 'Dim' statements for each object.
- Replace 'Applications.SldWorks' with 'GetObject (,"SldWorks.Application")'
- Build the Addin and Run using F5 to debug SolidWorks.
I followed all of the steps, but nothing happens in SolidWorks. The macro works fine if I run it thru VBA.
Any ideas? If anyone knows a good tutorial for creating SW Addins with VB.NET, please post.
Below is the code under 'UI Callbacks'
#Region "UI Callbacks"
Sub main() Dim swApp As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object swApp = GetObject(, "SldWorks.Application")
Part = SwApp.ActiveDoc SelMgr = Part.SelectionManager boolstatus = Part.SetUserPreferenceToggle(196, True) boolstatus = Part.Extension.SelectByID2("Unknown", "BROWSERITEM", 0,
0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Front", "PLANE", 0, 0, 0, False, 0, Nothing, 0) Part.SketchManager.InsertSketch(True) Part.ClearSelection2(True) Part.SketchRectangle(-0.08407285067873, 0.06711078431373, 0, 0.06953393665158, -0.05404683257919, 0, 1) Part.SetLineWidth(4) Part.SetLineWidth(4) Part.SetLineWidth(4) Part.SetLineWidth(4) Part.SetPickMode() Part.ClearSelection2(True) Part.SketchManager.InsertSketch(True) Part.ClearSelection2(True) End Sub