Hallo zusammen,
ich habe bei Inventor einen Fehler vorliegen, den ich beliebig oft reproduzieren kann.
Ich hab das folgende Makro erstellt, welches mit der „Pick“-Funktion arbeitet:
------------------------
Public Sub SetDiameter()
' MB-Ing. 2014.03.18
' Beenden der Funktion, wenn kein Dokument geöffnet ist
If ThisApplication.Documents.Count = 0 Then Exit Sub
' Beenden der Funktion, wenn das Dokument keine Zeichnung (*.idw) ist
If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub
' Aktiviert das geöffnete Dokument
Dim oIdw As DrawingDocument
Set oIdw = ThisApplication.ActiveEditDocument
' Auswahl der gewünschten Bemaßungen
Dim oDim As LinearGeneralDimension
Set oDim = ThisApplication.CommandManager.Pick(kDrawingDimensionFilter, "Bemaßung auswählen")
If oDim Is Nothing Then Exit Sub
On Error Resume Next
' Hinzufügen des Durchmesserzeichens vor den Bemaßungswert
oDim.Text.FormattedText = "<StyleOverride Font='AIGDT'>n</StyleOverride><DimensionValue/>"
oIdw.Update
End Sub
------------------------
Rufe ich das Makro über das Tastenkürzel auf und beende die Funktion während der Auswahl der Bemaßung mit ESC stürzt Inventor IMMER ab.
Wird das Makro über die Schaltfläche/ Button gestartet, kann ich die Funktion während der Bemaßungsauswahl mit ESC abbrechen, ohne eine Fehlfunktion der DIVA.
Woran könnte das liegen?
Ist es nicht egal, ob ich das Makro mit Tastenkürzel oder per Button aufrufe?
Vielen herzlichen Dank im Voraus für Eure Bemühungen.
Grüße
MB-Ing.
------------------
Wissen ist Macht. Nichts wissen macht auch nichts
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP