Anischt (Schatten & Orthogonal) mittels VBA für Bauteil einstellen? (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: Anischt (Schatten & Orthogonal) mittels VBA für Bauteil einstellen? (1032 mal gelesen)
0laf Mitglied Beiträge: 22 Registriert: 26.08.2004	erstellt am: 18. Mai. 2005 13:41 <-- editieren / zitieren --> Unities abgeben: Wie es die Überschrift schon fragt ... Anischt (Schatten & Orthogonal) mittels VBA für Bauteil einstellen? Kennt jemand dort eine Lösung für VBA in Inventor 7? Danke + Gruß Olaf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
waldi Mitglied Softwerker Beiträge: 272 Registriert: 07.08.2001	erstellt am: 18. Mai. 2005 17:52 <-- editieren / zitieren --> Unities abgeben: Nur für 0laf Schau in der Doku mal beim Objekt View, da solltest du alles finden. Die orthogonale Ansicht bekommst du dann über das Camera Objekt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
0laf Mitglied Beiträge: 22 Registriert: 26.08.2004	erstellt am: 19. Mai. 2005 09:11 <-- editieren / zitieren --> Unities abgeben: Hallo waldi, habe mich nun 4 Std. mit der Doku und API beschäftigt, getestet und getestet. Leider ohne grossen Erfolg? Hast Du evtl. nen Codeschnipsel oder nen Tip?` Hier mal mein Code. Code: Dim oView As View Set oView = ThisApplication.ActiveView oView.Camera.Perspective = True oView.DisplayMode = kShadedRendering oView.Camera.Apply oView.Update Danke + Gruß Olaf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
waldi Mitglied Softwerker Beiträge: 272 Registriert: 07.08.2001	erstellt am: 19. Mai. 2005 11:36 <-- editieren / zitieren --> Unities abgeben: Nur für 0laf Hol dir mal das Views Objekt des aktiven Dokumentes, da dann den ersten View, der Rest sieht eigentlich gut aus. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
0laf Mitglied Beiträge: 22 Registriert: 26.08.2004	erstellt am: 23. Mai. 2005 10:48 <-- editieren / zitieren --> Unities abgeben: Das Ergebnis bleibt aber leider das Gleiche :-(. Es tut sich nix .... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
waldi Mitglied Softwerker Beiträge: 272 Registriert: 07.08.2001	erstellt am: 24. Mai. 2005 07:59 <-- editieren / zitieren --> Unities abgeben: Nur für 0laf Hmm, habe gerade keinen Inventor laufen, hast du mal einen update auf das Dokument versucht? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
daywa1k3r Moderator Softwareentwickler Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012	erstellt am: 25. Mai. 2005 19:49 <-- editieren / zitieren --> Unities abgeben: Nur für 0laf Code: Sub test1_rtfm() Dim oView As View Set oView = ThisApplication.ActiveView Dim oCamera As Camera Set oCamera = oView.Camera oView.DisplayMode = kWireframeRendering oView.Update oCamera.Perspective = True oCamera.Apply End Sub ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)