Inventor 2017.4.12 64 bit Windows 10 Enterprise 64 bit 3DEXPERIENCE R2016x -------------------- HP Z-Book 15 G4 32 Gig Ram NVIDIA Quadro M2200 2x HP E243i
erstellt am: 20. Jun. 2016 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für 50cent
Hallo 50cent,
so z.B.:
Code: Sub Sheetcolor() Dim oDoc As DrawingDocument oDoc = ThisApplication.ActiveDocument
Dim oSheetSettings As SheetSettings oSheetSettings = oDoc.SheetSettings
Dim oColor As Color oColor = ThisApplication.TransientObjects.CreateColor(200, 200, 200)
speedyPDM ist das führende technische Dokumenten- und Produktdatenmanagementsystem für Solidworks, Solid Edge, Inventor, AutoCAD, ZWCAD, BricsCAD, Office und Email inklusive Revisionsmanagement.
50cent Mitglied Konstrukteur; CAD Admin
Beiträge: 69 Registriert: 23.10.2008
Inventor Pro. 2017 Vault 2017 pro Win10 64x Quadro K4000