Sachdaten können durch Vorgaben Werte enthalten, die in einer Zeichnung nicht angezeigt werden sollen, oder es sollen generell alle Sachdaten bestimmter Zellen ausgeblendet werden.
Ich möchte hier ein Beispiel aufzeigen, bei dem einfach alle Sachdaten ausgeblendet werden, die an den vorher gewählten Zellen (oder Pseudozellen) angehängt sind.Das Beispiel untersucht nur die vorher gewählten Zellen oder Pseudozellen über die Methode .GetSelected und schaltet die Sachdaten aus ( .IsHidden = True).Die Anzahl der ausgeschalteten Sachdaten wird mitgezählt und am Ende in der Nachrichtenzentrale angezeigt.Falls nichts gewählt wurde, erscheint eine entsprechende Meldung.
Sub TagsSelOff() Dim Ee As ElementEnumerator Dim gefunden As Boolean Dim otags() As TagElement Dim zaehler As Long zaehler = 0 Set Ee = ActiveModelReference.GetSelectedElements Do While Ee.MoveNext gefunden = True If Ee.Current.IsCellElement Or Ee.Current.IsSharedCellElement Then If Ee.Current.HasAnyTags Then otags = Ee.Current.GetTags For i = LBound(otags) To UBound(otags) If otags(i).IsHidden = False Then zaehler = zaehler + 1 otags(i).IsHidden = True otags(i).Rewrite End If Next End If End If Loop If Not gefunden Then MessageCenter.AddMessage "Keine Elemente gewählt", , msdMessageCenterPriorityError Else MessageCenter.AddMessage "Es wurden " + str(zaehler) + " Sachdaten ausgeschaltet", , msdMessageCenterPriorityInfo End If End Sub
Daten in einer Zeichnung mit VBA suchen und auswerten, Teil 10 – Sachdaten auslesen