Ankündigungen

Ab Dezember werden wir Inhalte aus der Community, die 10 Jahre und älter sind, archivieren. Diese FAQ enthält weitere Informationen.

iLogic Ansteuern einzelner bestimmter Funktionen

christopher.negele
Explorer
Explorer

iLogic Ansteuern einzelner bestimmter Funktionen

christopher.negele
Explorer
Explorer

Guten Abend zusammen!
Es gibt doch bestimmt eine Übersichtsliste zu verschiedenen Funktionsabkürzungen oder so etwas, oder? 
Konkret möchte ich gerne bei einer automatischen Zeichnungserstellung über den Befehl

 

ThisApplication.CommandManager.ControlDefinitions.Item("DrawingRetrieveDimsCmd").Execute

 

die Modellbemaßungen abrufen. Das funktioniert auch super. Was ich jetzt gerne noch hätte, wäre allerdings, dass vorher überprüft wird, dass auch wirklich der linke Tab aktiv geschaltet ist

 

MicrosoftTeams-image.png

 

und nicht der Tab für die 3D-Bemaßungen.

 

MicrosoftTeams-image (1).png

 

Gibt es für solche Fälle eine Liste an Befehlen, mit der ich diese Tabs in Funktionen ansteuern kann? Bzw. wie ist der Wortlaut, um solche Bedingungen abzufragen? Die API Hilfe hat mir da bis jetzt so ziemlich gar nichts gebracht.

 

Liebe Grüße

 

Chris

0 „Gefällt mir“-Angaben
Antworten
Akzeptierte Lösungen (1)
475Aufrufe
2Antworten
Antworten (2)

martin_winkler
Advisor
Advisor
Akzeptierte Lösung

Hi Christopher,

an bei eine Liste aller InventorCommands.

Ich hoffe du findest das gewünschte Kommando.

 

Ausgelesen mit:

Sub Read_ControlDefinitions()
Dim oControlDefinitions As ControlDefinitions
Dim oApp As Application
Dim ControlDef As ControlDefinition
Set oApp = ThisApplication
Set oControlDefinitions = oApp.CommandManager.ControlDefinitions

Dim strFileName, strPath As String
    strPath = "D:\Arbeitsdaten\3DCS GmbH\3DCS - Dokumente\Inventor Forum\"
    strFileName = "Control_Definitions" & ".txt"
    Dim outFilename As String
    outFilename = strPath & strFileName
    Open outFilename For Output As #1 ' Open file for output.
    
 For Each ControlDef In oControlDefinitions
  Print #1, "Internal Name    : " & ControlDef.InternalName
  Print #1, "Description Text : " & ControlDef.DescriptionText
  Print #1, "------------------------------------------------"

  'Debug.Print ControlDef.InternalName
 Next
Close #1 ' Close file.
  
End Sub

Gruß Martin

hazem.adel
Alumni
Alumni

Danke Martin für deine Antwort. 

 

Hi @christopher.negele ,

konnte dir die Hilfestellung von Martin helfen und deine Frage beantworten?

 

Wenn ja, kannst du gerne auf den Button "Lösung akzeptieren" klicken, dann profitieren auch andere Anwender von der Information.

 

Wenn nicht, dann gib uns doch bitte ein Update, damit man weiß, was bei dir nun der Stand der Dinge ist und wie man eventuell noch helfen kann. 🙂

You found a post helpful? Then feel free to give likes to these posts!
Your question got successfully answered? Then just click on the 'Mark as solution' button. 


Hazem Adel
Community Manager

0 „Gefällt mir“-Angaben