---

Servus CAD.DE Gemeinde,
Haben Catia V5 R17 in Verwendung. Bin gerade dabei ein Makro zur übernahme von Parametern aus dem SMARTEAM zu schreiben. Dabei bin ich auf folgendes Problem gestoßen: die Parameter werden nur im Schriftkopf des ersten Blattes übernommen -> wie bekomm ich sie auf die restliche Blätter?
Bitte um Hilfe. 

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

---

Servus
Wie werden die Werte aus SmarTeam übernommne?
Werde diese direkt in das Textfeld geschrieben -> Makro muss in jedem Blatt die Werte ins Textfeld schreiben
Übergabe über Parameter in der Zeichung? ist auf dem 2. Blatt auch eine Attributverknüfgung des textfeldes zum Parameter?

Gruß
Bernd

PS: Willkommen im Forum

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

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

---

Morgen,
die Werte werden übers "integration toll setup" aus dem Smarteam ausgelesen.
Texte werden übers Makro in die Textfelder geschrieben, keine Attributverknüpfung.
mfg

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

---

Servus
Also muss dein Makro angepasst werden, dass über eine Schleife jedes Blatt angesprochen wird und die Textfelder entsprechend gefüllt werden.

Gruß
Bernd

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

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

---

Gibt es keinen Befehl mit dem man quasi alle Blätter Aktiv schaltet, und so die Parameter übernimmt. 

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

---

Hallo,

nein einen solchen Befehl gibt es nicht. Du hast zwei Möglichkeiten die Daten aus dem Array? (bzw. Variablen) an die Textfelder auf den Zeichnungsblättern weiterzugeben:

1. Mit einer Schleifen wie es Bernd schon angesprochen hat. Schau dir mal folgenden Codeschnipsel an:

Code:

---

Dim oDoc as Document
Dim oSheets as DrawingSheets
Dim oSheet as DrawingSheet
Dim oBackView as DrawingView
Dim oTexts as DrawingTexts
Dim oText as DrawingText
Dim oTextNames(1) as String
Dim Counter as Integer

Counter = 0
'Hier werden die Textfeldnamen die nachher angesprochen werden definiert
oTextNames(0) = "Beschreibung"
oTextNames(1) = "Revision"

Set oDoc = CATIA.ActiveDocument
'Sheet-Kollektion ansprechen
Set oSheets = oDoc.Sheets
'Sheet holen
For each oSheet in oSheets.Count

'Abfarge DeatilSheet?
If oSheet.IsDeatil = false
  'Backgroundview des Blattes holen
  Set oBackView = oSheet.Views.Item(2)
  Set oTexts = oBackView.Texts
  Set oText = oTexts.GetItem(oTextNames(Counter))
  oText.Text = Variable_fur_Beschreibung
  Counter = Counter+1
End If
Next

---

2. Über eine Selection.Search mit den entsprechenden Einstellungen
Hier kannst du angeben was du suchst (Texte) und wo du sie suchst (im ganzen Dokument also auf allen Blätter in jeder BackgroundView)
Das ganze dann in einer Schleife machen (die Schleifen sucht immer nach anderen Textfeldnamen) und anschließend die Items der Selektion auswerten und der Text-Methode die entsprechende Varaiable zuweisen

ANMERKUNGEN:

1. Bau dir Templates auf, so das du sicher bist, das die Textfelder in deiner Backgroundview auch den entsprechenden Namen haben

2. Der Quelltext ist nicht getestet

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Vielen Dank, ich probiers mal aus!

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