Hallo CATIA-Freunde,
ich arbeite mich gerade mit dem Ziethen-Buch in die Makro-programmierung ein. Ich möchte Messungsparameter aus dem CATPart in meine Zeichnungdatei einsetzen. Dies habe ich mit einer Konstruktionstabelle geplant, die erst aus dem CATPart erstellt wird und anschließend in die CATDrawing eingelesen wird. Leider bricht mein Makro immer bei AddAssociation ab. Vielleicht kann mir hier jemand helfen!?
' Makro: Zeichnungsdaten.CATScript
' Version: 1.0
' Code: CATIA CATScript
' Zweck: Deklarieren eines aktiven Dokumentes
' Vorbereitung: Dokument laden oder erzeugen
' Autor: Jürgen Fillies
CATIA.StatusBar = "Zeichnungen, Version 1.0"
Sub CATMain ()
Dim PartDoc As PartDocument
Dim Vol, Leila As Parameter
Dim Volumen, Leitkurvenlaenge As Double
Set PartDoc = CATIA.ActiveDocument
MsgBox (PartDoc.Name)
Set Vol = PartDoc.Part.Parameters.Item("Vol\Volumen")
MsgBox (Vol.Value & " cm³")
Set Volumen = PartDoc.Part.Parameters.Item("Vol\Volumen")
MsgBox ("Volumen des Elastomer: " & Volumen.Value & " cm³")
Set Leila = PartDoc.Part.Parameters.Item("Leitkurve\Länge")
MsgBox (Leila.Value & " mm")
Set Laenge = PartDoc.Part.Parameters.Item("Leitkurve\Länge")
MsgBox ("Länge der Leitkurve: " & Laenge.value & " mm")
' Konstruktionstabelle zuweisen -----------------------------------
Dim Rels As Relations
Set Rels = CATIA.ActiveDocument.Part.Relations
Dim KTab As DesignTable
Dim KName, Beschr, Pfad As CATBSTR
KName = "Tabelle Zeichnungsdatenl"
Beschr = "Daten für den Zeichnungskopf"
Pfad = "C:\Catiadaten\Zeichnungsdaten_27145.txt"
Set KTab = Rels.CreateDesignTable (KName, Beschr, false, Pfad)
' Parameter verknuepfen -------------------------------------------
KTab.AddAssociation Leila, "Laenge"
KTab.AddAssociation Vol, "Volumen"
KTab.AddAssociation Leila, "Laenge2"
KTab.Configuration = 1
MsgBox ("Ende des Makros")
End Sub
freundliche Grüße und
Danke im vorraus
von Jürgen Fillies
------------------
Jürgen Fillies
Federal Mogul Sealing Systems
07252588215
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP