---

Hallo!

Ich möchte eine Multisection erzeugen. Überlicherweise muss man bei geschlossenen Profilen(Sketch) einen Closing Point definieren. Ich habe bereits mehrere Varianten ausprobiert aber bisher ohne Erfolg. Folgender Code-Schnipsel funktioniert fast:

        Dim ref_sketch0, ref_sketch1, ref_sketch2 As Object
        Dim hsfLoft As MECMOD.HybridShape
        Dim ref_spine As Object
        ref_spine = Intf.GetPart().CreateReferenceFromObject(spine)
        ref_sketch0 = Intf.GetPart().CreateReferenceFromObject(sketch0)
        ref_sketch1 = Intf.GetPart().CreateReferenceFromObject(sketch1)
        ref_sketch2 = Intf.GetPart().CreateReferenceFromObject(sketch2)

        hsfLoft = Intf.GetHSFactory().AddNewLoft()

        hsfLoft.SectionCoupling = 1
        hsfLoft.Relimitation = 1
        hsfLoft.CanonicalDetection = 2

        Dim ref_pt0, ref_pt1, ref_pt2 As Object
        ref_pt0 = Intf.GetPart().CreateReferenceFromObject(ref_sketch0.GeometricElements.GetItem("Point.5"))
        ref_pt1 = Intf.GetPart().CreateReferenceFromObject(ref_sketch1.GeometricElements.GetItem("Point.5"))
        ref_pt2 = Intf.GetPart().CreateReferenceFromObject(ref_sketch2.GeometricElements.GetItem("Point.5"))

        hsfLoft.SetSpine(ref_spine)
        hsfLoft.AddSectionToLoft(ref_sketch0, 1, ref_pt0)
        hsfLoft.AddSectionToLoft(ref_sketch1, 1, ref_pt1)
        hsfLoft.AddSectionToLoft(ref_sketch2, 1, ref_pt2)

        Intf.GetHybridBody().AppendHybridShape(hsfLoft)

Das Loft-Feature (Multisection) wird angelegt. Die Geometrie wird aber nicht erzeugt. Die Fehlermeldung besagt, dass der Punkt.5 nicht mit der Skizze assoziiert ist. Was mache ich hier falsch?

Gruß, Martin

[Diese Nachricht wurde von martinINPRO am 04. Jul. 2008 editiert.]

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

---

Hallo,
ohne es jetzt nachgeprüft zu haben aber kann es sein, dass du ein und den selben Punkt für alle 3 Skizzen als Closing Point definierst?
Müssen es nicht 3 verschiedene Punkte sein, die jeweils auch auf der jeweiligen Skizzen liegen müssen?

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Hallo,

dadurch, dass ich die GetItem()-Funktion auf jeweils unterschiedlichen Skizzen anwende, wird meines erachtens der jeweilige Punkt der Skizze referenziert.

@Jens: Hast Du einen funktionsfähigen Code-Schnipsel?

Gruß, Martin

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

---

Ja schon, aber liegen denn auch real 3 Punkte mit dem Namen "Point.5" vor, die auf den jeweiligen Skizze liegen?
Meines verständnisses nach müssen 3 Punkte da sein; für jede Skizze einer.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Ich habe drei Skizzen mit einem Skript erzeugt. Alle drei Skizzen sind somit gleichartig aufgebaut. In jeder Skizze ist somit ein "Punkt.5" vorhanden. Wie bereits am Anfang erwähnt, wird das Feature in CATIA angelegt. Die Fläche wird allerdings nicht erzeugt. Man kann das Feature mit Doppelklick öffnen und sich auch die Definition ansehen. Diese ist quasi in Ordnung. CATIA merkt aber folgendes an: "Part1: Element Point.5 has no associated geometry. Recreate the geometry."

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

---

Ich glaube ich habe erstmal eine Hilfslösung gefunden. Mit der ich vielleicht weiterkomme, aber die noch nicht richtig tut! Im CATScribt kann man beipielsweise in der Funktion .AddSectionToLoft(skizze,1,nothing) das Wort "nothing" übergeben. In VBA bekommt man hier einen Typ-Konflikt. Wie kann ich nun in VBA hier ein "nichts" übergeben!?

Danke und Gruß, Martin

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

---

Versuchs mal mit ""

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

@Jens:

Das hatte ich bereits schon mal ausprobiert. Zur Sicherheit jetzt ein weiteres Mal. Es geht leider nicht!

hsfLoft.AddSectionToLoft(ref_sketch0, 1, "nothing")

Fehlermeldung: Typkonflikt. (Ausnahme von HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))

Ich behaupte, das "nothing" ein bestimmter Typ sein muss. Ein String tut nicht!

Gruß, Martin

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

---

Hallo

hsfLoft.AddSectionToLoft(ref_sketch0, 1, "")

nur anführungszeichen ohne nothing !!

Gruß

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

---

Nach einem Testlauf mit folgenden Versuchen:

hsfLoft.AddSectionToLoft(ref_sketch0, 1, "")        : Typkonflikt
hsfLoft.AddSectionToLoft(ref_sketch0, 1, 0)        : Typkonflikt
hsfLoft.AddSectionToLoft(ref_sketch0, 1, nothing)  : Typkonflikt
hsfLoft.AddSectionToLoft(ref_sketch0, 1, "nothing") : Typkonflikt
hsfLoft.AddSectionToLoft(ref_sketch0, 1, )          : Parameter nicht optional

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

---

Du musst die Klammern weglassen:

loft.AddSectionToLoft refline, 1, Nothing

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

---

Guten Tag,

die Sache mit den Klammern weglassen funktioniert bei mir auch...

ich habe allerdings ein anderes Problem und dachte, ich füge es mal hier ein. Habe diesbzgl. leider nichts im Forum gefunden.

Ich habe ein Multisectionsurface über hybridshapeloft erstellt. Es basiert auf zwei (toten) Splines. Jetzt möchte ich das MSS kopieren, wieder tot einfügen und danach das MSS editieren.
Im MSS soll eine weitere Spline eingefügt werden und die erste soll gelöscht werden. Eigentlich funktioniert alles, ich bekomme die erste Spline allerdings nicht zu packen um sie zu löschen.

Ich hoffe ihr wisst was ich meine und könnt mir helfen.

MfG therp

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