Inventor二次开发入门(4)

发布时间:2021-06-06

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.

Inventor二次开发入门(4).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219