| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Dokument Einstellungen (973 / mal gelesen)
|
Bluejay Mitglied Ingenieur
Beiträge: 203 Registriert: 14.05.2007 Inventor 2011 for Simulation<P>Microsoft Windows XP Professional<P>Dell Precision T3400 Intel(R) Core(TM)2 Duo CPU E6750 @2,66 GHz 3,00 GB RAM
|
erstellt am: 06. Dez. 2016 10:48 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen liebes Forum, gibt es eine möglichkeit bei allen offenen Dokumenten eine Anpassung der Dokumenten Einstellung vorzunehmen. Ich würde gerne unter dem Menü Modellierung den Haken bei "An Baugruppen- und Zeichnungsschnitten beteiligen" entfernen? Manuell wäre sehr müsam. Hat jemand einen Link, eine Hilfestellung bzw. einen Code den ich Anpassen kann? Für alle Hilfe bedanke ich mich schon mal im voraus MFG
------------------ MFG BlueJay Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 720 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 06. Dez. 2016 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für Bluejay
Das Makro läuft bei mir (in einem kurzen Test durch). Es werden nur die geöffneten Dokumente behandelt (also die mit eigenem Fenster). Evtl geöffnete iam oder idw werden ignoriert. Code: Sub Test_iptOptionen() Dim oVisDoc As Document Dim oDoc As PartDocument For Each oVisDoc In ThisApplication.Documents.VisibleDocuments If kPartDocumentObject = oVisDoc.DocumentType Then Set oDoc = oVisDoc Dim oSett As ModelingSettings Set oSett = oDoc.ModelingSettings 'enthält die Einstellungen, analog zum Reiter Modellieren 'Einstellungen vornehmen With oSett If .AllowSectioningThruPart Then .AllowSectioningThruPart = False 'an Schnitten beteiligen .AllowSectioningThruPart = True End With End If Next 'oVisDoc End Sub
------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 720 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 06. Dez. 2016 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für Bluejay
sorry, die zweite Zeile im "With" muss raus. Hatte den Haken für meinen Test gleich wieder gesetzt. ... With oSett If .AllowSectioningThruPart Then .AllowSectioningThruPart = False 'an Schnitten beteiligen AUS End With ... ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bluejay Mitglied Ingenieur
Beiträge: 203 Registriert: 14.05.2007 Inventor 2011 for Simulation<P>Microsoft Windows XP Professional<P>Dell Precision T3400 Intel(R) Core(TM)2 Duo CPU E6750 @2,66 GHz 3,00 GB RAM
|
erstellt am: 06. Dez. 2016 14:09 <-- editieren / zitieren --> Unities abgeben:
|