Farbe des Zeichnungshintergrunds ändern (Autodesk/Inventor VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Farbe des Zeichnungshintergrunds ändern (4000 mal gelesen)
nightmare40 Mitglied Dipl.- Ing. (FH) Verfahrenstechnik Beiträge: 21 Registriert: 02.01.2010 DELL Precision Workstation T5500 WinXP Pro 64bit RAM: 8GB ATI FirePro V8700 mit 1GB Grafikspeicher Autodesk Inventor Suite 2011	erstellt am: 19. Jan. 2010 07:55 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen. Bin noch eher ungeübt in der Inventor VBA Programmierung und habe jetzt das Problem, dass ich von einer Zeichnung ein "tif" erstellen soll. Das ist im Grunde auch kein Problem, ich kann die Datei erzeugen, jedoch ist der Hintergrund des tifs dann auch in dieser Eierschalenfarbe wie im Inventor. Das macht die Datei nur unnötig groß und sieht nicht so ansprechend aus. Aus dem Inventor 2008 war das alles kein Problem und da hatten die tifs alle einen weißen Hintergrung. Mit dem Inventor 2010 klappt das irgendwie nicht mehr so richtig. Selbst die Dateiendung hat sich ja hier auch zu "tiff" geändert. Über die Programmierungshilfe und die VBA Hilfe bin ich nun schon soweit schlau geworden, dass ich über "SheetSettings.SheetColor" wohl an diese Eigenschaft herankomme. Jedoch bekomme ich immer die gleich Zahlenfolge als Ergebnis zurück, auch wenn ich den Hintergrund manuell auf grün geändert habe. Mein Versuch mit SetColor() oder GetColor() schlug leider auch fehl. Da ich über die Suche hier im Forum nichts gefunden habe probier ich es mal so und hoffe Ihr könnt mir helfen. Vielen Dank im Voraus!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
seky1900 Mitglied Beiträge: 47 Registriert: 10.11.2003 Inventor 2010 Simulation AutoCAD Mechanical 2010 PSP 2010 pro XP Professional 2002 (SP2) Pentium 4 (3,6GHz), 3GB RAM NVIDIA Quadro FX 1400	erstellt am: 20. Jan. 2010 13:52 <-- editieren / zitieren --> Unities abgeben: Nur für nightmare40 Hallo, vergiss setcolor und getcolor (gehen wohl nicht / analog zu diesem Thema hier: http://ww3.cad.de/foren/ubb/Forum258/HTML/000895.shtml ) Folgendes funktioniert: Sub blattfarbe() Dim odoc As DrawingDocument Set odoc = ThisApplication.ActiveDocument odoc.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(255, 0, 255) End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
nightmare40 Mitglied Dipl.- Ing. (FH) Verfahrenstechnik Beiträge: 21 Registriert: 02.01.2010 DELL Precision Workstation T5500 WinXP Pro 64bit RAM: 8GB ATI FirePro V8700 mit 1GB Grafikspeicher Autodesk Inventor Suite 2011	erstellt am: 21. Jan. 2010 07:44 <-- editieren / zitieren --> Unities abgeben: Hallo seky, vielen Dank...klappt super Sorry für meine späte Antwort, konnte es gestern leider nicht mehr probieren. Aber habs eben gerade übernommen und läuft wie geschmiert. Nur die Farbe war nicht ganz mein Geschmack Habs jetzt aber so wie es sein soll. Vielen Dank noch einmal...dafür gibts nen dicken Daumen nach oben Schönen Tag noch Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)