Hallo Leute
Ich versuch mit meinem Makro die Eigenschaften eines Parts auszulesen (Teilenummer und Beschreibung) und diese in der Zeichnung als Text auszugeben. Habe hier zwar ein Skript gebastelt welches aber nur funktioniert wenn beide Dateien im Catia geöffnet sind.
Kennt jemand von euch einen weg wie man dies auch mit geschlossenen Dateien machen kann?
Liebe Grüße
PS:
Sub CATMain()
CATIA.ActiveDocument.Sheets.ActiveSheet.Update
Set DrwDocument= CATIA.ActiveDocument
Set DrwSheets = DrwDocument.Sheets
Set DrwSheet = DrwSheets.ActiveSheet
Set DrwView = DrwSheet.Views.ActiveView
Hoehe = DrwSheet.GetPaperHeight
Breite = DrwSheet.GetPaperWidth
Set windows1 = CATIA.Windows
Set specsAndGeomWindow1 = windows1.Item("Distanzhuelse.CATPart")
specsAndGeomWindow1.Activate
Set partDocument1 = CATIA.ActiveDocument
Set product1 = partDocument1.GetItem("Test")
Teilenummer ="Teilenummer: " + product1.PartNumber
Beschreibung ="Beschreibung: "+ product1.DescriptionRef
Set DrawingText = DrwView.Texts.Add(Teilenummer, Breite-100 , 30)
'DrawingText.SetFontSize 0, 0, 3
Set DrawingText = DrwView.Texts.Add(Beschreibung, Breite-100 , 20)
'DrawingText.SetFontSize 0, 0, 3
MsgBox "Makro erfolgreich", VbOkOnly, "Status"
End Sub
[Diese Nachricht wurde von Liebmer am 05. Mai. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP