Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Fenster Benutzerdefinierte iProps aufrufen

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:  Fenster Benutzerdefinierte iProps aufrufen (574 mal gelesen)
M.Niederhofer
Mitglied
Konstrukteur Maschinenbau


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

Beiträge: 89
Registriert: 04.02.2011

Inventor 2011
Inventor 2013
<P>i7 3.07GHz
12GB RAM
Win7/64Bit
Quadro FX1800

erstellt am: 22. Jul. 2014 11:05    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 Leute,

ich bin relativ neu in der VBA-Programmierung und hänge jetzt an einer Stelle, an der ich nicht weiterkomme.
Ich hab ein kleines Makro geschrieben, mit dem ich unsere Benutzerdefinierten iProps erstelle und möchte die anschließend auch
gleich bearbeiten. Von einem älteren Makro habe ich folgenden Code übernommen, um das Fenster aufzurufen:

Private Sub RunLineCommand()
    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    Set oControlDef = oCommandMgr.ControlDefinitions.Item("AppiPropertiesWrapperCmd")
    ' Execute the command.
    Call oControlDef.Execute
End Sub


Dabei steht ja das "AppiProbertiesWrapperCmd" für das Fenster..

Meine Frage ist jetzt, gibt es da noch eine Möglichkeit, gleich in den Reiter "Benutzerdefiniert" zu springen,
oder kann ich wirklich nur das iProp-Fenster aufrufen??

Danke schon mal,

Grüße
Markus

------------------
Es gibt keine dummen Fragen;
dumm ist nur, wer keine Fragen stellt...

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

BernoAn
Mitglied



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

Beiträge: 164
Registriert: 16.01.2014

erstellt am: 22. Jul. 2014 11:49    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 M.Niederhofer 10 Unities + Antwort hilfreich

Hi

Ich würde es so lösen

Code:

Private Sub RunLineCommand()
    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager


SendKeys "{RIGHT}{RIGHT}{RIGHT}{RIGHT}"

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    Set oControlDef = oCommandMgr.ControlDefinitions.Item("AppiPropertiesWrapperCmd")
    ' Execute the command.
    Call oControlDef.Execute
End Sub----------------


Gruß
Berno

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

M.Niederhofer
Mitglied
Konstrukteur Maschinenbau


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

Beiträge: 89
Registriert: 04.02.2011

Inventor 2011
Inventor 2013
<P>i7 3.07GHz
12GB RAM
Win7/64Bit
Quadro FX1800

erstellt am: 22. Jul. 2014 12:04    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

PERFEKT!!!! Vielen Dank, es kann so simpel sein, wenn man mal drüber nachdenkt    
Ü´s sind raus!

Grüße
Markus

------------------
Es gibt keine dummen Fragen;
dumm ist nur, wer keine Fragen stellt...

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