---

Hallo,

ich suche ein Beispiel für die ShellFeature Objekt. Um die Programmierung ein bischen besser zu verstehen habe ich mal mit einfachen Funktionen angefangen, wie der Extrusion eines einfachen Rechtecks, was soweit funktioniert. Wenn ich jetzt einmal dieses Beispiel nehme (jetzt habe ich eine Würfel), stellt sich mir die Frage wie ich Fläche beschreibe die ich für die "Wandstärke" Funktion nutzen will.

Ich habe es ersteinmal hiermit versucht:

Dim oFace As Face
Set oFace = oExtrude.StartFaces.Item(1)

jetzt komme ich aber nicht weiter. Leider hat google mir auch nicht weiter helfen können. Wenn jemand einen Beispielcode hätte, der mir zeigt was ich nicht auf die Reihe bekomme wäre das nett.

Gruss
  Kai

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

---

Es ist immer das gleiche! Erst sucht man Stundenlang eine Lösung und schreibt dann voller Verzweiflung eine Beitrag und dann fällt einem die Lösung so in die Hände:

Sub FirstShell()

  Dim oCompDef As PartComponentDefinition
  Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

  Dim oFaceCollection As FaceCollection
  Set oFaceCollection = ThisApplication.TransientObjects.CreateFaceCollection

  Call oFaceCollection.Add(oCompDef.SurfaceBodies.Item(1).Faces.Item(1))

'Call oFaceCollection.Add(oCompDef.SurfaceBodies.Item(1).Faces.Item(2))

  Dim oShellDef As ShellDefinition
  Set oShellDef = oCompDef.Features.ShellFeatures.CreateShellDefinition(oFaceCollection, 0.5, kInsideShellDirection)

  Dim oShell As ShellFeature
  Set oShell = oCompDef.Features.ShellFeatures.Add(oShellDef)

End Sub

Was ich bemerkt habe ist, dass ich noch nicht ganz verstanden habe welches Face.Item welche Fläche beschreibt. Wenn jemand einen Tip hat wo ich das am besten nachlesen kann, dann immer her damit.

Gruss
  Kai

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