Mit Unterstützung durch:
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen >
Beiträge: 22Registriert: 26.08.2004
Danke + GrußOlaf
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Beiträge: 272Registriert: 07.08.2001
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
Beiträge: 3497Registriert: 01.08.2002
Alienware m17x, Win7, Inventor2012
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.ApplyEnd Sub
------------------Grüße daywa1k3r
FX64 Software SolutionsMold&More Software Solutions
Anzeige.:X
Anzeige: (Infos zum Werbeplatz >>)
|
(c)2025 CAD.de | Impressum | Datenschutz