---

Hallo Kollegen!

          Ich habe dieses Makro, um Parts, Components oder Product im Allgemeinen alle Artikel als "OPEN" und passieren eine nicht anzeigen verbergen, aber ich bekomme es mit nur erste, die ist, können Sie mir helfen?

Das Makro ist mit Component gemacht, jetz

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = products1.Item("OPEN.1")

Set products1 = product2.Parent

Dim bSTR1 As String
bSTR1 = product2.Name

selection1.Add product2

Set visPropertySet1 = visPropertySet1.Parent

Dim bSTR2 As String
bSTR2 = visPropertySet1.Name

Dim bSTR3 As String
bSTR3 = visPropertySet1.Name

visPropertySet1.SetShow 1

selection1.Clear
   

End Sub

---

Dank

M.f.G.

Manuel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank!

                      Ich habe schon! Hier habe ich ein weiteres aussetzen, wenn interessiert.

Code:

---

Sub CATMain()

Set  ProductDocument1 = CATIA.ActiveDocument
Set Product1 = ProductDocument1. Product

Dim ProductDoc1_As_Document
Set ProductDoc1 = Catia.ActiveDocument

Dim Selection1_As_Selection
Set Selection1 = ProductDoc1.Selection

selection1.Search "CATAsmSearch.Product.PartNumber=OPEN,all"
Set visPropertySet1 = selection1.VisProperties
VisPropertySet1.SetShow 1
Selection1.Clear

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP