How to hide the first part in an assembly with VBA

[lzs013]

How to hide the first part in an assembly with VBA？Hide the part pointed by the arrow in the picture。

[bradeneuropeArthur · Accepted solution]

Public Sub main()

Dim a As AssemblyDocument
Set a = ThisApplication.ActiveDocument

Dim b As AssemblyComponentDefinition
Set b = a.ComponentDefinition

b.Occurrences.Item(1).Visible = False

End Sub

for  ilogic

Public Sub main()

Dim a As AssemblyDocument
a = ThisApplication.ActiveDocument

Dim b As AssemblyComponentDefinition
b = a.ComponentDefinition

'Dim c As Occurrence
b.Occurrences.Item(1).Visible = False


End Sub

[dgreatice]

beware,

if that part is not first placement 😄 (user have edit with Ground command)

[lzs013]

THX！