Layer und Farben ändern (Autodesk/Inventor .NET)


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

	Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Layer und Farben ändern (2005 mal gelesen)
GeorgK Mitglied Beiträge: 619 Registriert: 06.06.2001	erstellt am: 21. Jul. 2011 11:08 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, ich suche nach einer Möglichkeit alle Layer nach einem bestimmten Schema umzubenennen und die Farben und Linientyp zu ändern. Wie kann ich auf die Layer, Linientypen und Farben zugreifen? Vielen Dank Georg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik, Master Eng. IT-Security & Forensic Beiträge: 2912 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025	erstellt am: 27. Jul. 2011 19:59 <-- editieren / zitieren --> Unities abgeben: Nur für GeorgK Hi Das geht mW über das StylesManager-Objekt des DrawingDocuments. Code: Private Sub RenameLayer() Dim oDraw As DrawingDocument Set oDraw = ThisApplication.ActiveDocument Dim oStylesManager as DrawingStylesManager Set oStylesManager = oDraw.StylesManager Dim oLayer as Layer Set oLayer = oStylesManager.Layers.Item("alter_Name") oLayer.Name= "neuer_Name" End Sub ------------------ MfG RK Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
GeorgK Mitglied Beiträge: 619 Registriert: 06.06.2001	erstellt am: 27. Jul. 2011 22:11 <-- editieren / zitieren --> Unities abgeben: Vielen Dank für die Hilfe. Werde es morgen testen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)