Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  ViewOrientation per VBA

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  ViewOrientation per VBA (1643 mal gelesen)
Pelikan
Mitglied
Dipl. Ing. Masch. Bau.


Sehen Sie sich das Profil von Pelikan an!   Senden Sie eine Private Message an Pelikan  Schreiben Sie einen Gästebucheintrag für Pelikan

Beiträge: 260
Registriert: 30.12.2002

Inv 2013/2014 FDS
Win7 64bit
PSP2011
FX3000m HP 8770w 32GB

erstellt am: 22. Sep. 2005 16:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

ich möchte per VBA die Standard ISO Ansicht einstellen (F6 Taste)
In der Hilfe fand ich :

Dim oView As View
Set oView = ThisApplication.ActiveView
Dim oCamera As Camera
Set oCamera = oView.Camera
oCamera.ViewOrientationType = kIsoTopRightViewOrientation
oCamera.Apply

nur das Problem ist, das die Standard ISO scheinbar nicht dabei ist ??

hat jemand eine Ahnung welche Option die Standard Iso ist ???

Vielen Dank

Gruss der Pelikan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

PaulSchuepbach
Moderator
Programmierer




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 23. Sep. 2005 11:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Pelikan:
... nur das Problem ist, das die Standard ISO scheinbar nicht dabei ist ??

hat jemand eine Ahnung welche Option die Standard Iso ist ???



Hallo Pelikan,

... das ist richtig - Du willst wohl die Ansicht, die unter RMT-Isometrie Ansicht liegt ?

Das geht über Tastaturbefehl:

Public Sub doISOlikeF6()

  Call SendKeys("{F6}")

End Sub

ACHTUNG: das SendKeys-Kommando sendet IMMER an die Applikation, die gerade den Fokus hat. Aus Inventor VBA heisst das, aus Inventor heraus mittels Alt+F8 das Makro-Fenster starten und dieses Makro laufen lassen - ansonsten passiert hier gar nichts....

Grüsse,

Paul

www.morecam.ch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP



Vertriebstechniker Automatisierte Lagerlösungen (m/w/d)

Die Mecalux GmbH in Dormagen ist die deutsche Niederlassung der weltweit tätigen MECALUX Gruppe, mit Hauptsitz in Barcelona (Spanien). Mecalux ist ein weltweit führendes Unternehmen für Lagersysteme mit mehr als 50 Jahren Erfahrung in diesem Bereich.

Unsere Tätigkeit besteht in der Entwicklung, Herstellung, Vermarktung und Erbringung von Dienstleistungen im Zusammenhang mit ...

Anzeige ansehenAutomatisierungstechnik
guru30
Mitglied



Sehen Sie sich das Profil von guru30 an!   Senden Sie eine Private Message an guru30  Schreiben Sie einen Gästebucheintrag für guru30

Beiträge: 56
Registriert: 30.03.2007

erstellt am: 30. Mrz. 2009 10:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pelikan 10 Unities + Antwort hilfreich

Zur Info ohne SendKey

Dim oControlDef As ControlDefinition
Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppIsometricViewCmd")
oControlDef.Execute

Mario

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz