marc54

Bonjour, Dans les options d'écriture en 3Dxml, je sais qu'il y a au moins deux formats possibles. L'un est 'binaire', l'autre 'texte'. Dans le premier cas, tu es obligé d'utiliser le viewer DS, dans l'autre, il existe un autre viewer 3Dxml que celui de DS, mais je ne me souviens plus de son nom.

si tu veux j'ai une macro qui crée un escalier. Tu peux la télécharger sur mon site, le source est modifiable. http://3dsys.fr/8.html

Bonjour, D'abord pourquoi cherches-tu une licence temporaire ? C'est pour un test avant achat ? Pour traiter une affaire pendant un temps donné ? Dans tous les cas, si tu souhaites passer par le circuit officiel il faut que tu contactes un revendeur CATIA (un VAR) qui est habilité à traiter ce type de demandes : au choix Kéonys, T-Systems, TATA Technologies, etc. Tu trouveras la liste sur le site 3DS.com. Mais le chemin risque d'être long ... Paradoxalement il y a des centaines de licences piratées de CATIA qui tournent et qui ne semblent pas poser de problème particulier à DS, mais ta demande risque de ne pas aboutir ou d'être trop compliquée.

essaie ceci. C'est peu mieux que ton truc, mais il y a surement plus simple. J'ai pas testé ... Dim Degres, Minutes, Secondes As Integer Dim pos as boolean ' positif pos = true Degres = (A(y)) if Degres < 0 then ' inversion du signe Degres = - Degres pos = false ' pour plus tard (c'est un drapeau) endif Degres = Int(Abs(A(y))) Minutes1 = Int((Abs(A(y)) - Degres1) * 60) Minutes = ((Abs(A(y)) - Degres1) * 60) Secondes = cstr(round((Minutes - Int(Minutes)) * 60,2)) DMS= Degres1 & "° " & Minutes1 & "' " & Secondes+ Chr(34) if pos = false then DMS = " -" & DMS ' c'était nég donc je rajoute le signe xl.cells(5 + y, x + 1).Value = DMS

tu peux tester si ton A est négatif. Si c'est le cas, tu le repasses en positif et tu poses une variable, que tu testeras en fin de programme pour rebasculer le signe. Je ne sais pas si je suis clair ...

dans ton hybridbody, tu as une collection de GeometricElements. C'est sur cette collection que tu dois faire une boucle, en testant si la propriété .Name contient la chaine "Point.". Si c'est le cas tu renommes : monPt.Name= "Point_" & i en gros c'est ça. autre solution : faire une sélection des points 3D avec un selection.search, et ensuite une boucle sur la selection

bizarre... Essaie de simplifier ton programme en ne mettant qu'une seule ligne, c'est à dire en intégrant tous les parametres sans passer par variable, et en virant le test. Ou alors l'erreur serait dans le CATscript ? Je suppose que si tu exécutes le catscript il n'y a pas d'erreur. Sauf que là c'est VBA qui l'interprète, alors peut-être que c'est un Dim du catscript qui pose problème. As tu essayé de reprendre le contenu du catscript et de le mettre en VBA ? Faut éviter le CATScript. Le mieux c'est .Net, VBA ou vbscript au pire.

c'est une erreur très classique qu'on retrouve très souvent en VBA. Une sorte de bug qui apparait sur certaines fonctions. Pour corriger, il suffit de mettre en commentaire le type de la variable sur laquelle l'erreur apparait. Un exemple bidon : tu as : Dim maVariable As xxxxx Et l'erreur apparait sur cette ligne : set machin = maVariable.méthode (am,stram,gram) La solution est d'enlever le type de maVariable : Dim maVariable 'As xxxxx Par contre, sur ton exemple je ne vois pas trop ce qu'il faut détyper. Ou est l'erreur ? As-tu typé la variable CATIA ?

Essaie avec CATIA.SystemService.ExecuteScript je n'ai jamais utilisé,mais tu devrais trouver des exemples dans la doc ou sur le net.

Bonjour, Tu es en VBA ? Si c'est le cas tu peux essayer de changer la propriété ShowModal de ta userform.

D'abord il faut se connecter à Excel : 1- Ajout à tes références de Microsoft Excel object library 2- puis ce bout de code Dim oEXCEL As Excel.Application On Error Resume Next Set oEXCEL = GetObject(,"Excel.Application") If Err.Number <> 0 Then Set oEXCEL = CreateObject("Excel.Application") oEXCEL.Visible = True EndIf On Error Goto 0 3- Et enfin le kit de survie dans excel : Dim oWkBk As Excel.Workbook oWkBk = oExcel.Workbooks.Add() ' obligatoire sinon excel démarre pas Dim oSheet As Excel.Worksheet oSheet = oWkBk.ActiveSheet ' classeur courant Dim oCell As Excel.Range oCell = oSheet.Range("B3") ' et cellule B3 oCell.Value = "Hello World"

Bonjour, Tu pourrais essayer de faire un CATDUA pour nettoyer ton fichier. Dans outils/Utilitaires.

Dim Inertie1 As Double Inertie1 = InputBox("Entrez la valeur de Ixx", "Moments principaux d'inertie du moteur NI", "1")

Bonjour Quieto, Je crois que j'ai eu le même problème il y a peu de temps : http://www.catiav5forum.de/wbb3/wbb/index.php?page=Thread&postID=27956&highlight=indicate2D#post27956 Que je n'ai pas résolu ... J'utilise indicate2D en drafting et je n'ai pas de souci. Par contre, dans un sketch c'est 0 ! Les coordonnées retournées doivent dépendre du facteur de zoom, du positionnement du sketch en 3D, ou de la température extérieure ...

Pas possible, cette fonction est très simple à utiliser, mais hélas assez limitée en fonctionnalités. En VBA on doit pouvoir faire appel à des API pour faire ça. Faut chercher un peu sur développez.com Et en VB .Net il y a un contrôle prêt à utiliser.