---

Hallo zusammen,

da ich zu diesem Thema nur ältere Beiträge von vor 3 Jahren gefunden habe, wollte ich nochmal fragen.
Gibt es in Inventor die Möglichkeit, dass sich die Größe des Zeichnungsrahmens automatisch mitändert, wenn man die Blattgröße von z.B. A4 in A3 ändert?

Vielen Dank im Voraus

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

---

snip_20220530110940.png

Hallo!

Wenn der Rahmen von aussen bemasst ist sollte er die Größe von selbst an das neue Blattformat anpassen.

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

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

---

Wir haben das so gelöst:

Blattformat = InputListBox("Blattgröße wählen", MultiValue.List("Blattformat"), Blattformat, Title := "Blattgröße ändern", ListName := "Liste")
Trigger=iTrigger0

If Blattformat="DINA0" Then
ActiveSheet.Border = "Waldraff-A0"
ActiveSheet.ChangeSize("A0", MoveBorderItems := True)
ActiveSheet.Sheet.orientation=10242
ThisApplication.ActiveView.Fit

ElseIf Blattformat="DINA1" Then
ActiveSheet.Border = "Waldraff-A1"
ActiveSheet.ChangeSize("A1", MoveBorderItems := True)
ActiveSheet.Sheet.orientation=10242
ThisApplication.ActiveView.Fit

ElseIf Blattformat="DINA2" Then
ActiveSheet.Border = "Waldraff-A2"
ActiveSheet.ChangeSize("A2", MoveBorderItems := True)
ActiveSheet.Sheet.orientation=10242
ThisApplication.ActiveView.Fit

ElseIf Blattformat="DINA3" Then
ActiveSheet.Border = "Waldraff-A3"
ActiveSheet.ChangeSize("A3", MoveBorderItems := True)
ActiveSheet.Sheet.orientation=10242
ThisApplication.ActiveView.Fit

ElseIf Blattformat="DINA4" Then
ActiveSheet.Border = "Waldraff-A4"
'ActiveSheet.ChangeSize(28.0, 20.0, MoveBorderItems := True)
ActiveSheet.ChangeSize("A4", MoveBorderItems := True)
ActiveSheet.Sheet.orientation=10243
ThisApplication.ActiveView.Fit

End If

------------------
Gruß
Hans

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

---

das interessiert mich auch, wie binde ich das in Inventor ein? herzlich Sascha

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

---

Erstmal danke dafür Hans,

nur ich weiß leider nicht genau, wo ich das reinkopieren soll. 
In den VBA-Editor??

Gruß und Danke

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

---

Der Code von Hans ist für eine iLogic-Regel.

Damit das läuft, braucht es einen MultiValue-Parameter der "Blattformat" heißt. Die zulässigen Werte sind "DINA0" etc.

------------------
Gruß KraBBy

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

---

hab selbst etwas mit dem Code rum probiert. Unten das Resultat.

funktioniert als externe Regel
umgebaut, so dass kein Parameter benötigt wird (muss nicht von Hand erstellt oder die Vorlage angepasst werden)

Hängt ein wenig damit zusammen, wie man die Regel starten will. iTrigger funktioniert mit externer Regel nicht (glaube ich zumindest)

Code:

---

' Blattformat einer Zeichnung ändern
'
' umgebaut, so dass kein Parameter benötigt wird

'zentraler Schalter um einige Meldungen ein/aus zu schalten
Dim bDebug As Boolean = False

'Regel nur für Zeichnung
If Not TypeOf ThisDoc.Document Is DrawingDocument Then
If bDebug Then MsgBox ("Ende weil falscher Typ")
Exit Sub
Else
If bDebug Then MsgBox("richtiger Dok-Type")
End If

'Liste mit wählbaren Blattformaten
Dim MyArrayList As New ArrayList
MyArrayList.Add("A0")
MyArrayList.Add("A1")
MyArrayList.Add("A2")
MyArrayList.Add("A3")
MyArrayList.Add("A4")

If bDebug Then MsgBox("ArrayList erstellt")

Dim selectedValue As String
If MyArrayList.Contains(ActiveSheet.Size) Then
selectedValue = ActiveSheet.Size
If bDebug Then MsgBox(selectedValue & vbCrLf & "ist in ArrayList vorhanden")
Else
If bDebug Then MsgBox(selectedValue & vbCrLf & "ist NICHT in ArrayList vorhanden")
End If

selectedValue = InputListBox("Blattgröße wählen", MyArrayList, selectedValue, Title := "Blattgröße ändern", ListName := "Blattformate" )
If bDebug Then MsgBox(selectedValue & vbCrLf & "Ergebnis der InputListBox")

Select Case selectedValue
Case "A0"
ActiveSheet.Border = "A0Q"
ActiveSheet.ChangeSize("A0", moveBorderItems := True)
ActiveSheet.Sheet.Orientation = Inventor.PageOrientationTypeEnum.kLandscapePageOrientation
ThisApplication.ActiveView.Fit

Case "A1"
ActiveSheet.Border = "A1Q"
ActiveSheet.ChangeSize("A1", moveBorderItems := True)
ActiveSheet.Sheet.Orientation = Inventor.PageOrientationTypeEnum.kLandscapePageOrientation
ThisApplication.ActiveView.Fit

Case "A2"
ActiveSheet.Border = "A2Q"
ActiveSheet.ChangeSize("A2", moveBorderItems := True)
ActiveSheet.Sheet.Orientation = Inventor.PageOrientationTypeEnum.kLandscapePageOrientation
ThisApplication.ActiveView.Fit

Case "A3"
ActiveSheet.Border = "A3Q"
ActiveSheet.ChangeSize("A3", moveBorderItems := True)
ActiveSheet.Sheet.Orientation=Inventor.PageOrientationTypeEnum.kLandscapePageOrientation
ThisApplication.ActiveView.Fit

Case "A4"
ActiveSheet.Border = "A4H"
'ActiveSheet.ChangeSize(28.0, 20.0, MoveBorderItems := True)
ActiveSheet.ChangeSize("A4", moveBorderItems := True)
ActiveSheet.Sheet.Orientation=Inventor.PageOrientationTypeEnum.kPortraitPageOrientation
ThisApplication.ActiveView.Fit

Case Else 'Blattformat enthaelt einen anderen Wert
MsgBox("unerwarteter Wert! Das sollte nicht passieren.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "iLogic Regel")
'passiert z.B. wenn User die InputBox schliesst
End Select

If bDebug Then MsgBox("Fertig", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "iLogic Regel")

---

------------------
Gruß KraBBy

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

---

D001.jpg D002.jpg

Zitat:

---

Original erstellt von KraBBy:
Der Code von Hans ist für eine iLogic-Regel.

Damit das läuft, braucht es einen MultiValue-Parameter der "Blattformat" heißt. Die zulässigen Werte sind "DINA0" etc.

---

Vielen Dank für deine Zusammenfassung, ich muß gestehen, dass dies für uns von extern eingepflegt wurde.
Hier vielleicht ein paar erklärende Screen shots.

------------------
Gruß
Hans

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