Hallo!
Bei mir zeichnet er Sketchaktionen auf.
Lässt du den Rekorder als Script oder VBA laufen?
mit VBA müssts gehen.
Hier noch ein Beispiel:
(erzeugt einen kreis mit radius 10 in der x-y-Ebene um Ursprung)
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Hauptkörper")
Set sketches1 = body1.Sketches
Set reference1 = part1.CreateReferenceFromName("Selection_RSur:(Face:(Brp:(AxisSystem.1;1);None:();Cf9:());AxisSystem.1)")
Set sketch1 = sketches1.Add(reference1)
Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0#
arrayOfVariantOfDouble1(1) = 0#
arrayOfVariantOfDouble1(2) = 0#
arrayOfVariantOfDouble1(3) = 1#
arrayOfVariantOfDouble1(4) = 0#
arrayOfVariantOfDouble1(5) = 0#
arrayOfVariantOfDouble1(6) = 0#
arrayOfVariantOfDouble1(7) = 1#
arrayOfVariantOfDouble1(8) = 0#
Set sketch1Variant = sketch1
sketch1Variant.SetAbsoluteAxisData arrayOfVariantOfDouble1
Set factory2D1 = sketch1.OpenEdition()
Set geometricElements1 = sketch1.GeometricElements
Set axis2D1 = geometricElements1.Item("Absolute Achse")
Set line2D1 = axis2D1.GetItem("H-Richtung")
line2D1.ReportName = 1
Set line2D2 = axis2D1.GetItem("V-Richtung")
line2D2.ReportName = 2
Set circle2D1 = factory2D1.CreateClosedCircle(0#, 0#, 10)
Set point2D1 = axis2D1.GetItem("Ursprung")
circle2D1.CenterPoint = point2D1
circle2D1.ReportName = 3
sketch1.CloseEdition
part1.Update
End Sub
Vieleicht hilfts,
Ciao
Max
------------------
--- Der frühe Vogel fällt nicht weit vom Stamm. ---
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP