Hallo Zusammen,
ich bin neu hier im Forum, aber lese eigentlich schon immer wiedermal hier im Forum wenn ich hilfe brauche.
Für das Problem was ich nun habe konnte ich leider noch keine passende Antwort finden.
Ich möchte mit dem makro die Eigenschaften unserer Normteile anpassen. Dazu werden neue Eigenschaften erstellt und sollen mit den vorhanden Informationen, wie Teilenummer, Definition u.s.w. gefüllt werden was auch soweit alles funktioniert bis auf die Tatsache das ich die Nomenklatur nicht hinbekomme. Zum schluß soll es unserem Startmodell information ähnlich sein.(hänge mal ein Part dran)
Vielleicht kann mir jemand einen Tipp geben. Danke schonmal vorab für eure Hilfe.
MfG
Hendrik
hier meine gebastelter Code (catscript)
Sub CATMain()
Dim Produkt As Product
Dim partDocument1 As PartDocument
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Folder As Folder
Dim part1 As Part
Dim File As File
Set documents1 = CATIA.Documents
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1, 17)
If BrowseDir Is Nothing Then
Exit Sub
End If
Set Folder = CATIA.FileSystem.GetFolder(BrowseDir.self.Path)
For Each File In Folder.Files
If InStr(File.Name, ".CATPart") <> 0 Then
Set partDocument1 = documents1.Open(File.Path)
Set partDocument1 = CATIA.ActiveDocument
Set PartParameter = CATIA.ActiveDocument.Product.UserRefProperties
Set part1 = partDocument1.Part
set PropertiesParameter = PartParameter.CreateBoolean("Normteil", true)
set PropertiesParameter = PartParameter.CreateString("Einheit", "")
set PropertiesParameter = PartParameter.CreateString("Benennung", "")
set PropertiesParameter = PartParameter.CreateString("Sachnummer/Norm-Kurzbezeichnung", "")
set PropertiesParameter = PartParameter.CreateString("PPS-Nummer", "")
set PropertiesParameter = PartParameter.CreateString("Material", "")
Set parameters1 = part1.Parameters
Set parameters2 = part1.Parameters
Set parameters3 = part1.Parameters
Set parameters4 = part1.Parameters
Set parameters5 = part1.Parameters
Set parameters6 = part1.Parameters
Set parameters7 = part1.Parameters
Set parameters8 = part1.Parameters
Set relations1 = part1.Relations
Set strParam1 = parameters1.Item("Eigenschaften\Einheit")
Set strParam2 = parameters2.Item("Eigenschaften\Material")
Set strParam3 = parameters3.Item("Eigenschaften\Benennung")
Set strParam4 = parameters4.Item("Eigenschaften\Sachnummer/Norm-Kurzbezeichnung")
Set strParam5 = parameters5.Item("Eigenschaften\PPS-Nummer")
Set strParam6 = parameters6.Item("Teilenummer")
Set strParam7 = parameters7.Item("Definition")
Set strParam8 = parameters8.Item("Nomenklature") hier meckert Catia
Dim arrayOfVariantOfBSTR1(8)
arrayOfVariantOfBSTR1(0) = "Stk."
arrayOfVariantOfBSTR1(1) = "cm"
arrayOfVariantOfBSTR1(2) = "m"
arrayOfVariantOfBSTR1(3) = "cm²"
arrayOfVariantOfBSTR1(4) = "m²"
arrayOfVariantOfBSTR1(5) = "cm³"
arrayOfVariantOfBSTR1(6) = "m³"
arrayOfVariantOfBSTR1(7) = "g"
arrayOfVariantOfBSTR1(8) = "Kg"
strParam1.SetEnumerateValues arrayOfVariantOfBSTR1
Set formula1 = relations1.CreateFormula("Übertrag-Material", "", strParam2, "`Hauptkörper\Material` ")
strParam3.Value = strParam8.Value
strParam4.Value = strParam6.Value
strParam5.Value = strParam7.Value
'partDocument1.Save
'partDocument1.Close
End If
Next
End Sub
------------------
Catia V5R24
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP