---

Hallo miteinander,

kaum scheint es ein wenig zu klappen, entdecke ich schon wieder eine Stelle an der ich passen muss: ich versuche derzeit eine Extrudierte Fläche zu erzeugen. Habe es nach dem Buch von D.R.Ziehten versucht, leider funktioniert es nicht. Mein Programmcode [Auszug]:

  Dim AktivKoerper1, AktivKoerper2 as HybidBody
  Set AktivKoerper = AktivDok.HybridBodies.Item ("Konstruktionselemente").HybridBodies.Item ("Flaechen")

  Dim EKontur1 as AnyObject
  Set EKontur1 = AktivDok.HybridBodies.Item ("2D_Konturen").HybridBodies.Item ("Kurvengeometrie").HybridShapes.Item("Projizieren.1")

  Dim HShape1 as HybridShapeExtrude
  Set HShape1 = Wzk3D.AddNewExtrude  '(EKontur1, 200.00, 200.00, Normalebene)
  HShape1.BeginnOffset.Value = 250
  HShape1.Direction = Nomalebene
  HShape1.EndOffset.Value = 250
  HShape1.ExtrudedObject = EKontur1
  AktivKoerper1.AppendHybridShape HShape1

Die Fehlermeldung kommt für die Zeile {Set HShape1 = Wzk3D.AddNewExtrude...}, Fehlermeldung: Typen unverträglich.
Noch ein Hinweis zur kommentierten Klammerangabe hinter diesem Code: habe es mal vom Rekorder aufzeichnen lassen und der definiert die nötigen Parameter in Klammer hinter dem Befehl. Ich habs derzeit mit den darunterliegenden Zeilen versucht (vgl. Ziehten).
Fernet ist der Wzk3D wie folgt definiert:

  Dim AktivDok as ProductDocument
  Set AktivDok = CATIA.ActiveDocument.Part
  Dim Wzk3D as Factory
  Set Wzk3D = AktivDok.HybridShapeFactory

Weiß jemand, wo der Fehler liegen könnte?

Danke für Eure Hilfe, Gruß aus dem wilden Süden,

  fireman

------------------

Neugier ist der erste Schritt des Fortschritts

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

---

Fehlermeldung_Test_Extrude.jpg

Hallo alle miteinander,

jetzt anbei noch ein file mit der Fehlermeldung. Zudem hab ich das Gesamte Makro gesplittet, hab das Makro mit dem Extrude-Befehl einmal separat geschrieben und hier der Gesamte Programmcode:

Dim AktivDok as Document
Set AktivDok = CATIA.ActiveDocument.Part
Dim Wzk3D as Factory
Set Wzk3D = AktivDok.HybridShapeFactory

Ursprungselemente, Normalebene as AnyObject
Dim SKontur2D as HybridShape
Set SKontur2D = AktivDok.HybridBodies.Item ("2D_Konturen").HybridShapes.Item("Projizieren.1")
Set Nomalebene = AktivDok.OriginElements.PlaneXY

Dim Ref1, Ref2 as Reference
Set Ref1 = AktivDok.CreateReferenceFromObject (Normalebene)
Set Ref2 = AktivDok.CreateReferenceFromObject (Skontur2D)
Dim Richtung as HybridShapeDirection
Set Richtung = Wzk3D.AddNewDirection (Ref1)

Sub CATMain()

  Dim AktivKoerper as HybidBody
  Set AktivKoerper = AktivDok.HybridBodies.Item ("2D_Konturen")
  Dim EShape as HybridShapeExtrude
  Set EShape = Wzk3D.AddNewExtrude(Ref2, 200.00, 200.00, Ref1)
  AktivKoerper.AppendHybridShape HShape1
  AktivDok.Update

End Sub

Ich habe meinen eigenen Code auch schon mit den Aufzeichnungen aus dem Makro-Rekorder verglichen, habe eigentlich keine Differenzen festgestellt (bis auf die Namen, aber die sind doch egal?!?).
Weiß nimmer weiter, falls irgend jemand den Fehler sieht und die Lösung weiß, bitte melden.

Thx a lot! Gruß aus dem wilden Süden,

  fireman

------------------

Neugier ist der erste Schritt des Fortschritts

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

---

Es kommt zwar spät aber vielleicht hilft es dir noch was.
Hatte das gleiche Problem und hab es wie folgt gelöst:

Dim Wzk3D As ShapeFactory
Set Wzk3D = Bauteil.ShapeFactory

Ich glaube hier liegt der Fehler bei dir.
Hoffe es hilft dir noch weiter

Grüsse Jules

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

---

Hi Fireman,

wenn die Fehlermeldung "Typen unverträglich" erscheint, liegt das vermutlich an folgendem:

AddNewExtrude benötigt als Extrusionselement ein Objekt des Typs "Reference" (siehe z.B. Methode CreateReferenceFromObject (S. 376)) und als Richtung ein Objekt des Typs "HybridShapeDirection" (S. 82 ff.). Nur dann kannst Du sicher sein, dass der Extrude auch erstellt wird.

------------------
Tschüß, Dieter

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

---

... wie ich sehe hast Du das auch im zweiten Teil umgesetzt. Aber stimmen diese beiden Zeilen wirklich?

Set EShape = Wzk3D.AddNewExtrude(Ref2, 200.00, 200.00, Ref1)
AktivKoerper.AppendHybridShape HShape1

Sollte die zweite Zeile nicht eher lauten:
AktivKoerper.AppendHybridShape EShape
?

------------------
Tschüß, Dieter

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