Hallo zusammen,
ich stehe vor einem Problem welches sich wie folgt darstellt:
Ich habe eine Power Copy erzeugt in welchen ein Wert eines Paramters definiert wird. Diesen Wert möchte ich über ein Makro in eine Exeltabelle exportieren. Das Problem bei der Power Copy ist, dass das Makro den Pfad nicht mehr erkennt wo der Parameter liegt. Das ist ja ach klar. Nun möchte ich fragen ob es eine Möglichkeit gibt den Pfad des Parameters irgenwie auszulesen. Das Problem liegt darin dass der User die Power Copy in verschiedenen Parts anwendet, d.h. im Voraus ist die PartNumber unbekannt und müsste vom Makro ausgelsen werden und danach im Befehl des Auslesens des Parameters weitergegeben. Kurze Erläuterung wie ich mein Makro anwenden möchte:
'Öffnen Excel Datei'
Set objXL = GetObject("C:...\Test_180208.xls")
objXL.Application.Visible = True
objXL.Parent.Windows(1).Visible = True
'Auslesen des Paramters'
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim angle1 As Parameter
'in dieser Zeile besteht das Problem, das "Part1" vor Anwendung der PowerCopy unbekannt ist'
Set angle1 = parameters1.Item("Part1\TEMPLATES\OUTPUT_A-Saeulenverdeckungswinkel\Sichtverdeckungwinkel")
'Übergabe des Wertes in Excel Datei, Speichern, Schließen'
objXL.Sheets("Tabelle1").Cells(7, 2) = angle1.Value
objXL.Save
objXL.Application.Quit
End Sub
Ich könnte mir auch vorstellen, als Notlösung das Part im Makro umzubenennen. Aber ich glaube dass dabei das gleiche Problem entsteht.
Ich würde mich über eure Unterstützung freuen!
Gruß
Connors
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
