Oftmals steht man vor der Aufgabe, die Längen gewisser Elemente einer Zeichnung in der Summe zu kennen.Hier dazu ein kleines Beispiel in VBA, wie man die Längen aller in dem aktiven Modell vorhandenen Bögen aufaddieren kann:
Sub arcLaengen() Dim sum As Double sum = 0 Dim ee As ElementEnumerator Dim Sc As New ElementScanCriteria Sc.ExcludeAllTypes Sc.IncludeType msdElementTypeArc Set ee = ActiveModelReference.GraphicalElementCache.Scan(Sc) Do While ee.MoveNext sum = sum + ee.Current.AsArcElement.Length Loop If sum = 0 Then MsgBox "Keine Bögen gefunden", vbOKOnly Else MsgBox "Die Gesamtlänge aller Bögen ist: " & sum, vbOKOnly Debug.Print sum End If End Sub
In dem obigen Beispiel werden zunächst alle Bögen des aktiven Modells ausgelesen und anschließend die Längen der einzelnen Bögen gelesen und aufaddiert.Das Resultat wird in einer Dialogbox angezeigt bzw. falls kein Bogen gefunden wurde, wird das angegeben.