---

AddOffset.txt

Einen guten abend.
So jetzt brauche ich nur noch zu wissen, wie ich eine "Centerline" erzeuge. Also ich möchte eine Line (oLine01) als Durchmesser bemaßen, die zweite Line (oLine02) soll eine Mittelline sein. Habe den Text angehängt. wenn jemand den text mal ansehen möchte.

Danke im voraus.

------------------
Meyer01

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

---

F1 Taste kaputt?

Code:

---

Sub Versuch()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, _
                ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))
    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry
   
'Workplane Achse
    Dim oWorkPlane As WorkPlane
    Set oWorkPlane = oPartDoc.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset _
    (oPartDoc.ComponentDefinition.WorkPlanes.Item(3), 0)

'Sketch Achse
    Dim oSketch As PlanarSketch
    Set oSketch = oPartDoc.ComponentDefinition.Sketches.Add(oWorkPlane)

'TempPunkte für die achse
    Dim oPunkt As SketchPoints
    Set oPunkt = oSketch.SketchPoints
   
    Call oPunkt.Add(oTG.CreatePoint2d(0, 0), False)
    Call oPunkt.Add(oTG.CreatePoint2d(1, 0), False)
    Call oPunkt.Add(oTG.CreatePoint2d(0, 1), False)
    Call oPunkt.Add(oTG.CreatePoint2d(1, 1), False)

    Dim oCoord1 As Point2d
    Set oCoord1 = oTG.CreatePoint2d(-0.7, 0)

'erzeugt die achse

    Dim oLine01 As SketchLine
    Set oLine01 = oSketch.SketchLines.AddByTwoPoints(oPunkt(1), oPunkt(2))
    Dim oLine02 As SketchLine
    Set oLine02 = oSketch.SketchLines.AddByTwoPoints(oPunkt(3), oPunkt(4))
    oLine02.Centerline = True
   
   
    Dim Maß As OffsetDimConstraint
    Set Maß = oSketch.DimensionConstraints.AddOffset(oLine02, oLine01, oCoord1, False)
   
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Nein F1 funktioniert nicht, nur ich habe zweifel ob ich heute so richtig funktioniere.

Vielen Dank bist weit besser als F1

------------------
Meyer01

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