---

Hallo,

gibt es eine möglich die Grundabmaße einer IDW-Zeichnung zu erfassen?

Gruß, Tim

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

---

Hallo Tim,

was verstehst Du unter 'Grundabmasse' ?

Grüsse,

Paul

www.morecam.ch/cad.htm

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

---

Zeichng.jpg

Hi,

also es geht um Blechbearbeitung. Dafür muss ich immer die Höchstmaße wissen um die richtige Blechgröße wählen zukönnen.

Im Anhang habe ich ein Bild als Beispiel.

Gruß, Tim

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

---

Hallo Tim,

ich denke, Du suchst an der falschen Stelle. In der IDW kannst Du die Grösse der View herausfinden, nicht aber die exakten Grösstmasse der Abwicklung. Die bekommst Du aus dem Blechteil (IPT) bzw. aus dessen Abwicklung wie folgt:

Public Sub getBoundingBox()

    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oCD As SheetMetalComponentDefinition
    Set oCD = oDoc.ComponentDefinition

    Dim oFP As FlatPattern
    Set oFP = oCD.FlatPattern

    Dim dimX, dimY, dimZ As Double

    On Error Resume Next
    dimX = Round((oFP.Body.RangeBox.MaxPoint.X - oFP.Body.RangeBox.MinPoint.X) * 10, 3)

    If Err Then
      MsgBox "Abwicklung fehlt!", 16, "Error"
      End
    End If

    dimY = Round((oFP.Body.RangeBox.MaxPoint.Y - oFP.Body.RangeBox.MinPoint.Y) * 10, 3)
    dimZ = Round((oFP.Body.RangeBox.MaxPoint.Z - oFP.Body.RangeBox.MinPoint.Z) * 10, 3)

    Debug.Print "X= " & dimX & " mm"
    Debug.Print "Y= " & dimY & " mm"
    Debug.Print "Z= " & dimZ & " mm"

End Sub

Hoffe, das Hilft.

Grüsse,

Paul

www.morecam.ch/cad.htm

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