Ich habe im Moment leider keinen CATIA-Zugriff. Aber vor ein Paar Wochen habe ich was ähnliches ausprobiert, allerdings für einen Winkel. Vielleicht geht es auch für Inertia?
Hier ist der Text:
Language="VBSCRIPT"
Sub CATMain()
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 Dimension
Set angle1 = parameters1.CreateDimension("Angle.1", "ANGLE", 0.000000)
Dim relations1 As Relations
Set relations1 = part1.Relations
Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula.2", "", angle1, "angle(`Geometrical Set.1\Plane.1` ,`Geometrical Set.1\Plane.2` ) ")
formula1.Rename "Formula.2"
End Sub
Die Aufgabenstellung befindet sich im Betrag "Winkel zwischen zwei Ebenen" von UL-Schulz vom 28.01.2005
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP