---

Hallo zusammen,

ich hab da einmal eine Frage: ist es möglich, dass man Freiformflächen (Net Surface) mittels Makro erzeugen kann? Ich habe z.B. einige Guides und 2 Profiles womit ich nun eine Fläche mittels Net Surface erzeugen kann. Nur kann man das auch mit einem Makro automatisieren. Wenn ich über Makro - Star Recording es versuche, funktioniert das nicht.
Übrigens: ich habe keine Ahnung von Makro-Programmierung

Vielen Dank.
Thomas

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

---

Hi Tom,
ich muss zugeben das ich selbst ein extremer Neuling bin, aber es ist auf jeden Fall möglich mittels Makros Flächen (allerdings weiß ich net was Freiformflächen sind)zu erstellen. Ich hab leider grad kein konretes Beispiel zur Hand, nur n paar Kot-Schnipsel^^ aber prinzipiell geht es über diesen Weg (ich habe zuvor schon eine 2D-Linie erzeugt), diese wird dann extrudiert:

Code:

---

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePlaneExplicit1 As AnyObject
Set hybridShapePlaneExplicit1 = originElements1.PlaneXY

Dim hybridShapeDirection1 As HybridShapeDirection
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirection(reference1)

Dim tiefe As Double
tiefe = 3

Dim body1 As Body
Set body1 = bodies1.Item("Teil")

Dim reference40 As Reference
Set reference40 = part1.CreateReferenceFromObject(sketch1)

Dim hybridShapeExtrude1 As HybridShapeExtrude
Set hybridShapeExtrude1 = hybridShapeFactory1.AddNewExtrude(reference40, tiefe, 0, hybridShapeDirection1)

body1.InsertHybridShape hybridShapeExtrude1

part1.InWorkObject = hybridShapeExtrude1

part1.Update

---

Wie gesagt, hier wir nur eine Fläche erzeugt.
Ich hoffe das hilft dir weiter, wenn nicht meld dich nochmal. Wenn ich dir helfen kann, werd ichs tun.

Grüße
Marc

[EDIT]:
Was mir grad noch kommt:
Manchmal ist es hifreich nicht das gesamte Makro aufzuzeichnen, sondern nur Stück für Stück. Bei mir wird bei einer kompletten Makroaufzeichnung oft ein Teil nicht aufgezeichnet. Wenn ich aber nur einzelne Schritte aufzeichne funtzt.

[Diese Nachricht wurde von Marcinator am 23. Mai. 2009 editiert.]

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

---

Hallo Marc,

erst mal vielen Dank, dass Du Dich gemeldet hast.
Also Freiformflächen erzeugst Du mit der Funktion FreeStyle. Dort kann man NetSurfaces oder StylingSurfaces erzeugen. Das Problem ist: wenn ich meine Grundarbeit erledigt habe, um dann nur noch die Flächen mit einem dieser Befehle aufziehen möchte, funktioniert dass nicht mit einer Makro-Aufzeichnung.
Die Flächen, rein Catia mäßig, funktionieren schon, nur eben nicht wenn ich die Vorgehensweise mit Makro-Recording-Start aufzeichnen möchte.

Gruss, Thomas

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