---

Hallo zusammen,

ich habe eine relativ komplizierte Bauteilkontur die schwer traditionell zu bemaßen ist. Da unser programmierer nur die Radien Anfangs- und Endpunkte braucht, würde ich die gerne in einer Tabelle generieren lassen. Im prinzip genau so wie man das mit der Bohrungstabelle macht. Aber ich weiß nicht wie! Kennt sich da jemand aus?

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

---

Hallo Devian591982,

willkommen im Forum :-)

Ein möglicher Ansatz wäre ein Makro wie dieses hier:

Code:

---

Dim Anz As Integer
Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set Sketch = Part.GetActiveSketch2
    If (Sketch Is Nothing) Then
        MsgBox ("Please open the sketch")
        End
    End If
    Anz = 1
    points = Sketch.GetSketchPoints
    Open "c:\TEMP\SkizzenPunkte.txt" For Output As 1
    s = 1000 ' 1 = to export as meters, otherwise set your scale factor here
    For Each p In points
        Print #1, Anz, s * p.X, s * p.Y, s * p.Z
        Dim Note As Object
        Dim Annotation As Object
        Dim TextFormat As Object
        Set Note = Part.InsertNote("Punkt" & Anz)
        If Not Note Is Nothing Then
          Note.Angle = 0
          boolstatus = Note.SetBalloon(0, 0)
          Set Annotation = Note.GetAnnotation()
          If Not Annotation Is Nothing Then
            longstatus = Annotation.SetLeader2(False, 0, True, False, False, False)
            boolstatus = Annotation.SetPosition(p.X, p.Y, p.Z)
            boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
          End If
        End If
        Part.ClearSelection2 True
        Part.WindowRedraw
        Anz = Anz + 1
    Next p
    Close 1
End Sub

---

Es hat so seine Randbedingungen... http://ww3.cad.de/foren/ubb/Forum2/HTML/004432.shtml

Vielleicht findet sich noch eine bessere Lösung  

HTH
Ralf

------------------

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