---

Hi

ich habe ein macro welches bei der gerade geöffneten zeichnung ein parr property einträge ausfüllt diese dann speichert und schliest. funktioniert soweit auch einwandfrei, allerdings hätte ich gerne das er dann mit den anderen geöffneten zeichnungen weiter macht. ich also nicht bei jeder zeichnung einzeln das macro starten muss.

hier mal der code

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set parameters1 = drawingDocument1.Parameters

Set strParam1 = parameters1.Item("Drawing\DESCRIPTION_01")

strParam1.Value =Replace(Left(CATIA.ActiveDocument.Name,InStr(CATIA.ActiveDocument.Name,"-")-1), "_", " ")

Set parameters2 = drawingDocument1.Parameters

Set strParam2 = parameters2.Item("Drawing\DESCRIPTION_02")

strParam2.Value = "test1"

Set parameters3 = drawingDocument1.Parameters

Set strParam3 = parameters3.Item("Drawing\DESCRIPTION_03")

strParam3.Value = ""

Set parameters4 = drawingDocument1.Parameters

Set strParam4 = parameters4.Item("DrawingName")

strParam4.Value = CATIA.ActiveDocument.Name

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.Save

Set specsAndGeomWindow1 = CATIA.ActiveWindow

specsAndGeomWindow1.Close

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.Close

End Sub

---

wäre nett wenn mir jemand sagen könnte wie ich es schaffe das das macro nach dem schließen der 1. zeichnung auf der nächsten weiter macht.

danke schonmal

dero

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

---

Servus
Du könntest eine Schleife über alle Dokumente laufen lassen (for I = 1 to oDocuments.Count). Für jedes Dokument dann Dokumententyp prüfen (TypeNme(oDocument)), falls es ich um eine Zeichnung handelt den Rest des Makro ausführen.
Vorsicht, du greift über den Namen auf den Parameter zu ("Drawing\DESCRIPTION_02") das kann Probleme machen falls das Dokument einen anderen Namen hat

Gruß
Bernd

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

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

---

hi

danke für die schneller antwort.

leider bin ich nicht so bewandert was das programmieren angeht und weis daher nicht wie ich die schleife einbaue. hast du da villeicht ein beispiel  ?

und wie meinst du das mit dem namen ? bis jetzt hat das macro immer funktioniert

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

---

Hallo,

das folgende müsste deinen Wünschen entsprechen (nicht getestet).

Sub CATMain()

For Each oDoc in CATIA.Documents

    If TypeName(oDoc) = "DrawingDocument" then

        Set drawingDocument1 = oDoc

        Set parameters1 = drawingDocument1.Parameters

        Set strParam1 = parameters1.Item("Drawing\DESCRIPTION_01")

        strParam1.Value =Replace(Left(oDoc.Name,InStr(oDoc.Name,"-")-1), "_", " ")

        Set parameters2 = drawingDocument1.Parameters

        Set strParam2 = parameters2.Item("Drawing\DESCRIPTION_02")

        strParam2.Value = "test1"

        Set parameters3 = drawingDocument1.Parameters

        Set strParam3 = parameters3.Item("Drawing\DESCRIPTION_03")

        strParam3.Value = ""

        Set parameters4 = drawingDocument1.Parameters

        Set strParam4 = parameters4.Item("DrawingName")

        strParam4.Value = oDoc.Name

        drawingDocument1.Save

        drawingDocument1.Close

    End if
Next

End Sub

Gruß
Randle

------------------
MfG
Randle

! It's not a bug, it's a feature !

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