[Support] Catia : trucs, astuces, conseils, aide

Recherche :

Mot : Pseudo : Filtrer Aller à la page :
Page : 1 2 3 4 5 .. 228 229 230 .. 233 234 235 236 237 238 Page Suivante Page Précédente Bas de page
Auteur	Sujet : [Support] Catia : trucs, astuces, conseils, aide

Arafat33

Reprise du message précédent :
Bonjour à tous,

Désolé je me permet de vous soumettre encore une questions sur les macros.
Je souhaiterai créer une macro CATScript en lien avec des fichiers XML.

Actuellement nous avons une application qui extrait les caractéristiques de tolérancement d'un Drawing dans un fichier au format xml.
Voilà à peu près comment se compose chaque bloc du fichier (1 bloc par cote).

[...]
<CADAnnotation>
<blabla>xxxx</blabla>
<blabla2>xxxx</blabla2>
...
<Key>false</Key>
...
<ValueString>10 #A#</ValueString>
...
<blablaN>xxxx</blablaN>
</CADAnnotation>
[...]

C'est pas mal, mais je souhaiterai en plus avoir une macro qui :
- Parcours le fichier xml souhaité (chemin indiqué via l'explorateur windows?)
- Check s'il y a le champ #A# dans la ligne "ValueString" contenue dans chaque bloc
- Si c'est le cas, elle positionne la ligne "Key" à true.

Sauriez-vous comment pourrais-je me lancer?
Merci à vous

Message cité 1 fois

Publicité

so_xyz

ptittom a écrit :

Bonjour,

Ci-dessous une proposition (oui, j'avais un peu de temps à perdre):

Code :

Sub CATMain()
Dim cSizes As New Collection
Dim oProd As Product
Set oProd = CATIA.ActiveDocument.Product
TraverseProduct oProd, cSizes
DisplayTotalSize cSizes
End Sub
Sub TraverseProduct(oProd As Product, cSizes As Collection)
Dim I As Integer
Dim cSubProds As Products
Set cSubProds = oProd.Products
cSizes.Add GetSize(oProd)
If cSubProds.Count >= 1 Then
For I = 1 To cSubProds.Count
TraverseProduct cSubProds.Item(I), cSizes
Next
End If
End Sub
Function GetSize(oProd As Product) As Double
Dim RefDoc As Document
Set RefDoc = oProd.ReferenceProduct.Parent
Dim fso As Object 'FileSystemObject
Dim fl As Object 'File
Set fso = CreateObject("scripting.FileSystemObject" ) ' late binding
Set fl = fso.GetFile(RefDoc.Path & "\" & RefDoc.Name)
Dim LocalSize As Double
On Error Resume Next
LocalSize = fl.Size
If Err.Number <> 0 Then
LocalSize = 0
End If
On Error GoTo 0
LocalSize = LocalSize / 1024 'ko
'LocalSize = Round(LocalSize / 1024, 1) 'Mo
GetSize = LocalSize
End Function
Sub DisplayTotalSize(cSizes As Collection)
Dim I As Integer
Dim Total As Double
For I = 1 To cSizes.Count
Total = Total + cSizes.Item(I)
Next
Debug.Print "Size:" & Round(Total, 2)
End Sub

Salut ptittom,

Tout d'abord merci pour ta contribution et désolé mais j'avais un problème de licence CATIA qui ne me permettait pas de tester ta solution.

Ensuite ta solution fonctionne parfaite j'ai rajouté un Msgbox getSize pour être sur et bingo.

Donc merci beaucoup.

Message cité 1 fois

Guss_

Bl@ckbird a écrit :

Bonjour, une petite question comment récupérer le user name de windows dans catia pour renseigner un parametre ?
Merci d'avance.

salut

j'utilise ça pour récupéré le chemin du appdata utilisateur, afin d'enregistrer des config liées à mes macros :

Code :

Dim User_path As String, WshShell, WshSysEnv
Set WshShell = CreateObject("WScript.Shell" )
Set WshSysEnv = WshShell.Environment("PROCESS" )
User_path = WshSysEnv("appdata" )

avec ça tu dois pouvoir en tirer le username je pense

Message édité par Guss_ le 26-02-2015 à 16:50:46

Bl@ckbird

Merci je regarde ça...

Bl@ckbird

Cool j'ai obtenu le chemin du "user " j'imagine quand manipulant la string je dois juste récupérer le "user", merci encore

Message cité 1 fois

alex21turbo

salut tout le monde
j'aurais une ptite question. j'ai un lot de pièces 3d avec la cotation et tolerancement directement sur le 3D.
je n'arrive pas a faire apparaitre de manière automatique sur le 2D toute cette cotation.
c'est possible ou pas?

Message cité 2 fois

Guss_

Bl@ckbird a écrit :

Cool j'ai obtenu le chemin du "user " j'imagine quand manipulant la string je dois juste récupérer le "user", merci encore

Je pense même que en écrivant

User_path = WshSysEnv("user" )

tu dois obtenir le login utilisateur

Bl@ckbird

Ben merci mais le paramètre reste vide :hello:

Guss_

http://vb.developpez.com/faq/vbs?page=Autres

visiblement c'est
USERNAME
qu'il faut écrire

Bl@ckbird

Merci Beaucoup Guss_ ça fonctionne , :pt1cable:

Publicité

jubeat

Mais pousse toi !

alex21turbo a écrit :

Normalement, l'intérêt de faire de la cotation 3D, c'est justement de ne pas faire de 2D...
(pour le gain de temps, principalement)

Sinon, aucune idée si c'est possible, mais j'y crois moyen...

Message cité 2 fois

---------------
War Thunder : Karamazoff

Track39

Bonjour a tous ,
J'ai actuellement un problème avec Catia. Je cherche à modéliser un contact ponctuel entre 2 cylindres d'axe perpendiculaire mais la seule contrainte que je peux mettre entre les 2 cylindres est un contact linéique.
Avez vous une solution ?
Merci

Mr-blonde

alex21turbo a écrit :

une fois tes vues placée dans le drawing, clic droit\propriété de la vue\ afficher les lignes

Cdlt.

Arafat33

jubeat a écrit :

Normalement, l'intérêt de faire de la cotation 3D, c'est justement de ne pas faire de 2D...
(pour le gain de temps, principalement)

Sinon, aucune idée si c'est possible, mais j'y crois moyen...

Pour afficher dans un Draw les annotations FTA, tu peux insérer des "vues issues du 3D" (au lieu d'insérer des "vues de faces" ou autres)
Il faut ensuite sélectionner dans l'arborescence du 3D la vue créée sous FTA et contenant les annotations associées

Message cité 1 fois

Arafat33

jubeat a écrit :

Normalement, l'intérêt de faire de la cotation 3D, c'est justement de ne pas faire de 2D...
(pour le gain de temps, principalement)

Sinon, aucune idée si c'est possible, mais j'y crois moyen...

ptittom

Bl@ckbird a écrit :

Bonjour, une petite question comment récupérer le user name de windows dans catia pour renseigner un parametre ?
Merci d'avance.

Plus simple que la solution précédente:

Code :

CATIA.SystemService.Environ("username" )

Message édité par ptittom le 03-03-2015 à 08:58:00

ptittom

so_xyz a écrit :

Bonjour,

Il y a un bug: les pièces présentes plusieurs fois dans un product sont comptées plusieurs fois...
Il faudrait vérifier si la pièce est déjà présente avant de l'ajouter à la collection.

Content d'avoir pu te rendre service.

ptittom

Arafat33 a écrit :

+1
C'est effectivement la solution officielle pour réutiliser les informations FTA.

Message cité 1 fois

ptittom

Arafat33 a écrit :

Bonjour à tous,

C'est pas mal, mais je souhaiterai en plus avoir une macro qui :
- Parcours le fichier xml souhaité (chemin indiqué via l'explorateur windows?)
- Check s'il y a le champ #A# dans la ligne "ValueString" contenue dans chaque bloc
- Si c'est le cas, elle positionne la ligne "Key" à true.

Sauriez-vous comment pourrais-je me lancer?
Merci à vous

Bonjour,

Je partirais sur la dll "Microsoft XML". Elle offre quelques fonctions pour parcourir un fichier XML.
Ensuite, il faut parcourir ton XML noeud par noeud en vérifiant ce que tu veux. Vu que ce n'est pas spécifique à CATIA, tu peux jeter un oeil aux tuto Excel traitant du sujet: exemple

Pims_UTT

Génoise confiture et chocolat

Amis Catiatistes bonjour,

Je travaille sur un script qui lance le 3DXML player et qui lui fait ouvrir un CGR. Ca marche très bien, mais j'aimerai pouvoir définir le titre de ma fenêtre dans la ligne de commande via mon script. Et c'est là que j'ai un soucis. Ce que j'ai essayé ne fonctionne pas et je ne trouve rien dans la doc.

Est-ce que l'un d'entre vous connaitrait une astuce? Comme c'est une commande à la D.assault, je suppose que ça doit être la même chose que sous Catia.

Pour info, voici un morceau de mon script:

Code :

dim strVisuFullFileName as String
dim strCommandLine as String
strVisuFullFileName = "c:\Nicolas\Mon3D.cgr"
strCommandLine = """C:\Program Files\Dassault Systemes\3D XML Player\win_b64\code\bin\3DXMLPlayer.exe"" """ & strVisuFullFileName & """ -env 3DXMLPlayer -direnv ""C:\Program Files\Dassault Systemes\3D XML Player\win_b64"" -title ""Toto"""
id = shell(strCommandLine, ebNormalFocus)

Merci d'avance

malarox

Bonjour à tous !

Sauriez vous quelle est l'option à cocher pour que les couleurs suivent lorsqu'on fait une opé booléenne d'assemblage ?

(par exemple j'assemble un corps composé juste d'un trou afin de percer ma pièce [dit comme ça cela fait bizarre mais c'est pour faire des vis paramétrées] et je voudrai que le trou qui en résulte est la même couleur que le corps qui contient le trou [afin de pouvoir trier les trous dans un bloc (lisse, taraudé, précis, ect...)])

De plus si vous connaissez un un site ou si vous avez un pdf pour apprendre le paramétrage de fond en comble cela m’intéresse aussi car je n'ai trouvé que des bases et surtout, rien qui n'explique le fonctionnement et le but des résultats technologiques ...

Merci d'avance !

malarox

Re,

quelques petites précision : J'ai trouvé l'option pour garder la couleur des composants assemblés ce qui fait que le trou crée à la couleur que je veux.

Voici la démarche que j'utilise du coup : je crée une goupille par exemple avec le corps de la goupille en corps principal et un corps secondaire nommé fixation qui servira à crée le trou. Mon corps "Fixation" possède donc simplement une fonction Trou. Je publie le corps secondaire et dans un assemblage j'assemble la publication a la pièce que je veux trouer; du coup, le trou est fait et bouge en fonction de la position de la goupille et de sa taille avec une simple mise a jour de l'assemblage.

Si je choisit une couleur pour le corps, les parois du trou auront la couleur du corps ce qui permet de différencier les trous alésés et les trous bruts de foret par exemple avec une couleur pour chaque.

Du coup ma question du message précédent à sa réponse mais je serais ravi de savoir si vous faites la même chose et si vous utilisez la même méthode ! =)

Les informations sur les paramètres, publications, résultats technologiques, ect... m’intéressent toujours cependant =)

Encore merci

so_xyz

Bonjour à tous,

Je voulais savoir si des macro CATIA VBA développées sous CATIA R19 étaient compatible avec du CATIA R22.

On risque de changer nos config d'où ma question, même si j'imagine qu'elles ne seront pas compatibles :sweat:

Merci

Message cité 2 fois

maximedrt

ptittom a écrit :

+1
C'est effectivement la solution officielle pour réutiliser les informations FTA.

Pims_UTT

Génoise confiture et chocolat

so_xyz a écrit :

Normalement ça passe. Mais je te conseille quand même de les tester avec un poste en R22 avant de tout migrer, on sait jamais

ptittom

so_xyz a écrit :

Bonjour à tous,
Je voulais savoir si des macro CATIA VBA développées sous CATIA R19 étaient compatible avec du CATIA R22.
On risque de changer nos config d'où ma question, même si j'imagine qu'elles ne seront pas compatibles :sweat:
Merci

Bonjour,

R22 est encore en VBA6 32bits. Normalement, il ne devrait pas y avoir de problème.

À partir de R24, dassault est passé à VBA7 en 64bits. Certains objets ne fonctionnent plus (typiquement certains élément dans les userforms) et il faut modifier certaines références.

Message cité 1 fois

so_xyz

ptittom a écrit :

Merci pour ta réponse qui me redonne espoir ,

Je vais pas tarder à le savoir, je te dirais ce qu'il en est !

Guss_

Par contre pour la question de compatibilité, je rencontre des soucis pour le développement de nouvelles macros en ayant chargé des macros créés avec une révision précédente de catia

Exemple en R21
- je peux charger une bibliothèque de macro crée en R19 l'utiliser la modifier.
- je peux charger une bibliothèque de macro crée en R21 l'utiliser la modifier.
- je ne peux pas charger une bibliothèque de macro crée en R19 si une bibliothèque R21 est déjà chargée, ou inversement.

à chaque changement de révision je suis obligé d'exporter tout mes modules indépendamment pour les réimporter dans une nouvelle bibliothèque. :fou:

Message cité 1 fois

so_xyz

Bonjour à tous,

Voilà j'essaye de récupérer le nom de la session windows qui est active afin de rendre une macro utilisable sur différentes sessions
Pour simplifier ma macro, elle ouvre juste un fichier bien précis stocké sur le bureau de la session.

J'ai récupéré un code pour avoir la variable Username mais je n'arrive pas à l'intégrer dans la suite de mon code.

Ci dessous le code :

Code :

Sub VariablesEnvironnement()
Dim i As Integer, sEnv As String
Dim Pos As Integer
ActiveWorkbook.Worksheets.Add
i = 1
Do
sEnv = Environ(i)
If Len(sEnv) = 0 Then Exit Do
Pos = InStr(Environ(i), "=" )
Cells(i, 1) = Left(sEnv, Pos - 1)
Cells(i, 2) = Right(sEnv, Len(sEnv) - Pos)
i = i + 1
Loop
MsgBox Environ("USERNAME" )
'## Opening of Excel
Set oExcel = CreateObject("Excel.Application" )
If Err.Number <> 0 Then
Set oExcel = CreateObject("Excel.Application" )
oExcel.Visible = True
End If
oExcel.Visible = True
------------------------------------------------------------------------------------------------------------------------------------
Set oBook = oExcel.Workbooks.Open("C:\User1234\Destock\MonFichierExcel" )
'Ici je souhaiterais au lieu d'avoir User1234, la variable Username pour avoir : ("C:Username\Destock\MonFichierExcel" )
------------------------------------------------------------------------------------------------------------------------------------
Set wbks = oExcel.ActiveWorkbook
Set oSheet = oBook.ActiveSheet
'## Display the Excel
oExcel.Visible = True
End Sub

En espérant avoir été clair,

Si quelqu'un a une idée, je suis preneur

Bonne journée

Message cité 1 fois

ptittom

Guss_ a écrit :

Bonjour,

Je ne connais pas le phénomène mais j'ai eu quelque chose de similaire lors du passage de R16 à R19. Certaines macros ne pouvaient pas être éditées: fnêtre simplement grise, sans code, userform ou autre. Au final, j'ai trouvé que les références étaient en cause: si toutes les références par défaut étaient sélectionnées, le problème survenait. J'ai pu m'en sortir en éditant en R16 et en ne sélectionnant que les références nécessaire (en général 4-5 par macro, selon ce que l'on fait). C'est peut être un piste pour toi ?

Message cité 1 fois

ptittom

so_xyz a écrit :

Bonjour,

C'est du Excel pur et dur ?
Avec CATIA, j'utilise ce que j'ai cité précédemment: CATIA.SystemService.Environ("username" )

Sinon, ton code me semble étrange: tu utilises des fonctions excel avant de démarrer Excel... C'est pour avoir une deuxième fenêtre ?

Message cité 1 fois

so_xyz

ptittom a écrit :

Bonjour,

Oui c'est du Excel, et oui c'était pour ouvrir un 2ème excel mais tu as raison dans mon problème ce n'est pas nécessaire...
En faite, je veux utiliser ma macro sur différentes stations qui ont donc chacun leur "Username"
Dans cette macro, j'ouvre un fichier qui est stocké sur le bureau, dans l'adresse du type :
"C:\User1234\Destock\MonFichierExcel"
"C:\User1235\Destock\MonFichierExcel"
"C:\User1236\Destock\MonFichierExcel", seul la partie User1234 change.

Ce que je voulais faire c'est récupérer l'username, le garder en mémoire pour l'utiliser par la suite afin de mettre automatiquement cette ligne :
Set oBook = oExcel.Workbooks.Open("C:\User1234\Destock\MonFichierExcel" )

J'ai essayé sans conviction en remplacant le User1234 par USERNAME mais cela ne fonctionne pas
Je ne sais pas si c'est possible...

Code :

Sub VariablesEnvironnement()
Dim i As Integer, sEnv As String
MsgBox Environ("USERNAME" )
'## Opening of Excel
Set oExcel = CreateObject("Excel.Application" )
If Err.Number <> 0 Then
Set oExcel = CreateObject("Excel.Application" )
oExcel.Visible = True
End If
oExcel.Visible = True
------------------------------------------------------------------------------------------------------------------------------------
Set oBook = oExcel.Workbooks.Open("C:\User1234\Destock\MonFichierExcel" )
'Ici je souhaiterais au lieu d'avoir User1234, la variable Username pour avoir : ("C:Username\Destock\MonFichierExcel" )
------------------------------------------------------------------------------------------------------------------------------------
Set wbks = oExcel.ActiveWorkbook
Set oSheet = oBook.ActiveSheet
'## Display the Excel
oExcel.Visible = True
End Sub

Si quelqu'un a une idée,

Merci beaucoup

Guss_

ptittom a écrit :

Je regarderais les références. Mais en général, ça me met en vrac VBA lorsque j'ai le soucis ("module not found", "out of memory", fenêtre grisée sans rien dedans dans l'éditeur, ou encore rien ne se passe lorsque le lance une macro)

so_xyz

J'ai trouvé une solution, je la partage si ça peut servir à quelqu'un :

Code :

sUser = Environ("USERNAME" )
'## Opening of Excel
Set oExcel = CreateObject("Excel.Application" )
If Err.Number <> 0 Then
Set oExcel = CreateObject("Excel.Application" )
oExcel.Visible = True
End If
oExcel.Visible = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Ouvrir Fichier
Set oBook = oExcel.Workbooks.Open("C:\" & sUser & "\desktop\ModèleFichePièceV2.xlsm" )
Set oSheet = oBook.ActiveSheet

Merci à tous

Message édité par so_xyz le 16-03-2015 à 11:58:57

so_xyz

Bonjour à tous,

Je me retrouve avec une macro qui bien fonctionné jusqu'à ce matin :fou:
L'objectif était d'obtenir la valeur des différents paramètres créés sur CATIA ... au début tout est ok, mais depuis ce matin les valeurs des paramètres sont 1 ou 0 ... Je ne sais pas pourquoi je partage avec vous le code si quelqu'un a une idée

Code :

'## Start CATIA
Dim oDoc As Document
Dim oPart As Part
On Error Resume Next
Set oDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
MsgBox "No Document opened" 'Verify if the document is open
Err.Clear
Exit Sub
End If
On Error GoTo 0
If TypeName(oDoc) <> "PartDocument" Then
MsgBox "The active document is not a part" 'Verify if the doc is a CATIA Part or not
Exit Sub
End If
Set oPart = oDoc.Part
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
part1.Update
Set parametersFP = part1.Parameters
Set instance = partDocument1.Product
Set analyse_instance = instance.Analyze
Set position_instance = instance.Position
'Declaration of the first parameter X
Dim X As Parameter
'Declaration of the second parameter Y
Dim Y As Parameter
'Declaration of the third parameter Z
Dim Z As Parameter
'Declaration of the fourth parameter SP
Dim SP As Parameter
'## Recuperation of PARAMETERS
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameter
Set mesure1 = parameters1.Item("X" )
Set Mesure2 = parameters1.Item("Y" )
Set Mesure3 = parameters1.Item("Z" )
Set Mesure4 = parameters1.Item("SP" ) 'Seul ce paramètre est ok, ce qui est bizarre
Dim oSel As Selection
Set oSel = oDoc.Selection
oSel.Clear

Message cité 1 fois

ptittom

so_xyz a écrit :

Bonjour,

Tu as bossé avec le macro recorder ? Il y a pas mal de déclaration en double ou dont tu ne te sers pas... Si je comprends ton code, tu veux récupérer les valeurs des paramètres X, Y, Z et SP contenu dans une part (pourquoi passes-tu par les instances d'ailleurs ?).

Code :

Dim oDoc As Document
Dim oPart As Part
On Error Resume Next
Set oDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
MsgBox "No Document opened" 'Verify if the document is open
Err.Clear
Exit Sub
End If
On Error GoTo 0
If TypeName(oDoc) <> "PartDocument" Then
MsgBox "The active document is not a part" 'Verify if the doc is a CATIA Part or not
Exit Sub
End If
Set oPart = oDoc.Part
Dim cParameters As Parameters
Set cParameters = oPart.Parameters 'ici il manque un s à la ligne 48.
Debug.Print cParameters.Item("X" ).ValueAsString
Debug.Print cParameters.Item("Y" ).ValueAsString
Debug.Print cParameters.Item("Z" ).ValueAsString
Debug.Print cParameters.Item("SP" ).ValueAsString

Message cité 1 fois
Message édité par ptittom le 16-03-2015 à 14:09:18

so_xyz

ptittom a écrit :

Code :

Dim oDoc As Document
Dim oPart As Part
On Error Resume Next
Set oDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
MsgBox "No Document opened" 'Verify if the document is open
Err.Clear
Exit Sub
End If
On Error GoTo 0
If TypeName(oDoc) <> "PartDocument" Then
MsgBox "The active document is not a part" 'Verify if the doc is a CATIA Part or not
Exit Sub
End If
Set oPart = oDoc.Part
Dim cParameters As Parameters
Set cParameters = oPart.Parameters 'ici il manque un s à la ligne 48.
Debug.Print cParameters.Item("X" ).ValueAsString
Debug.Print cParameters.Item("Y" ).ValueAsString
Debug.Print cParameters.Item("Z" ).ValueAsString
Debug.Print cParameters.Item("SP" ).ValueAsString

Salut,

Merci pour ta réponse, Oui étant novice, je suis passé par l'enregistreur automatique de macro et par quelque forums... mais sinon tu as bien compris je veux "juste" récupérer mes paramètres X, Y, Z et SP pour les collés dans un fichier Excel,

Ce que je ne comprend pas c'est que la valeur SP exportée est correcte alors que les paramètres X, Y et Z...

ptittom

C'est quel type de paramètre ? length ?
Mon code marche (enfin, pas de plantage ?)? Tu peux essayer de sélectionner les paramètres dans CATIa pour voir ce qui est lu.

Dim oSel As Selection
Set oSel = oDoc.Selection
oSel.Clear
oSel.Add cParameters.Item("X" )

Là, ton paramètre X devrait être sélectionné dans CATIA. Je soupconne la macro de lire la valeur X de l'axis system principal

Message cité 1 fois
Message édité par ptittom le 16-03-2015 à 15:14:56

so_xyz

ptittom a écrit :

Oui ce sont des longueurs (pourtant mon code fonctionné parfaitement jusqu'à ojd)
Par contre, désolé mais je n'ai pas compris ou je devais mettre le code que tu m'as passé..

Message cité 1 fois

ptittom

so_xyz a écrit :

Oui ce sont des longueurs (pourtant mon code fonctionné parfaitement jusqu'à ojd)
Par contre, désolé mais je n'ai pas compris ou je devais mettre le code que tu m'as passé..

Code :

Dim oDoc As Document
Dim oPart As Part
Dim oSel As Selection
Set oSel = oDoc.Selection
oSel.Clear
On Error Resume Next
Set oDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then
MsgBox "No Document opened" 'Verify if the document is open
Err.Clear
Exit Sub
End If
On Error GoTo 0
If TypeName(oDoc) <> "PartDocument" Then
MsgBox "The active document is not a part" 'Verify if the doc is a CATIA Part or not
Exit Sub
End If
Set oPart = oDoc.Part
Dim cParameters As Parameters
Set cParameters = oPart.Parameters 'ici il manque un s à la ligne 48.
Dim MyParameter As Parameter
Set MyParameter = cParameters.Item("X" )
oSel.Add MyParameter 'voir dans CATIA ce qui est sélectionné.
Debug.Print MyParameter.Item("X" ).ValueAsString

Message cité 1 fois

arno894

Bonjour,

Dans une macro, je me suis créé un fichier log où j'écris différentes erreurs.
Je souhaite ouvrir ce fichier txt une fois que ma macro est terminée. Si quelqu'un a une idée et peut m'expliquer comment faire.

Merci

Message cité 1 fois

Publicité

Page : 1 2 3 4 5 .. 228 229 230 .. 233 234 235 236 237 238

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Graphisme

Infographie 3D

[Support] Catia : trucs, astuces, conseils, aide

Sujets relatifs
Transfert de donnees 3D texturees entre Catia et 3DSMAX6	[Blender] Besoin d'aide !
De l'aide sur une Recherche	..:: Topic des Publivores ::..
[Toshop] Besoin d'aide pour faire un dégradé	Catia - Commande pour masquer tous les plans?!!!
Conseils / remarques sur ma maquette (site geo expert)	topic unique de l' acréatique-chronique
[REGLE][FLASH]Demande de conseils
Plus de sujets relatifs à : [Support] Catia : trucs, astuces, conseils, aide

Page générée en 0.152 secondes