Arbeitsblattformate (Autodesk/Inventor VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Arbeitsblattformate (1963 mal gelesen)
Rüdiger Küch Mitglied Beiträge: 89 Registriert: 09.05.2001 NX6.0.5.3 MP12 + TCE 2005 SR1/2007 - produktiv NX8.5.2.3 MP + TC 9.1.2 - im Test	erstellt am: 14. Jul. 2005 07:37 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, ich habe im Inventor 10 mehrere Arbeitsblattformate definiert (A4 bis A0), die Blattgrößen dieser Formate weichen von den DIN-Größen ab. Ist es möglich mit Hilfe einer VBA-Routine das Arbeitsblattformat und die Blattgröße der IDW zu ermitteln und in eine benutzerdefinierte Eigenschaft zu schreiben? Gruß Rüdiger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)	erstellt am: 14. Jul. 2005 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für Rüdiger Küch Hi Rüdiger, Du kannst ja mal hier nachsehen. Da müßte was für Dich dabei sein. ------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. —Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Rüdiger Küch Mitglied Beiträge: 89 Registriert: 09.05.2001	erstellt am: 14. Jul. 2005 10:31 <-- editieren / zitieren --> Unities abgeben: Hallo Lothar, vielen Dank für die Antwort. Ich teste es und melde mich dann wieder. Gruß Rüdiger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
PaBü Mitglied Maschinenbauingenieur Beiträge: 61 Registriert: 10.06.2005 »Nur weil du paranoid bist, heißt das nicht, daß sie nicht hinter dir her sind.«	erstellt am: 14. Jul. 2005 10:46 <-- editieren / zitieren --> Unities abgeben: Nur für Rüdiger Küch Sub Blattgröße() Dim zeichnung As DrawingDocument Set zeichnung = ThisApplication.ActiveDocument Dim blatt As Sheet Set blatt = zeichnung.ActiveSheet Blattgröße = blatt.Size End Sub Abgleichen der Blattgröße mit DrawingSheetSizeEnum (siehe API-Hilfe) ------------------ mfg Patrick EINFACH sein, einfach SEIN! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
VOSTA1 Mitglied techn. Angestellter Beiträge: 108 Registriert: 23.12.2002	erstellt am: 15. Jul. 2005 14:58 <-- editieren / zitieren --> Unities abgeben: Nur für Rüdiger Küch falls einer die sub auspropiert sub "Blattgröße" in "Blattgroesse" umbenennen Variablen und Sub nie gleich benennen! Sub Blattgroesse() Dim zeichnung As DrawingDocument Set zeichnung = ThisApplication.ActiveDocument Dim blatt As Sheet Set blatt = zeichnung.ActiveSheet Blattgröße = blatt.Size End Sub Das müßte es sein was gesucht wird Sub Blattgroeße() Dim zeichnung As DrawingDocument Set zeichnung = ThisApplication.ActiveDocument Dim blatt As Sheet Set blatt = zeichnung.ActiveSheet MsgBox "Blattgröße : " & blatt.height & "cm x " & blatt.Width & "cm" Dim Blattab As String Blattab = blatt.height & " x " & blatt.Width On Error Resume Next 'wenn Blattgröße schon vorhanden zeichnung.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add Blattab, "Blattgröße" zeichnung.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Blattgröße").Value = Blattab End Sub [Diese Nachricht wurde von VOSTA1 am 15. Jul. 2005 editiert.] [Diese Nachricht wurde von VOSTA1 am 15. Jul. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)