---

Hallo!

Ich möchte eine Aufmassfläche von einer Verbindung erstellen und habe Folgendes programmiert:

Set referenceVerbindung = part1.CreateReferenceFromObject(Verbindung)
Set Aufmass = AddNewThickSurface(Verbindung ,0,2.000000,0.000000)
hybridBody1.AppendHybridShape Aufmass
part1.InWorkObject = Aufmass
part1.Update

Das funktioniert aber leider nicht, was habe ich falsch gemacht?

------------------
Karin

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

---

Hallo hab dasselbe Problem,

habe eine HybridShapeFill(Fuell) und wollte die per addnewthicksurface zum volumen machen lassen

    Dim MyPart As Part
    Set MyPart = CATIA.ActiveDocument.Part
   
    Dim Wzk3D As ShapeFactory
    Dim Wzk3DH As HybridShapeFactory
   
    Set Wzk3D = MyPart.ShapeFactory
    Set Wzk3DH = MyPart.HybridShapeFactory
       
    'Körper erstellen
    Dim HBody As HybridBody
    Set HBody = myCatia.createHybridBody(HBodyName)
   
    Dim Quadrat As Collection
    Dim Fuell As HybridShapeFill
    Dim Ref As Reference
   
    Set Quadrat = myCatia.drawQuadrat3DXY(HBody, x, y, z, size)
    Set Fuell = myCatia.createFlaecheByLine(HBody, Quadrat)
    Set Ref = MyPart.CreateReferenceFromObject(Fuell)
   
    Dim Thick
    Set Thick = Wzk3D.AddNewThickSurface(Ref, 1, 1, 1)

Erklärungen:

myCatia is lediglich eine Klasse die die Basisoperationen automatisiert damit sie OOP-like leichter handlebar sind

funktioniert auch bis zur letzten zeile alles ganz gut, es werden 4Puntke gezeichnet, dann 4 Verbindungslinien gezogen, dann eine Füllfläche aufgemacht

In der letzten Zeile erhalt ich allerdings immer einen runtime fehler, weiss jemand warum? wie kann ich das lösen?

vielen dank schonmal im voraus...

------------------
gr33t7 Ronny

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