Section programmation CatScript, VBA, VB.NET...

Tu veux changer le nom de fichier ou bien changer le nom du produit en haut de l'arborescence ?

La methode exportdata permet d'enregister ton document avec le nom que ut désire


Sub ExportData ( fileName As String, format As String)

Merci Guss de ta réponse
Je crois que j'ai besoin d'utiliser les 2 propositions lol

En fait je voulais changer le nom du fichier (le .CATPart) et le renommer à partir de la valeur de mon paramètre PartNumber.
De meme pour le nom du produit en haut de l'arborescence, je vais tester tout ca

Pour changer le nom de ta part

Code:


Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

partDocument1.Product.Name = PartNumber

Moi j'utilise celle la:

Code:

Language=\"CATSCRIPT\"

Sub CATMain()

Dim partDocument1 As Document

Set partDocument1 = CATIA.ActiveDocument

Dim product1 As Product

Set product1 = partDocument1.Product

i=PartDocument1.Name

k=left (i,(len(i)-8))

Set part1 = partDocument1.Part

Product1.PartNumber =k

End Sub

Pour renommer le nom de ma part Catia, en fonction du nom enregistré dans Windows mais en enlevant l'extension .Catpart

Merci Guss pour ta macro de création de nomenclature

salut guss,

J'ai repris ta macro et je l'ai modifier pour qu'elle m'ouvre un classeur existant plutot que d'en créer un,
histoire de mettre directement un tableau existant.
Le problème c'est que j'ai une erreur a la première ligne du code ci dessous (sans compter le commentaire)
du type: run time error 9: l'indice n'appartient pas a la selection.

Code:


'---- add macro at the end of the sheet module
    With wbks.VBProject.VBComponents(wbk.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With
    nomenclature.ComputeMode = CatTableComputeON
End Sub


[/quote]Je ne comprend pas pourquoi si j'ouvre un fichier existant ca ne marche pas, alors que si j'en créer un ca marche.
les modifications que j'ai fait sont ci dessous:

Code:


'---- initialisation excel
    Dim Excel As Object
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True
    End If
    On Error GoTo 0
    Excel.Visible = True
        ' Test to see if the file is open.
If IsFileOpen("C:\Users\cylefebvre\appliplac\DIABLO7\Appliplac9.xls") Then
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets("Faisceau")
Else
     Set wbExcel = Excel.workbooks.Open("C:\Users\cylefebvre\appliplac\DIABLO7\Appliplac9.xls")
     Set wbks = Excel.ActiveWorkbook
    Set wbk = Worksheets("Faisceau")
End If
'------- passage catia -> excel


Merci d'avance de votre aide

Bonjour,

J'ai lu le code de Guss pour créer un tableau (merci d'ailleurs!). Je m'intéresse ici uniquement à la partie création d'un tableau dans Catia sur les planches à dessin.
Je me demandais s'il était possible de créer un tableau non pas en utilisant les coordonnées de l'endroit où l'on veut le placer mais en attendant que l'utilisateur clique à un endroit avec la souris pour le placer à l'endroit cliqué ( comme si on créé le tableau en utilisant Insertion->Annotations->tableau).

Merci !

J'imagine que c'est possible, il faut dans un 1er temps attendre un événement utilisateur (je n'ai plus en tête quelle fonction il me semble qu'il y a des exemple qui ressemble à ce dont tu as besoin dans l'aide)
Ensuite il faut récupérer les coordonnées du curseur pour placer le tableau.

Merci Guss pour ton script. il m’intéresse beaucoup, mais il plante à cette endroit:

Code:


'---- add macro at the end of the sheet module
    With wbks.VBProject.VBComponents(wbk.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With
    nomenclature.ComputeMode = CatTableComputeON
End Sub


je l'ai enregistré en .catvba, est-ce que ça peut venir de là?