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
Foren auf CAD.de
| 
