---

Strukturbaum.JPG

Hallo Zusammen,
beim Import von STEP-Files werden CATIA-Componente erzeugt (siehe Bild Strukturbaum). Ich möchte gerne diese Componente durch CATParts ersetzen. wie kann ich diese Compnente in CATVBA ansprechen (Replace Befehle habe ich in der API gefunden)?

Vielen Dank im Voraus für die Hilfe
Viele Grüße
Estafanos
     

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

---

Servus
Eine CATIA-Componente ist ein normales Product in der Products-Collection.

Code:

---

Sub ReplaceComponentByPart()

Dim PathToPart As String
PathToPart = "D:\Test\Part3.CATPart"

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim ComponentToReplace As Product
Set ComponentToReplace = products1.Item("Product1.1")

products1.ReplaceComponent ComponentToReplace, PathToPart, False

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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