---

Hallo,

bin blutiger Anfänger, muß aber im Rahmen meines Studiums einige Makros in Catia erstellen. Habe nun ein einfaches Makro erstellt, das einfach eine runde Platine liefert. Beim Ausführen in Catia funktioniert dieses Makro einwandfrei, sobald ich es aber extern starte, mit entsprechenden Änderungen, bekomme ich folgende Fehlermeldung:

Das Verfahren AddNewPad ist fehlgeschlagen.
Quelle CatiaShapeFactory

Vielleicht kann mir ja jemand helfen.

Danke
nightfall

hier noch der Code des Makros:

Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Add("Part")
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("MechanicalTool.1")
Set sketches1 = body1.Sketches
Set originElements1 = part1.OriginElements
Set reference1 = originElements1.PlaneXY
Set sketch1 = sketches1.Add(reference1)
Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
arrayOfVariantOfDouble1(3) = 1.000000
arrayOfVariantOfDouble1(4) = 0.000000
arrayOfVariantOfDouble1(5) = 0.000000
arrayOfVariantOfDouble1(6) = 0.000000
arrayOfVariantOfDouble1(7) = 1.000000
arrayOfVariantOfDouble1(8) = 0.000000
sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1
Set factory2D1 = sketch1.OpenEdition()
Set geometricElements1 = sketch1.GeometricElements
Set axis2D1 = geometricElements1.Item("AbsoluteAxis")
Set line2D1 = axis2D1.GetItem("HDirection")
line2D1.ReportName = 1
Set line2D2 = axis2D1.GetItem("VDirection")
line2D2.ReportName = 2
Set circle2D1 = factory2D1.CreateClosedCircle(0.000000, 0.000000, 10.000000)
Set point2D1 = axis2D1.GetItem("Origin")
circle2D1.CenterPoint = point2D1
circle2D1.ReportName = 3
sketch1.CloseEdition
part1.Update
Set shapeFactory1 = part1.ShapeFactory
Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)
part1.Update

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo nightfall,
was meinst du mit "extern" ?? Aus VB oder VBA ???
Wenn ein makro außerhalb von CATIA gestartet wird muß vorher:

Dim CATIA As Object
Set CATIA = CreateObject("CATIA.Application") 'Catia wird gestartet'

stehen. Nachzulesen unter dem Stichwort "out-process macro" in der online-Hilfe.

mfg

Jens Hansen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

erstmal danke für die Antwort, mit extern meine ich ein eigenständiges VB-Script. Ein Objekt von Catia hatte ich vorher erstellt, das ganze funktioniert auch wenn ich die Blockbildung weglasse und nur einen Kreis zeichne. Erst beim hinzufügen des Pad's kommt es zum angesprochenen Problem.

Gruss
nightfall

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP