---

bzw. Dimension Text ausblenden und einen String (Fake Dimension) einblenden.

Im Prinzip geht es darum per Makro alle Maße ( ca. 100 Stück ) in einem .idw auszuschalten und für jedes eine fortlaufende Nummer einzublenden.
Wie es mit CATIA gehen würde weiss ich.
Wie es in Inventor von Hand geht weiss ich auch.

Leider habe ich überhaupt keine Ahnung welche Umgebungsvariablen man dafür dimensionieren muss und mit welchen Methoden ich auf die einzelnen Objekte zugreifen kann.

Könnte sich jemand vorstellen wie der Rumpf für so ein Macro aussehen könnte?

Dann könnte ich mit einem Drei- oder Fünfzeiler wie folgt automatisieren:
(die Objektzugriffe sind völlig frei erfunden und sollen nur das Prinzip darstellen)

For each Dimension-Objekt in Drawingdocument
    i++
    sText = StrCon(i)
    Dimension.Text.Visibility = False
    Dimension.Remark.Visibility = True
    Dimension.Remark.Text = sText
Next

Wäre super wenn jemand meinem Inventor-Nichtwissen auf die Sprünge helfen könnte.
Danke schonmal im Voraus 

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

---

Hi

Code:

---

Private Sub Bem_ausblenden()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet

Dim oDimension As Object

Dim i As Integer

For Each oDimension In oSheet.DrawingDimensions
    i = i + 1
    oDimension.HideValue = True
    oDimension.Text.FormattedText = CStr(i)
Next

End Sub

---

------------------
MfG
Ralf

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

---

Danke.
Und Problem aus der Welt.

Meinetwegen Thread Closed. 

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