Hallo Liebe Community,
dies ist mein erster Eintrag und ich entschuldige mich jetzt schon mal, wenn ich was falsch gemacht haben sollte. Ich habe lange im Forum gesucht, jedoch keine passende Lösung zu meinem Problem gefunden.
Es geht um ein eigentlich ganz einfaches Makro Programm in CATIA V5 R19.
Undzwar sollen an meinem Bauteil alle Bohrungen gefunden und überprüft werden ob sie Fertigungsgerecht sind. Die jeweileigen Durchmesser und Tiefen der Bohrungen sollen dann in einer Excel-Tabelle gespeichert werden. Soweit funktioniert auch alles perfekt, jedoch ist mein Problem, dass ich nach der Überprüfung mehrere Konstruktionstabellen habe und ich eigentlich nur die letzte/aktuellste bräuchte. Mein Programm sieht so aus:
Sub CATMain()
Dim length1 'As Length
Dim hole1
Dim depth1 ' As Limit
Set Selection1 = CATIA.ActiveDocument.Selection
Selection1.Search ".Bohrung,all"
For i = 1 To Selection1.Count
Set hole1 = Selection1.Item(i).Value
Set length1 = hole1.Diameter 'Durchmesser
Set depth1 = hole1.BottomLimit 'Tiefe
Dim t,u 'As Integer
Dim Check ' As Boolean
t=depth1.Dimension.Value/length1.Value 'Überprüfung
If t<=2 Then ' "
Check = "OK" ' "
Else Check = "FAIL" ' "
End If
Set Params = CATIA.ActiveDocument.Part.Parameters
Set Durchmesser = Params.CreateDimension ("Durchmesser", "Length",length1.Value)
Set Tiefe = Params.CreateDimension ("Tiefe","Length",depth1.Dimension.Value)
Set Check = Params.CreateString ("Check",check)
Set Rels = CATIA.ActiveDocument.Part.Relations
Set KTab = Rels.CreateDesignTable ("Wertetabelle", "Ausgabe der errechneten Werte", false, "C:\Documents\Konstruktionstabelle_2.xlsx")
KTab.AddAssociation Tiefe, "Tiefe"
KTab.AddAssociation Durchmesser, "Durchmesser"
KTab.AddAssociation Check, "Check"
KTab.AddNewRow ' die Werte der Parameter werden in die DesignTable eingetragen
KTab.Configuration = 1
Next
Selection1.Clear
End Sub
Ich weiss auch, dass der Fehler darin liegt, dass ich jedes mal beim Eintragen die Konstruktionstabelle neu erstelle, aber anders geht das nicht . Da ich erst seit ein paar Wochen mich mit Makroprogrammierung beschäftige, fehlen mir wohl auch die nötigen Kenntnisse
Wäre echt super, wenn ihr mir helfen könntet
[Diese Nachricht wurde von hasn69 am 14. Feb. 2015 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP