XGX4

Bonjour, je cherche à convertir des DD en DMS mais sans resultats en fait je viens lire un paramètre d'angle dans CATIA en DD pour l'ecrire dans une feuille xls en DMS avec le code suivant: Dim Degres, Minutes, Secondes As Integer Degres = Int(A(y)) Minutes = Int((A(y) - Degres) * 60) Secondes =cstr(round((Minutes - Int(Minutes)) * 60,2)) xl.cells(5 + y, x + 1).Value = " " & Degres & "° " & Int (Minutes) & "' " & Secondes + Chr(34) cela fonctionne bien avec des valeur positive mais pas avec des valeurs negatives... si quelqu'un a une idée, je suis preneur.

Bonjour, Je cherche à connaitre le nom des entités et plus particulierement des points qui sont dans un Set Géometrique. J'arrive à les compter For i = 1 To Points.HybridShapes.Count MsgBox i Next i mais je ne vois pas comment connaitre leurs noms. C'est dans le but de renommer tous les points sous la forme Point_1 Point_2 etc. Si quelqu'un peut m'aiguiller, merci d'avance. XGX4

Bonjour, Je cherche à connaitre le nom des entités et plus particulierement des points qui sont dans un Set Géometrique. J'arrive à les compter For i = 1 To Points.HybridShapes.Count MsgBox i Next i mais je ne vois pas comment connaitre leurs noms. C'est dans le but de renommer tous les points sous la forme Point_1 Point_2 etc. Si quelqu'un peut m'aiguiller, merci d'avance. XGX4

Problème résolu: Sub CATMain() Dim Shell As Object: Set Shell = CreateObject("WScript.Shell") Dim ID As Variant: ID = Shell.Run("H:\MacroDir1\Macro1.CATScript") End End Sub Même en simplifiant cela ne fonctionne pas. Il n'y a pas de problème dans l'execution du CATScript. Pour ce qui est du transfert CATScript vers VBA j'ai des problèmes en ce qui concerne la création de formule et de relation et ce sera une de mes prochaines question. en tout cas Marc, merci pour ton aide. PS: ton site est vraiment bien... XGX4

Non la variable CATIA n'est pas typée. l'erreur se trouve sur Call CATIA.SystemService.ExecuteScript puis la "flèche jaune" pointe sur Private Sub cmdmacro_Click() XGX4

Ben cela ne fonctionne pas... Private Sub cmdmacro_Click() Dim params() Dim oFilePath, oFileName As String oFilePath = "W:\CAO\Macros" oFileName = "DESSIN.CATScript" If optdessin.Value = True Then 'CATIA.SystemService.ExecuteScript ("W:\CAO\Activite\CATIAV5\ADMIN\site_TM\Macros\Tuyauterie\NEW_COORD_PTS_CANA_DESSIN.CATScript") Call CATIA.SystemService.ExecuteScript(oFilePath, catScriptLibraryTypeDocument, oFileName, "CatMain", params) End If End il y a un message : :mad: Compile error: Function or interface marked as restricted, or the fonction uses an Automation type not supported in Visual Bsic. de quoi cela peut il bien venir??? merci XGX4

Bonjour, Encore un client... guilllaume.malere@hotmail.fr merci

Bonjour, Je cherche comment lancer une macro CATScript à partir d'une macro VBA. J'utilise la commande If optdessin.Value = True Then CATIA.SystemService.ExecuteProcessus ("C:\Documents and Settings\Mes documents\DESSIN.CATScript") End If mais rien ne se passe... est ce que quelqu'un aurait une solution? :casstet: par avance, merci XGX4

Salut, passes dans l'atelier GSD. Selectionne le set géometrique où sont tous tes points puis clique sur l'icone Courbe puis valide. XGX4

Bonjour Marc, La formation que tu nous as dispensé sur Bordes prend toute sa valeur en ce moment. Je galère comme un grand, mais au bout d'un moment cela fonctionne... En fait les clefs de registres sont du type: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.CATPart\CATIA.Part\ShellNew ou HKEY_CLASSES_ROOT\CATIA.Shape\shell\print\ddeexec\application je ne comprend pas ce que tu essayes de m'expliquer?

Bonjour et bonne année à tous, plein de bonnes choses... Dans le cadre d'une developpement, j'ai un batch qui vient utiliser certaines clefs de registre Catia, (a peu près 15). Comme cette appli va etre deployée sur des postes client, est il possible de definir ces cles dans le fichier Env de Catia afin de ne pas passer par le service informatique qui va me demander de justifier tout ça et me plonger dans une paperasse monstre Par avance, merci

Bonjour et bonne année à tous, plein de bonnes choses... Dans le cadre d'une developpement, j'ai un batch qui vient utiliser certaines clefs de registre Catia, (a peu près 15). Comme cette appli va etre deployée sur des postes client, est il possible de definir ces cles dans le fichier Env de Catia afin de ne pas passer par le service informatique qui va me demander de justifier tout ça et me plonger dans une paperasse monstre Par avance, merci

Bonjour, Je fais mes début en vba et je souhaiterais savoir créer un paramètre de type angle (jusque là pas de pb) contenant une formule du style 360deg / toto. Où toto = reel. est ce que qqun peut m'aider. mar avance, merci et bonne fetes à tous XGX4

