So habe mal versucht das makro zu erzeugen aber habe ein kleines problem.
Die Erste Baugruppe wird erstellt und auch die Einzelteile.
Die Zweite Baugruppe wird erstellt aber die Einzelteile landen in der Ersten Baugruppe.
Fehler:
Set product2 = products1.Item("01_Modul.1")
' ("01_Modul.1") kann ich nicht durch (Name_Modul.1) ersetzen
Ich bekomme die angabe in der Klammer nur mit fest Text hin nicht mit einer Variable.
Wie muss ich das umschreiben?
---------
Language="VBSCRIPT"
Antwort = InputBox("Modul-Nummer eintragen","Modul Nummer","01")
Name_Modul = Antwort & "_Modul"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products
Set product2 = products1.AddNewComponent("Product", Name_Modul)
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products
Set product2 = products1.Item("01_Modul.1")
' ("01_Modul.1") kann ich nicht durch (Name_Modul.1) ersetzen
Set products2 = product2.Products
Name_Platte = "Platte_" & Antwort
Set product3 = products2.AddNewComponent("Part", Name_Platte)
Name_Aufnahme01 = "Aufnahme_" & Antwort & "-01"
Set product5 = products2.AddNewComponent("Part", Name_Aufnahme01)
Name_Aufnahme02 = "Aufnahme_" & Antwort & "-02"
Set product5 = products2.AddNewComponent("Part", Name_Aufnahme02)
End Sub
wie kan ich das problem lösen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP