---

Hallo,
dürfen wir z.B ein Array erstellen, wobei die Element von Array der Typ DrawingView sind?
Also ich möchte ein Makro schreiben, es soll abhängig von der Angabe des Checkbox (13 Element) die entsprechende DrawingView selektiert, in Zwischenspeicher gespeichert und dann in einen anderen DrawingDocument eingefügt werden.

Der Code sieht so aus:

Dim oViewSource(13) As DrawingView
Set oSelSource = oDrawingSource.Selection
oSelSource.Clear
For Index = 0 To 12
If A1(Index) = True Then
######### Selektieren den zu kopierenden View, kopieren den Inhalt zu Zwischenspeicher ###########
Set oViewSource(Index) = oSheetSource.Views.Item(A2(Index))
                                                         
oSelSource.Add oViewSource(Index)
End If
Next
oSelSource.Copy

beim Laufen bekomme ich ein Fehlermeldung, mit Debug wird diese Kursiv Zeile gezeigt.

Kann mir jemand helfen? Also kann man nicht ein Array mit CATIA Typ (wie z.B hier DrawingView) erstellen. Gibt es noch andere Möglichkeit, diese Aufgabe zu machen?

Ich bedanke mich für Eure Hilfe.
MfG

[Diese Nachricht wurde von tubuibam am 18. Sep. 2014 editiert.]

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

---

Zitat:

---

Original erstellt von tubuibam:
Hallo,
dürfen wir z.B ein Array erstellen, wobei die Element von Array der Typ DrawingView sind?
Also ich möchte ein Makro schreiben, es soll abhängig von der Angabe des Checkbox (13 Element) die entsprechende DrawingView selektiert, in Zwischenspeicher gespeichert und dann in einen anderen DrawingDocument eingefügt werden.

Der Code sieht so aus:

[b]Dim oViewSource(13) As DrawingView
Set oSelSource = oDrawingSource.Selection
oSelSource.Clear
For Index = 0 To 12
If A1(Index) = True Then
######### Selektieren den zu kopierenden View, kopieren den Inhalt zu Zwischenspeicher ###########
Set oViewSource(Index) = oSheetSource.Views.Item(A2(Index))
                                                         
oSelSource.Add oViewSource(Index)
End If
Next
oSelSource.Copy

'A(1) ist ein array mit 13 element, der nimmt den Wert True oder False
'A(2) ist ein array mit 13 element, Typ String. Der Array behält die Namen aller DrawingView

beim Laufen bekomme ich ein Fehlermeldung, mit Debug wird diese Kursiv Zeile gezeigt.

Kann mir jemand helfen? Also kann man nicht ein Array mit CATIA Typ (wie z.B hier DrawingView) erstellen. Gibt es noch andere Möglichkeit, diese Aufgabe zu machen?

Ich bedanke mich für Eure Hilfe.
MfG

[Diese Nachricht wurde von tubuibam am 18. Sep. 2014 editiert.][/B]

---

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

---

Servus
Für was willst du denn einen Array für die Views verwenden? Was ist sind bei die Arrays(?) A1 und A2?
Du kannst dich einfach die View zur Selektion hinzufügen:

Code:

---

Dim oViewSource As DrawingView
Set oSelSource = oDrawingSource.Selection
oSelSource.Clear
For Index = 0 To 12

  If A1(Index) = True Then 'wäre hier nicht Ubound und LBound als Grenzen besser?
    ######### Selektieren den zu kopierenden View, kopieren den Inhalt zu Zwischenspeicher ###########
    Set oViewSource = SheetSource.Views.Item(A2(Index))                                                       
    oSelSource.Add oViewSource
  End If
Next
oSelSource.Copy

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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