Inventor二次开发入门(4)

End If

Dim asmDoc As AssemblyDocument

asmDoc = _invApp.ActiveDocument

If asmDoc.SelectSet.Count = 0 Then

MsgBox("Need to select a Part or Sub Assembly")

Return

End If

Dim selSet As SelectSet

selSet = asmDoc.SelectSet

Try

Dim compOcc As ComponentOccurrence

Dim obj As Object

For Each obj In selSet

compOcc = obj

Debug.Print()

compOcc.Visible = False

Next

Catch ex As Exception

MsgBox("Is the selected item a Component?")

MsgBox(ex.ToString())

Return

End Try

5. Save the file:

On the File menu, click Save All.

6. Build the project:

The code you have written is in human readable form. To make the code readable by a computer, yo u will need to translate it or “build” it.

Inside Visual Basic Express, in the Debug menu, click Build Solution to compile and build your plug-in. The “Build Success” message shows in status bar of the Visual Basic Express window if the code is successfully built.