---

Hallo,

Ich hab mir vor einiger Zeit aus Teilen von hier ein Makro zusammen gebastelt, welches mir die Abmessungen wiedergibt.

Daywa1k3rs Rohmasze.exe dürfte einigen ein Begriff sein - sowas ist das.

Ich hab jetzt a) das Problem, daß es bei Rahmengenerator Teilen im IV12 nicht geht. (Bei allen normal erstellten Teilen geht es) - siehe dazu den eintrag im Inventor Forum - (nicht haun, wollte hier kein Crossposting machen!  )
und b) weshalb ich hier eigentlich schreibe -
Gibt es die Möglichkeit, daß er automatisch bei allen Teilen einer BG Abmessungen einträgt?
und ach ja c)- bei Blechteilen nimmt er leider nie die Abwicklung. Selbst wenn ich diese öffne und das Makro hier laufen lasse.

Bitte die Antworten DAU sicher schreiben, wie gesagt ich habs mir nur zusammen gestoppelt und bin kein Ass im Programmieren.

Grüße,
Stein 

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

---

Also Stein - keine Antwort auf Deine Frage - aber:

Herzlichen Glückwunsch zum 400sten Beitrag!

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

---

Hey, Danke, hatte ich gar nicht bemerkt!

Grüße,
Stein

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

---

Hallo Stein,

die Abwicklung bekomst Du so:

Private Sub getX()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  ' das ist ein Blech
  If oDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
   
    Dim oSMCD As SheetMetalComponentDefinition
    Set oSMCD = oDoc.ComponentDefinition

    Debug.Print "Abwicklung " & oSMCD.FlatPattern.Body.RangeBox.MinPoint.X
    Debug.Print "Abwicklung " & oSMCD.FlatPattern.Body.RangeBox.MaxPoint.X
   
    Debug.Print "Gefaltet " & oSMCD.RangeBox.MinPoint.X
    Debug.Print "Gefaltet " & oSMCD.RangeBox.MaxPoint.X
 
  Else
   
    ' das ist eion Part
    Dim oCD As PartComponentDefinition
    Set oCD = oDoc.ComponentDefinition
   
    Debug.Print "X min " & oCD.RangeBox.MinPoint.X
    Debug.Print "X max " & oCD.RangeBox.MaxPoint.X
 
  End If
 
End Sub

Hoffe, das hilft.

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

iShell: Assembly zu Hüllenpart

thinkCAD Web-Kataloge

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

---

Danke schön!
Komischer Weise nimmt er aber heute auch das Richtige bei meinem alten Makro. Keine Ahnung warum.

Danke auf alle Fälle. U's sind unterwegs.

Grüße,
Stein

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