---

Hallo,

ich möchte in einer Zeichnung ein langes Bauteil automatisch zweimal aufbrechen. Das erste mal funktioniert auch ohne Probleme im Makro über die Funktion "DefineBrokenView". Doch beim zweiten Aufbruch bekomme ich immer eine Fehlermeldung, dass die Funktion "DefineBrokenView" fehlgeschlagen ist. Ich habe das Erzeugen der 2 Aufbrüche aufgezeichnet, und selbst dieser Code bringt den Fehler beim 2. Aufbruch.
Im Code steht eine Zeile "Dim sketch1 As Sketch" und gleich darunter, wo normalerweise "Set ... = ..." steht ist dieser Hinweis "' No resolution found for the object sketch1..." zu lesen.

Welches Sketch-Objekt muss ich hierfür setzten.

Wenn ich das Objekt über die Active Zeichnungsansich setze ("...Views.ActiveView.Factory2D.Parent") bekomme ich auch den selben Fehler.

Nochmals zum Überblick der Bereich zw. dem 1. und 2. Ausbruch:

Code:

---

Dim arrayOfVariantOfDouble1(7)
arrayOfVariantOfDouble1(0) = -45.753174
arrayOfVariantOfDouble1(1) = -72.149994
arrayOfVariantOfDouble1(2) = -45.753174
arrayOfVariantOfDouble1(3) = 57.149994
arrayOfVariantOfDouble1(4) = -729.488647
arrayOfVariantOfDouble1(5) = -72.149994
arrayOfVariantOfDouble1(6) = -729.488647
arrayOfVariantOfDouble1(7) = 57.149994
Set drawingViewGenerativeBehavior1Variant = drawingViewGenerativeBehavior1
drawingViewGenerativeBehavior1Variant.DefineBrokenView arrayOfVariantOfDouble1, 1#, 0#

Dim sketch1 As Sketch
' No resolution found for the object sketch1...

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

sketch1.CloseEdition

Dim arrayOfVariantOfDouble2(7)
arrayOfVariantOfDouble2(0) = -838.39917
arrayOfVariantOfDouble2(1) = -72.149994
arrayOfVariantOfDouble2(2) = -838.39917
arrayOfVariantOfDouble2(3) = 57.149994
arrayOfVariantOfDouble2(4) = -1526.381409
arrayOfVariantOfDouble2(5) = -72.149994
arrayOfVariantOfDouble2(6) = -1526.381409
arrayOfVariantOfDouble2(7) = 57.149994
Set drawingViewGenerativeBehavior1Variant = drawingViewGenerativeBehavior1
drawingViewGenerativeBehavior1Variant.DefineBrokenView arrayOfVariantOfDouble2, 1#, 0#

End Sub

---

Ich verwende WinXP Pro S3 und Catia V5R19.

DANKE, BG

Johannes

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