---

Hallo Gemeinde,

ich arbeite gerade mit Makro Schnipeln um eine Feldbezeichnung vom Schnitt und von der Referenzansicht auszugeben. Klappt auch alles ganz gut bis auf folgender Schnipsel weder als CATSCRIPT noch als VBS oder VBA.

Er gibt mir einen Fehler aus als wäre local nicht deklariert.

Könnt ihr mir helfen, wie ich an den Namen der Referenceview komme?

Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.Item("A-A")

Dim local As DrawingView
set local = drawingView1.referenceview

msgbox local.name

End Sub

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

---

Servus

Du kannst mal folgendes probieren:
- local als Object deklarieren und per TypeName schauen um was es sich handelt
- prüfen ob local nicht Nothing (also leer) ist

Gruß
Bernd

PS: In meinem Kurztest hat dein Code funktioniert

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

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

---

Hallo bgrittmann,

danke für den Support, da wäre ich mit der V5 Automatisierung und Google nicht drauf gekommen 
Merkwürdig wieso er nicht direkt eine View ausgibt.

Nun Kann ich den Namen als drawing view zu einer selection adden und die Feldnamen über die Ansichtsüberschrift erzeugen.
Hier der funktionierende 1.TeilSchnipsel:

Code:

---

Sub CatMain

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.Item("Schnitt A-A")

Dim local As Object
set local = drawingView1.referenceview

msgbox local.name

set selection1 = CATIA.ActiveDocument.selection

selection1.clear
selection1.add drawingView1
selection1.add drawingViews1.Item(local.name)

End Sub

---

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