Bonjour, Je fais mes début en vba et je souhaiterais savoir créer un paramètre de type angle (jusque là pas de pb) contenant une formule du style 360deg / toto. Où toto = reel. est ce que qqun peut m'aider. mar avance, merci et bonne fetes à tous XGX4

Salut behanzin, C'est bien compromis ton affaire puisque un CGR est une image 3d d'une CATPart ou d'un CATProduct Le CGR ® (Catia Graphical Representation) est le format triangulé de Catia V5. Ce mode facettisé permet un chargement plus rapide des CatParts et des CatProducts de Catia V5 et facilite implicitement tous éventuels partages et échanges de fichiers. Bref, ce n'est pas possible. Bon courage

Developpe !

Salut laeti77, Regarde le sujet sur la création d'un catalogue. Xgx4

Bonjour kaminadvd, Tout dépend du mode de génération que tu utilises: Dans un CATdrawing, le + judicieux est de fair une vue ISO de ton éclaté. Pour faire apparaitre les ligne de rappel, clic droit sur la cote en question puis propriétés / ligne de rappel et tu coches la case corespondante. J'espere que ma reponse est en concordance avec tes dires, sinon est ce que tu peux être un peu + explicite. XGX4

Bonjour arsoyinsoh ! Etant donné le peu d'info (mais y a pas de pb) le mieux, c'est de passer par l'atelier de cinematique dans la cas ou tu as conçu ton système via un assemblage. Donne un peu plus d'info et tout devrait bien se passer ! XGX4

Bonjour hasnaa123! Ton compresseur, c'est de quel type ? Plutôt à piston ou à vis ?

Bonjour traxon, Essaye avec la fonction "Surface en resau" de l'atelier FreeStyle. Par contre, je te conseille de scinder ton cadre en 2 car vu la complexité de la surface CATIA aura du mal à la fermer. (Cas idéal) si cela ne marche pas, il va falloir que tu dois decouper ton cadre en element simple pour en suite faire un joindre du tout.

Bonjour Francky57, 1- Tu crées une CATPart dans laquelle se trouve tout ta géometrie. Toutes les cotes doivent être pilotées par des paramètres.(le nom des param doivent être les meme que dans ton fichier .XLS) 2- Créer la table de paramétrage en cliquant sur l'icone. tu selectionnes: - créer une table de param avec des param du modèle courant. - Orientation: verticale - OK -Filtre par type: param renommés -tu les selectionnes pour les faire passer de l'autre coté à l'aide de la flèche. - OK -Tu sauves ton nouveau fichier .XLS. 3- Tu définies dans un fichier .xls PartNumber D (mm) B (mm) M (mm) TOTO1 4 0,8 3,4 TOTO2 5 0,8 4,4 TOTO3 6 0,8 5,4 TOTO4 7 0,8 6,4 TOTO5 8 0,8 7,4 4- Une fois que ton fichier .xls est duement completé, le le sauve. Dans catia, Demarrer/ Infrastructure / Editeur de catalogue Se placer sous Chapitre 1 (1 chapitre = ensemble de familles) Prendre l’icône : « Ajoute une famille de pièces » Sélectionner le fichier .xls Faire clic droit sur famille de piece : objet FamilleDePièce / Résoudre Toutes tes CATParts se générer en s'appuyant sur le tableau xls. Et voilou! XGX4

Salut deuxtance, C'est d'un point du vue macro vb ou juste a titre indicatif ? XGX4

rvpas, La meilleure des solutions est de faire un CATProduct dans lequel se trouve une CATPart squelette avec tout ton fillaire (profil, esquisse plan de decoupe de tes profilés) Ensuite dans chaque CATPart represantant tes poutres, tu utilises la fonction nervure et ensuite tu coupe par le plan où se trouve la soudure. XGX4

Salut Chyps, tu es sur la bonne voie!! 1- Tu crées une CATPart dans laquelle se trouve tout ta géometrie. Toutes les cotes doivent être pilotées par des paramètres.(le nom des param doivent être les meme que dans ton fichier .XLS) 2- Créer la table de paramétrage en cliquant sur l'icone. tu selectionnes: - créer une table de param avec des param du modèle courant. - Orientation: verticale - OK -Filtre par type: param renommés -tu les selectionnes pour les faire passer de l'autre coté à l'aide de la flèche. - OK -Tu sauves ton nouveau fichier .XLS. 3- Tu définies dans un fichier .xls PartNumber D (mm) B (mm) M (mm) TOTO1 4 0,8 3,4 TOTO2 5 0,8 4,4 TOTO3 6 0,8 5,4 TOTO4 7 0,8 6,4 TOTO5 8 0,8 7,4 4- Une fois que ton fichier .xls est duement completé, le le sauve. Dans catia, Demarrer/ Infrastructure / Editeur de catalogue Se placer sous Chapitre 1 (1 chapitre = ensemble de familles) Prendre l’icône : « Ajoute une famille de pièces » Sélectionner le fichier .xls Faire clic droit sur famille de piece : objet FamilleDePièce / Résoudre Toutes tes CATParts se générer en s'appuyant sur le tableau xls. Et voilou! XGX4