---

ProblenAddOffset.pdf

Beim Versuch eine in VBA erstellte Skizze mit Hilfe der AddOffset-Methode zu bemaßen, trat folgendes Problem auf: Ein Punkt (Endpunkt einer skizzierten Linie) soll symmetrisch zur Bezugsachse bemaßt werden. In der VBA-Hilfe finde ich zwar eine Abbildung, die meinem Fall entspricht, das Ergebnis laesst sich aber scheinbar nicht erzielen. In der angehängten PDF-Datei sind die drei Fälle (Bild 1 bis Bild 3) mit Kommentar dargestellt.
Hat jemand eine Lösung für dieses Problem?

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

---

Hi,

kannst du mal den Code und ein Beispielpart hochladen? Dann findet sich bestimmt jemand, der mal reinschaut :-)

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

---

AddOffset.txt

Einen guten Tag.

Ich verzweifle. seit langem versuche ich die Programmfunktion "AddOffset" durchzuführen, da bin ich auf Deinen Eintfag im Forum gestoßen. Kannst du mir vielleicht den Programmtext, der hinter den Bildern Deines PDF Dokuments liegt, schicken. Ich denke damit würde mir sehr geholfen.
Anbei sende ich Dir meinen Versuch, in dem immer in der letzten Zeile ein Fehler auftaucht.

Bedanke mich schon einmal im voraus

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

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

---

Code:

---

Sub Versuch()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.Documents.Add(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))
   
   
    Dim Maß As OffsetDimConstraint
    Set Maß = oSketch.DimensionConstraints.AddOffset(oLine01, oLine02, 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

---

sehr schön danke.

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

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