---

Guten Morgen,

wie vielleicht schon jemand gesehen hat, habe ich gestern nach einer Möglichkeit gesucht, eine Kugel zu erstellen. Dieses Problem habe ich gelöst, allerdings bekomme ich die Kugel nicht gefüllt... Kann mir jemand die Funktion mit Syntax für CloseSurface mitteilen?

MfG therp

edit: ach ja, ich benutze VS2010

[Diese Nachricht wurde von therp am 01. Sep. 2010 editiert.]

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

---

Hi hier mal ein kurzes Beispiel,

Sub CATMain()

Dim MyPartDocument As PartDocument
Dim MyPart As Part
Dim MyShapeFactory As ShapeFactory
Dim MyReference As Reference
Dim MyCloseSurface As CloseSurface
Dim MySurface  As Object

'Part/Dokument holen
Set MyPartDocument = CATIA.ActiveDocument
Set MyPart = MyPartDocument.Part

'Testflaeche holen
Set MySurface = MyPart.FindObjectByName("MySurface")

'Close erzeugen
Set MyShapeFactory = MyPart.ShapeFactory
Set MyReference = MyPart.CreateReferenceFromObject(MySurface)
Set MyCloseSurface = MyShapeFactory.AddNewCloseSurface(MyReference)

'Part Update
MyPart.Update

End Sub

...übrigens Körpererstellung macht meistens auch der Makrorecorder. 

mfG
Mario

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

---

Super! Vielen Dank

Die Sache mit dem Makrorecorder hatte ich auch schon ausprobiert, aber irgendwie nicht dementsprechend ins VS bekommen.

Komisch eigentlich, da es wie ich grad gesehen habe wirklich das gleiche wie bei dir war.....

Naja, trotzdem Danke

Ich denke das war nicht die letzte Hilfe die ich brauchte 

MfG therp

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