Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  benannte View im Drawing erzeugen?

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
  
CATIA V5 Grundkurs | Einsteiger - 5 Std. 15 Min 48
  
Erfolgreich unterwegs mit der KISTERS 3DViewStation, ein Whitepaper
Autor Thema:  benannte View im Drawing erzeugen? (463 mal gelesen)
CT_Thomas
Mitglied
CAD Beauftragter


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

Beiträge: 152
Registriert: 20.03.2002

Catia V5 ab R12SP3, HP xw4... - WXP, RS6000 P285-AIX5.3, V4.2.4

erstellt am: 08. Okt. 2004 15:07    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 zusammen,

ich bin gerade dabei ein kleines CATScript auf AIX zu schreiben, und komme nicht weiter.

Wie kann ich in einem geladenen *.CATDrawing per Script eine benannte View erzeugen.

Mein Sript funktioniert zwar, aber die View hat keinen Namen.
Bsp. ich möchte eine View "NOTES"

Hier mein bisheriges Script:

Zitat:
Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("Automatic Naming")

Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000

drawingView1.x = 420.000000

drawingView1.y = 297.000000

Dim double1 As Double
double1 = drawingSheet1.Scale

drawingView1.Scale = 1.000000

drawingView1.Activate

End Sub



Mit der Doku aus V5Automatisation.chm komme ich nicht zurecht, wer kann mit da helfen?
Doku:
SetViewName( CATBSTR  iViewNamePrefix,  CATBSTR  iViewNameIdent,  CATBSTR  iViewNameSuffix)

------------------
Gruss CT_Thomas

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)2024 CAD.de | Impressum | Datenschutz