---

Hallo Leute

Ich versuch mit meinem Makro die Eigenschaften eines Parts auszulesen (Teilenummer und Beschreibung) und diese in der Zeichnung als Text auszugeben. Habe hier zwar ein Skript gebastelt welches aber nur funktioniert wenn beide Dateien im Catia geöffnet sind.

Kennt jemand von euch einen weg wie man dies auch mit geschlossenen Dateien machen kann?

Liebe Grüße

PS:

Sub CATMain()

  CATIA.ActiveDocument.Sheets.ActiveSheet.Update
 
  Set DrwDocument= CATIA.ActiveDocument
  Set DrwSheets  = DrwDocument.Sheets
  Set DrwSheet  = DrwSheets.ActiveSheet
  Set DrwView    = DrwSheet.Views.ActiveView

  Hoehe          = DrwSheet.GetPaperHeight
  Breite        = DrwSheet.GetPaperWidth
 
Set windows1 = CATIA.Windows
  Set specsAndGeomWindow1 = windows1.Item("Distanzhuelse.CATPart")
 
  specsAndGeomWindow1.Activate
 
  Set partDocument1 = CATIA.ActiveDocument
  Set product1 = partDocument1.GetItem("Test")
 
  Teilenummer  ="Teilenummer: " + product1.PartNumber
  Beschreibung  ="Beschreibung: "+ product1.DescriptionRef

Set DrawingText = DrwView.Texts.Add(Teilenummer, Breite-100 , 30)
  'DrawingText.SetFontSize 0, 0, 3
 
  Set DrawingText = DrwView.Texts.Add(Beschreibung, Breite-100 , 20)
  'DrawingText.SetFontSize 0, 0, 3

  MsgBox "Makro erfolgreich", VbOkOnly, "Status"

End Sub

[Diese Nachricht wurde von Liebmer am 05. Mai. 2005 editiert.]

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

---

Es gibt im Framework "Application->FileSystem" (also CATIA.FileSystem) ein Paar Befehle, mit denen Du die Datei öffnen, lesen, schreiben und schließen kannst. Ein Paar Beispiele:

Dim data_file As File
Set data_file = CATIA.FileSystem.CreateFile( g_strFileName, True )

If data_file Is Nothing Then
MsgBox "Problem beim öffen der Konfigurationsdatei:-("
Exit Sub
End If

Dim text_stream As TextStream
Set text_stream = data_file.OpenAsTextStream( "ForWriting" )

Dim strText as CATBSTR
Dim i As Integer

strText = "Hallo Babe-das-Schweinchen;-)"

text_stream.Write strText
text_stream.Close

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