---

Liebe CAD.de-Gemeinde!

Per Macrorekorder habe ich Makro3.CATScript Script erhalten.
Wie kann man die Angaben CATPRT-000043 und  CATDRW-000004 Texten für das Schriftfeld in einem allgemeinen Macro zuordnen? Eigentlich wollte ich damit mein Schriftfeldmacro ergänzen, um mir Handarbeit zu sparen.

Mit unten stehendem Beispiel dert Catia-Hilfe  DocFullName = Doc.FullName  gab nur  eine 0 zurück.
Kann das an Smarteam liegen?
o Property FullName( ) As CATBSTR (Read Only)

Returns the document's full file name, including its path.
Example:
This example retrieves in DocFullName the Doc document's full file name.
DocFullName = Doc.FullName

The returned value is like this:
e:\users\psr\Parts\MyNicePart.CATPart

Makro3.CATScript

Language="VBSCRIPT"

Sub CATMain()

Dim windows1 As Windows
Set windows1 = CATIA.Windows

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = windows1.Item("W-911  Werkzeugfuß Werkzeugfuß CATPRT-000043  (Lesezugriff) ")

specsAndGeomWindow1.Activate

Dim specsAndGeomWindow2 As Window
Set specsAndGeomWindow2 = windows1.Item("W-911  Werkzeugfuß Werkzeugfuß 5 CATDRW-000004 a.0")

specsAndGeomWindow2.Activate

End Sub

Mit freundlichem Gruß Pietzonka

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

---

Servus
Bei dir ist Doc keinem Objekt/Dokument zugeordnet.
IMHO fehlt:

Code:

---

Prüfung ob Dokument geöffnet (siehe Suche)
Prüfung ob Zeichnung geöffnet (siehe Suche)

Set Doc = CATIA.ActiveDocument

---

Schau dir mal den TitelBlock-Editor an (im CATIA Installationsverzeichnis), dort werden auch verschieden Parameter im Rahmen eingetragen.

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 25. Mrz. 2010 editiert.]

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

---

Hallo Bernd!

Auf Deinen Hinweis fand ich den Namen der Zeichnung (DrawDokumentName), CATPRT-000043, den ich dann in den Zeichnungsrahmen bringen konnte.
Das erreichte ich so:
  Dim DrawDokument As Document
Set DrawDokument = CATIA.ActiveDocument
DrawDokumentName = DrawDokument.Name
.

Leider geht das nicht mit dem Namen des Parts / des Produkts, auf das sich die Vorderansicht bezieht. Hier versuchte ich analog zu:

Dim Bezugselement As ProductDocument
Set Bezugselement = DrwSheet.Views.Item("Vorderansicht").GenerativeBehavior.Document
Dim ProductAnalysis As Analyze
Set ProductAnalysis = Bezugselement.Analyze
PartNummer = CStr(Bezugselement.Partnumber)
NomenKlatur = CStr(Bezugselement.Nomenclature)
Definition = CStr(Bezugselement.Definition)

vorzugehen.
Doch

PartDokumentName = Bezugselement.Name

funktionierte bei mir nicht.

Danke für Deine bisherige Hilfe, denn damit bin ich schon viel weiter gekommen!

Stephan

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