---

Guten Morgen zusammen,
ich habe im Forum folgendes Makro gefunden um überschriebene Maße auf einer idw zu finden und zu makieren. Ich würde mir aber wünschen das nur der überschriebene Maßtext / Maßwert unterstrichen dargestellt wird. Wer kann mir mit dieser Makroanpassung helfen? Ich danke schon mal im voraus für alle Hilfestellung.

Public Sub check_dims()
Dim i As Integer
Dim wrong As Integer
Dim dimv As Inventor.DrawingDimension

Dim oDoc As Inventor.DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

  If oDoc.DocumentType <> kDrawingDocumentObject Then Exit Sub
  If oDoc.ActiveSheet.DrawingViews.Count = 0 Then Exit Sub
  wrong = 0
  i = 1
For Each dimv In oDoc.ActiveSheet.DrawingDimensions

'check for manipulatet diminsions
    If oDoc.ActiveSheet.DrawingDimensions.Item(i).ModelValueOverridden = True Then
    wrong = wrong + 1
 
    oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(Maß wurde überschrieben!)</StyleOverride>"
    End If
 
'check for invisible dimensions
    'If oDoc.ActiveSheet.DrawingDimensions.Item(i).HideValue = True Then
    'wrong = wrong + 1
    'oDoc.ActiveSheet.DrawingDimensions.Item(i).Text.FormattedText = "<DimensionValue/> <StyleOverride Bold='True' Underline='True'>(Maß wurde ausgeblendet!)</StyleOverride>"
    'End If

    i = i + 1
Next
If wrong > 0 Then
MsgBox "Manipullierte Bemaßung  !!! BITTE PRÜFEN !!!", vbCritical
End If

'If wrong < 1 Then
'MsgBox "Es wurde(n) keine manipullierte(n) Bemaßung(en) gefunden", vbCritical
'End If

End Sub

------------------
MFG

BlueJay

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

---

Hallo,

ich arbeite selber nicht mit Inventor, sondern schreibe für Kollegen kleine Hilfsprogramme in VBA. Darum weiß ich nicht wie das ohne VBA zu machen wäre.
Kannst du daher eine kurze Schritt für Schritt Anleitung beschreiben wie du das manuell, also nicht mit VBA, machen würdest?

Grüße Helmut

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

---

Guten Morgen und vielen Dank für die Rückmeldung
Folgende vorgehesweise würde ich manuell durchführen:

1. Überschriebenes Maß Suchen oder ausgeblendetes Maß Suchen
2. Doppelklick auf Maß
3. Text Formatieren
4. Selektion des Maßtextes
5. Anpassung des Textformates (Untertrichen, Farbe etc)
6. Schließen des Formatfenster mit Ok

Die Schritte sind eigentlich schon im oben angegebenen Makro abgebildet - nur die Formateinstellung stimmt noch nicht!

Gruss

------------------
MFG

BlueJay

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

---

Hallo,

danke für die Beschreibung.
Hab es mal so probiert wie du beschrieben hast.
Ändern der Farbe geht, aber Umstellen auf 'Fett', 'Kursiv', 'Unterstrichen', 'Durchgestrichen' wird bei mir nicht übernommen.
Wenn ich einen Text dazu schreibe, so wie es das Makro macht, wird dort die Formatierung übernommen, nicht aber beim Maßtext.
Als Maßtext verstehe ich folgende Platzhaltersymbole: <<>>
Hoffe das ist richtig so.

Die Hilfe von 'Text formatieren' sagt dazu folgendes:
"Anmerkung: Das vorgegebene Format des Bemaßungstexts wird durch die Stileinstellungen der aktiven Norm bestimmt."

Sorry, dass ich nicht weiterhelfen kann.
Grüße
Helmut

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