---

Hallo

Ich durchlaufe gemäß unten stehendem Code alle Blätter einer Zeichnung und darauf jeweils alle Ansichten. Auf den Erstansichten bekomme ich aber einen Fehler wenn objCurve sich eine Linie greift, die zu einer auf der Ansicht liegenden Skizze gehört.
Wie kann ich das prüfen, um diese Objekte auszufiltern? Komme ich mit oCurve.Parent da ran und was müßte nach Parent kommen?

Code:

---

Dim objSheet As Sheet
  Set objSheet = objDrawDoc.ActiveSheet
  Dim objDrawingView As DrawingView
  Dim objCurve As DrawingCurve

  For Each objDrawingView In objSheet.DrawingViews
    If (objDrawingView.ViewType = kStandardDrawingViewType) Then
    For Each objCurve In objDrawingView.DrawingCurves
.......

---

------------------
MfG
RK

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

---

Na gut, dann führe ich halt Selbstgespräche.

Code:

---

On Error Resume Next
Set objModelGeometry = objCurve.ModelGeometry
If (Err=0) Then
.....

---

Ob das jetzt die hohe Programmierkunst ist ? Funktioniert aber. Skizzenelemente auf Ansichten haben anscheinend keine ModelGeometry.

------------------
MfG
RK

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