---

hallo alle miteinander!
Ich bin sehr neu in diesem Bereich und habe deshalb eine Frage, die mir mancheiner vielleicht beantworten kann: Wie kann ich mittels VBA die Winkelmaße zwischen 2. Linien in meine .ipt Datei einfügen?

MFG
Basti

---

Hi Basti

Herzlich Willkommen im Nebenforum des weltbestenn IV-Forums 

Eine Winkelbemaßung zwischen 2 Linien im ipt ist grundsätzlich nicht möglich.

Es geht höchstens eine Winkelbemaßung in einer Skizze. Im 3D-Modell kannst Du höchstens den Winkel zwischen 2 Körperkanten messen, als Maß kann man den aber nicht antragen.

Im VBA könntest Du 2 Kanten auswählen und aus den Geometriedaten den Winkel berechnen. Aber das ist sicher nicht das, was Du willst.

lg Mathias

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

---

Hi,

wenn du den Winkel zwischen zwei Linien in einem Sketch als Bemassung einfügen willst, holst du dir vom Sketch die DimensionConstraints. Da gibt es dann die Methode AddTwoLineAngle.

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

---

Hallo Basti,

sie gegruesst als Neuling hier im Forum.

Mach in eine Part-Doc eine skizze auf, zeichne zwei Linien von 0,0 aus. Die Eine nach rechts oben, die andere nach rechts unten. Lass die Skizze aktiv. der folgende code setzt Dir eine Winkelbemassung:

Public Sub AddAngleConstraint()

  Dim oApp As Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument

  Dim oSketch As PlanarSketch
  Set oSketch = oDoc.ActivatedObject
 
  Dim oLine1 As SketchLine
  Dim oLine2 As SketchLine
 
  Set oLine1 = oSketch.SketchLines.Item(1)
  Set oLine2 = oSketch.SketchLines.Item(2)
 
  Dim oTG As TransientGeometry
  Set oTG = oApp.TransientGeometry
 
  Dim oPt2D As Point2d
  Set oPt2D = oTG.CreatePoint2d(1#, 0#)
 
  Call oSketch.DimensionConstraints.AddTwoLineAngle(oLine1, oLine2, oPt2D)
 
End Sub

Um das ganze noch etwas zu verfeinern, koenntest Du jetzt noch die Endpunkte der beiden Linien abfragen, aus diesen Koordinaten die Mitte errechnen und diesen Punkt als Textpunkt (oPt2D) nehmen - ich habe diesen jetzt einfach auf X=10 und Y=0 gesetzt.

Gruesse und viel Spass beim coden,

Paul

www.morecam.ch/cad.htm

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