---

Hallo an alle,

ich habe gerade ein merkwürdiges Problem. Der folgende Code ein hybridshapefill zu erzeugen funktioniert unter R18 nicht (missing inputelements), jedoch funktioniert er unter R16. Kann das jmd mal bei sich testen und rückmeldung geben? Hat da Dassault wieder mal mist gebaut? Ich brauche unter R18 die HybridShapeFill erzeugung....

Falls es echt ein Problem geben sollte mit der Funktion und R18, gibt es alternativen?

Code:

---

Sub catmain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies1.Item("Auxiliary Geometry")

Dim join As HybridShapeAssemble
Set join = part1.FindObjectByName("Join.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(join)

Dim hybridShapeFill1 As HybridShapeFill
Set hybridShapeFill1 = hybridShapeFactory1.AddNewFill()

hybridShapeFill1.AddBound reference1
hybridBody2.AppendHybridShape hybridShapeFill1

End Sub

---

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