---

Stirnflaeche.jpg

Hallo Forum,

habe mal wieder eine Frage an der ich echt verzweifle. Ich erzeuge mir in einem Bauteil eine Skizze und möchte mir in diese Skizze die Stirnfläche eines Profils/ Bauteils projizieren, mit welchem Befehl kann ich die Stirnfläche wählen?

Public Sub SketchonXY()
 
    ' Set a reference to the part component definition.
    ' This assumes that a part document is active.
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

' Create a sketch on the X-Y plane.
    Dim oSketch As PlanarSketch
    Set oSketch = oCompDef.Sketches.Add(oCompDef.WorkPlanes(3))
   
    ' Change the name.
    oSketch.Name = "Moment Calculation"
   
    'Open Sketch
    oSketch.Edit
   
'????

Dim oFace As Face
    Set oFace = oCompDef.SurfaceBodies.EndFace

'????? Hier liegt das Problem

'Geometrie projizieren
Dim oGeomLine As SketchEntity
Set oGeomLine = oSketch.AddByProjectingEntity(oFace)

Danke für Eure Hilfe.

Gruß
Sebastian

[Diese Nachricht wurde von cadsepp am 11. Mrz. 2011 editiert.]

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

---

Hallo

Du könntest die Fläche über die Pick-Methode selektieren

Code:

---

Public Sub SketchOnXY()

    ' Set a reference to the part component definition.
    ' This assumes that a part document is active.
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

' Create a sketch on the X-Y plane.
    Dim oSketch As PlanarSketch
    Set oSketch = oCompDef.Sketches.Add(oCompDef.WorkPlanes(3))
 
    ' Change the name.
    oSketch.Name = "Moment Calculation"
 
    'Open Sketch
    oSketch.Edit
 
Dim oFace As Object
Set oFace = ThisApplication.CommandManager.Pick(kPartFaceFilter, "Fläche auswählen")

'Geometrie projizieren
    Dim oGeomLine As Object 'SketchEntity
    Dim oEdge As Edge

For Each oEdge In oFace.Edges
    Set oGeomLine = oSketch.AddByProjectingEntity(oEdge)
Next

End Sub

---

Alternativ könntest du die ComponentDefinition.ExtrudeFeatures.Item(1).EndFaces nehmen und von dort die Kanten der Flächen holen. Damit nagelt man sich aber ziemlich fest, denn der Profilquerschnitt darf dann nicht weiter  bearbeitet werden (z.B. durch Fasen/Rundungen etc).

------------------
MfG
RK

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

---

Distance.jpg

Hallo,

vielen Dank an rk für Deine Hilfe, damit hat es super geklappt!

Habe zu dieser Thematik noch eine Frage. Nachdem ich nun in der Skizze drin bin und die Geometrie projiziert habe, möchte ich gerne den Abstand (in x- Richtung) und den Abstand (in y-Richtung) von einem Punkt (z.B. Urspring) zu meinen Skizzenaußenkanten messen. In der Inventor API werden doch auch gerade Linien als Kurven deklariert, bin ich da mit dem
CurveEvaluator und EdgeEvaluator auf dem richtigen weg? Habt Ihr eine Idee wie ich das anstellen kann, ohne innerhalb der Prozedur die Linie/ Außenkante manuell auszuwählen?

Vielen Dank für die Hilfe,

Sebastian

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