---

Hallo,

ich habe aktuell das problem, dass ich eine so erzeugte Referenzebene (ReferenceZX):

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set originElements1 = part1.OriginElements
Set hybridShapePlaneExplicit1 = originElements1.PlaneZX
Dim referenceZX As reference
Set referenceZX = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)

in eine Function übergeben möchte, damit ich in dieser eine weitere Ebene auf Basis dieser Referenz erzeugen kann.
Dabei tritt jedoch bei folgender Zeile nen Fehler auf, mit der Anmerkung: "Object required"

Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(referenzebene, start_abstand + aktueller_abstand, False)

ich vermute stark, dass beim Aufrauf der Function irgendetwas faul ist. Aktuell probiere ich das so:

Call Hauptroutine(Schnitte_y, Filename, Richtung, min_y, Abstand_y, referenceZX)

und

Function Hauptroutine(Anzahl_schnitte, Dateipfad, Richtung, start_abstand, abstand_ebenen, referenzebene)

ich habe irgendwie dass gefühl, dass bei der übergabe der Datentyp verloren geht, weil wenn ich eine Zeile vor der fehlerhaften Zeile mit ner MSGbox nach dem Namen der Referenz frage, mir nen passender name angezeigt wird.

kann mir jemand helfen?

MfG
Felix

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

---

Servus
Wo ist "aktueller_abstand" definiert? An die Routine wird nur die Variable "abstand_ebenen" übergaben.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

das passiert nen paar zeilen vorher in der Funktion,hab den quelltext versucht aufs wesentliche herunterzukürzen, damit das problem leichter verständlich is.

edit:

so sieht die Function bis zur fehlerhaften zeile aus:

Public Function Hauptroutine(Anzahl_schnitte, Dateipfad, Richtung, start_abstand, abstand_ebenen, referenzebene)

Dim zaehler As Integer  'laufzeitzähler
For zaehler = 0 To Anzahl_schnitte

Set ExcelApplication = GetObject(Dateipfad) ' "Excel.Application"
    ExcelApplication.worksheets(Richtung).Cells(zaehler + 4, 1).Value = zaehler   'Nummerierung der Messwerte
   
    Dim aktueller_abstand As Integer
    aktueller_abstand = 0 + zaehler * abstand_ebenen
    ExcelApplication.worksheets(Richtung).Cells(zaehler + 4, 2).Value = aktueller_abstand   'Abstand
        
       
    'Erstellung der Ebene
   
    Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(referenzebene, start_abstand + aktueller_abstand, False)

[Diese Nachricht wurde von Fmueller am 10. Apr. 2013 editiert.]

[Diese Nachricht wurde von Fmueller am 10. Apr. 2013 editiert.]

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

---

Servus
Wird auch innerhalb der Unterroutine der richtige Name der der Referenz ausgegeben (MsgBox)?
Ist in der Unterroutine "hybridShapeFactory1" deklariert und zugewiesen (ggf global)?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

jo eigentlich hatte ich gehofft das ganze global definiert zu haben bzw. ich hatte gehofft, dass wenn ich die referenz so wie ich sie oben in der hauptfunktion erzeugt habe, einfach in die unterfunktion zu füttern kann.

das problem ist für mich nich mehr akut, hab mir schon nen workaround ausgedacht, aber eigentlich würde mich schon für die zukunft interessieren, ob der weg, den ich mir vorgestellt habe überhaupt möglich ist.

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

---

Servus
Ich hab es mal kurz getestet: eine Referenz kann man in eine Unterfunktion übergeben.
Welches Objekt wurde bei dir "angemeckert" (Watchfester)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

hm die fehlermeldung selber hat einfach nur "object requiered" ausgegeben und auf die genannte zeile verwiesen.
da ".AddNewPlaneOffset" nur eine Referenzebene und einen Abstand benötigt, kann ja in meinen augen nur die fehlende Referenz mit Object gemeint sein.

danke schonmal für deine mühe 

Mfg Felix

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