Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Referenceview lässt sich nicht nutzen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Referenceview lässt sich nicht nutzen (568 mal gelesen)
Big-Fish
Mitglied



Sehen Sie sich das Profil von Big-Fish an!   Senden Sie eine Private Message an Big-Fish  Schreiben Sie einen Gästebucheintrag für Big-Fish

Beiträge: 13
Registriert: 23.04.2014

erstellt am: 27. Feb. 2018 15:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 27. Feb. 2018 16:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Big-Fish 10 Unities + Antwort hilfreich

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

Big-Fish
Mitglied



Sehen Sie sich das Profil von Big-Fish an!   Senden Sie eine Private Message an Big-Fish  Schreiben Sie einen Gästebucheintrag für Big-Fish

Beiträge: 13
Registriert: 23.04.2014

erstellt am: 28. Feb. 2018 07:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz