Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Zeichnungsrahmen automatisch anpassen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Mechatronische Stückliste: Statt des doppelten Lottchens
Autor Thema:  Zeichnungsrahmen automatisch anpassen (870 mal gelesen)
krümelandrej
Mitglied



Sehen Sie sich das Profil von krümelandrej an!   Senden Sie eine Private Message an krümelandrej  Schreiben Sie einen Gästebucheintrag für krümelandrej

Beiträge: 52
Registriert: 04.11.2021

Windows 10
Inventor 2021

erstellt am: 30. Mai. 2022 10:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

joggi81
Mitglied
E-Verteilerbau Konstrukteur


Sehen Sie sich das Profil von joggi81 an!   Senden Sie eine Private Message an joggi81  Schreiben Sie einen Gästebucheintrag für joggi81

Beiträge: 55
Registriert: 14.10.2004

erstellt am: 30. Mai. 2022 11:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für krümelandrej 10 Unities + Antwort hilfreich


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

HA.WE
Mitglied
Kontrukteur


Sehen Sie sich das Profil von HA.WE an!   Senden Sie eine Private Message an HA.WE  Schreiben Sie einen Gästebucheintrag für HA.WE

Beiträge: 315
Registriert: 21.04.2005

IV Prof. 2020
Vault Workgroup 2020

erstellt am: 30. Mai. 2022 12:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für krümelandrej 10 Unities + Antwort hilfreich

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

freierfall
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von freierfall an!   Senden Sie eine Private Message an freierfall  Schreiben Sie einen Gästebucheintrag für freierfall

Beiträge: 11547
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2022

erstellt am: 31. Mai. 2022 08:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für krümelandrej 10 Unities + Antwort hilfreich

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

krümelandrej
Mitglied



Sehen Sie sich das Profil von krümelandrej an!   Senden Sie eine Private Message an krümelandrej  Schreiben Sie einen Gästebucheintrag für krümelandrej

Beiträge: 52
Registriert: 04.11.2021

Windows 10
Inventor 2021

erstellt am: 31. Mai. 2022 09:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


Sehen Sie sich das Profil von KraBBy an!   Senden Sie eine Private Message an KraBBy  Schreiben Sie einen Gästebucheintrag für KraBBy

Beiträge: 702
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 31. Mai. 2022 11:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für krümelandrej 10 Unities + Antwort hilfreich

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


Sehen Sie sich das Profil von KraBBy an!   Senden Sie eine Private Message an KraBBy  Schreiben Sie einen Gästebucheintrag für KraBBy

Beiträge: 702
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 31. Mai. 2022 18:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für krümelandrej 10 Unities + Antwort hilfreich

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

HA.WE
Mitglied
Kontrukteur


Sehen Sie sich das Profil von HA.WE an!   Senden Sie eine Private Message an HA.WE  Schreiben Sie einen Gästebucheintrag für HA.WE

Beiträge: 315
Registriert: 21.04.2005

IV Prof. 2020
Vault Workgroup 2020

erstellt am: 01. Jun. 2022 15:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für krümelandrej 10 Unities + Antwort hilfreich


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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz