---

Hallo,

ich würde gerne innerhalb eines Dialoges, den ich über vba geöffnet habe, mit sendKeys navigieren.

Public Sub showDim()
    Dim contrBox As ControlDefinition
    Set contrBox = ThisApplication.CommandManager.ControlDefinitions.Item("AppDimensionSettingsCtxCmd")
    Call contrBox.Execute
    SendKeys "{TAB 1}"
End Sub

Gibt es eine Methode in der ich das aktivieren kann.

Danke.

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

---

Hallo 

Kurz gesagt: Nein.
Lange Antwort: Mit VBA nicht möglich, bzw nur über Umwege möglich, da VBA stoppt solange Control("AppDimensionSettingsCtxCmd") ausgeführt wird. Mit SendKeys zu arbeiten ist Allgemein keine sonderlich gute Idee und sollte wirklich nur in Ausnahmefällen benutzt werden.

Ist aber auch nicht nötig, die Bemaßungseigenschaften von Skizzenbemaßungen sind auch so zugänglich, dazu braucht man nicht den Befehl aufrufen.
Über ComponentDefinition-Sketch-DimConstraints-Parameter-Tolerance kommst auch so zu deinen Einstellungen und kannst ohne Risiko (der User tippt auf der Tastatur rum während du SendKeys benutzt) deine Einstellungen vornehmen.

Wie du in dem Objekt navigierst kannst du recht gut erkennen indem du eine Dimension markierst und mit unten stehendem Code bis End Sub läufst (per F8 oder Haltepunkt) (nicht beenden) im oselect findest du dann die markierte Dimension und kannst es untersuchen (locals Fenster muss aktiviert sein).
Ansonsten findest in der API-Hilfe noch das komplette DimensionConstraint Object und sollte das auch nicht weiter helfen, kannst gerne nochmal fragen

Code:

---

Private Sub test_select()

Dim oapp As Application
Dim odoc As Inventor.Document
Dim oselect As SelectSet

Set oapp = ThisApplication
Set odoc = oapp.ActiveDocument
Set oselect = odoc.SelectSet

End Sub

---

Gruß Tacker

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