想写一个装配零件更改透明与不透明的macro，求大神帮忙修改完善一下

UDF998 · 发表于 2020-10-22 11:50:18

经典图书

想写一个装配零件更改透明与不透明的macro，目的是在装配体中选中一个零件，如果这个零件是不透明的，通过macro命令使选中的这个零件透明，如果选中的零件是透明的，那么通过这个macro 使该零件不透明。求大神帮忙修改完善一下，代码如下：

代码
Option Explicit
'http://help.solidworks.com/2017/english/api/sldworksapi/Set_Components_Transparent_Example_VB.htm
'http://help.solidworks.com/2017/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iassemblydoc~setcomponenttransparent.html
'http://help.solidworks.com/2017/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iappearancesetting~transparent.html

Sub main()

Dim swApp As SldWorks.SldWorks

'Set swApp = Application.SldWorks

Dim swModelDoc As SldWorks.ModelDoc2

'Set swModelDoc = swApp.ActiveDoc

Dim swAssembly As SldWorks.AssemblyDoc

Dim boolstatus As Boolean

Set swAssembly = swModelDoc

Dim instance As AppearanceSetting

Dim value As Double

instance.Transparent = value

value = instance.Transparent '0 <= transparency <= 100, where 0 is for total opaqueness, and 100 is for total transparency

If value <= 0 Then

boolstatus = swAssembly.SetComponentTransparent(True) ' Set the selected component to transparent

Else

boolstatus = swAssembly.SetComponentTransparent(False) 'Set the selected component to not transparent

End If

End Sub

allenym · 发表于 2020-10-24 17:08:12

顶一下，坐等高手！

		自动登录	找回密码
密码			立即注册

想写一个装配零件更改透明与不透明的macro，求大神帮忙修改完善一下

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献