---

Hallo erstmal!
ich habe über ein Makro ein Drawing erzeugt mit verschiedenen Ansichten! Nun muss ich auf Grund von der Liniendichte nachträglich den Typ und die Stärke der Linie verändern. Ich habe hier zwar schon einige Posts gelesen, aber mit den kam ich nicht auf die richtige Fährte.
Ich habe nachträglich eine Ansicht angewählt und wollte wie schon an anderer Stelle erwähnt über GEOMETRICELEMENTS auf die Linien zugreifen. Allerdings werden bei den GeometricElements keine Linien aufgeführt.
Ich würde mich freuen, wenn mir jemand bei meinem Problem weiterhelfen kann.
Gruß TheCW

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

---

Hallo TheCW,

eigentlich sollten dort alle Linien einer aktiven View aufgezählt werden. Kann es sein, das du kein View aktiviert hast sondern ein Blatt?
Um alle Linen sauber umzustellen braucht du 2 Schleifen:

Schleife 1: Alle Blätter durchlaufen
Schleife 2: Alle Views auf den Blättern durchlaufen

Hier mal ein Auschnitt eines Makro das die GeoElements aus Views löscht. Die Views dürfen dabei nicht auf Detail-Blättern liegen, da diese nicht beachtet werden.

Code:

---

Set oDRWDoc = CATIA.ActiveDocument
Dim oSel As Selection
Set oSel = oDRWDoc.Selection
oSel.Clear

  For i = 1 To oDRWDoc.Sheets.Count
  Set oSheet = oDRWDoc.Sheets.Item(i)
  If oSheet.IsDetail = False Then
    For j = 3 To oSheet.Views.Count
    Set oView = oSheet.Views.Item(j)
        If oView.LockStatus = False Then
        DelAnzahl = oView.GeometricElements.Count
        For h = DelAnzahl To 2 Step -1
        Set geoEl = oView.GeometricElements.Item(h)
        oSel.Add geoEl
        oSel.Delete
    Next
  End If
  Next

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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