albatoriv

Personne ne peut m'aider pour mon problème ?

Bonjour, j'ai fait un script en catscript et je voudrais le passer en catvba (je voudrais ajouter des userform). Le probleme est que j'ai un message d'erreur et je ne sais pas comment resoudre le probleme... Sub CATMain() MsgBox "Cette macro permet de créer des DWG de tous les CATdrawing qui se trouvent" & vbLf & _ "dans un repertoire." & vbLf & vbLf & _ "ATTENTION : Il faut UNIQUEMENT les fichiers CATdrawing dans le repertoire.", vbOKOnly + vbInformation, " Informations " CATIA.DisplayFileAlerts = False dossierentree = InputBox("Dossier où se trouvent les CATDrawing...", "Dossier d'entrée...", "C:\temp\") 'ajout un slash a la fin s'il est manquant If Right(dossierentree, 1) <> "\" Then dossierentree = dossierentree & "\" 'dossiersortie = InputBox ("Dossier où vont se mettre les PDF...","Dossier de sortie...",dossierentree,2000,4000) dossiersortie = dossierentree Dim fs, f, fichier, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(dossierentree) Set fc = f.Files For Each fichier In fc Dim PartDocument1 As Document Set documents1 = CATIA.Documents Dim document1 As Document Dim entree As Long entree = dossierentree & fichier.Name Set PartDocument1 = CATIA.Documents.Open(entree) SORTIE = dossiersortie & fichier.Name & ".dwg" PartDocument1.ExportData SORTIE, "dwg" CATIA.ActiveDocument.Close Next CATIA.DisplayFileAlerts = True End Sub [Edité le 5/12/2008 par albatoriv]

Merci pour ta reponse... Tu pourrais quand meme mettre ton script pour la detection de la release du fichier...

Bonjour à tous, Dans ma société, j'utilise la R16 et la R18. Sur la R18, les epaisseurs de traits sont bien gérés (contours en gras, pointillés plus fin...) par contre sur la R16, tous les traits sont de même épaisseur. Comment remedier à cela ? Merci d'avance

Bonjour à tous, je voudrais créer un script pour renommer les instances d'un catproduct en fonction des noms de fichier. test1.catpart --> dans l'arbre test1 (test1.1) test1.catpart --> dans l'arbre test1 (test1.2) test3.catpart --> dans l'arbre test3 (test3.1) J'ai essayé de modifier ce script mais je bloque... Sub CATMain() Dim oTopProductDoc As ProductDocument Dim oTopProduct As Product Dim ItemToRename As Product Dim ItemToRenamePartNumber As String Dim oDict1 'Dictionary Object Dim lNumberOfItems As Long Dim i As Integer Set oTopProductDoc = CATIA.ActiveDocument Set oTopProduct = oTopProductDoc.Product Set oDict1 = CreateObject("Scripting.Dictionary") oTopProduct.partnumber = Replace(oTopProductDoc.name,".CATProduct","") lNumberOfItems = oTopProduct.Products.Count For i = 1 to lNumberOfItems Set ItemToRename = oTopProduct.Products.Item(i) ItemToRenamePartNumber = ItemToRename.PartNumber 'Regarde si la part existe plusieurs fois dans le product, si existe incremente le suffixe de 1 If oDict1.Exists(ItemToRenamePartNumber) Then oDict1.Item(ItemToRenamePartNumber) = oDict1.Item(ItemToRenamePartNumber)+1 Else oDict1.Add (ItemToRenamePartNumber) ,"1" End If 'renomMe le noms d'instance comme ceci : non de la part + "." + suffixe ItemToRename.Name = ItemToRenamePartNumber & "." & oDict1.Item(ItemToRenamePartNumber) Next Set oDict1 = Nothing End Sub

Bonjour à tous, je voudrais savoir s'il est possible de créer un script qui affiche un message d'alerte quand un fichier R16 sur une version supérieur. Je travaille dans une société ou suivant les clients, il faut travailler en R16 ou R18, et parfois certain ouvre et enregistre des fichier R16 natif avec la R18, du coup plus possible de les ouvrir en R16. Merci d'avance

Je suis très interressé par ton batch... j'ai déjà essayé de rcéer une macro pour faire ca, mais impossible de créer un pdf uniquement de la feuille n°1 et en plus mon script ouvre chaque fichier, creer le pdf puis ferme le fichier donc c'est assez long... Maintenant, comment installer ton batch en imprimante ?