Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1365 connectés 

 
 


 Mot :   Pseudo :  
  Aller à la page :
 
 Page :   1  2  3  4  5  ..  233  234  235  236  237  238
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

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

n°1181148
Cars_F
Duc de Normandie
Posté le 24-08-2017 à 00:34:45  profilanswer
 

Reprise du message précédent :
On voit pas l'image :o

mood
Publicité
Posté le 24-08-2017 à 00:34:45  profilanswer
 

n°1181154
Modération
Posté le 24-08-2017 à 19:30:08  answer
 

C'est pas fait pour :o

n°1181155
Cars_F
Duc de Normandie
Posté le 24-08-2017 à 22:16:39  profilanswer
 

C'était quoi ?

n°1181156
Skopos
Posté le 25-08-2017 à 09:14:38  profilanswer
 

Quand l'image s'affiche on ne la voit pas en fait, c'est un png invisible.
On a pas su me dire exactement comment et pour quoi ces images cachées dans les post étaient utilisées mais on se pose pas trop de question, on ban.


Message édité par Skopos le 25-08-2017 à 09:16:24
n°1181167
grimms
Posté le 26-08-2017 à 12:05:14  profilanswer
 

salut.
tu as bien un affichage avec les filaire d'activer?

n°1181169
neyss
Posté le 27-08-2017 à 01:46:08  profilanswer
 

neyss a écrit :

J'ai un soucis sous V6
J'ai importer une pièce (un stl), mais cette dernière ne s'affiche pas (sauf quand je la déplace dans la fenêtre, que je la met en surbrillance ou que je fais un aperçu).
 
Du coup, je peux pas faire grand chose et encore moins prendre des mesures (qui n'apparaissent pas également).
 
J'ai déjà rencontré le problème, mais je ne me rappel plus de la solution. Une idée ?
 
edit: En fait pour être plus simple, je n'ai aucun modèle qui s'affiche (même les plans et autres) si je navigue pas dans la fenêtre de conception ou si je ne mets pas en surbrillance. Par contre, j'ai bien l'arbre de construction.


Je reviens sur mon problème: j'ai fait une vidéo (pas de qualité 4K) mais suffisante pour montrer le problème:
https://www.youtube.com/watch?v=fdTJPNo9NNk
 
C'est un bête cylindre que j'ai effectué, donc ça vient pas du stl. A vrai dire, j'ai le même soucis sous 3D Live, donc je pense que je vais revoir réinstaller le bordel.

Message cité 1 fois
Message édité par neyss le 27-08-2017 à 01:47:54
n°1181174
ptittom
Posté le 28-08-2017 à 12:33:14  profilanswer
 

neyss a écrit :


Je reviens sur mon problème: j'ai fait une vidéo (pas de qualité 4K) mais suffisante pour montrer le problème:
https://www.youtube.com/watch?v=fdTJPNo9NNk
 
C'est un bête cylindre que j'ai effectué, donc ça vient pas du stl. A vrai dire, j'ai le même soucis sous 3D Live, donc je pense que je vais revoir réinstaller le bordel.


Problème de pilote pour ta carte graphique ?

n°1181186
neyss
Posté le 30-08-2017 à 16:14:51  profilanswer
 

J'ai réinstallé le driver du GPU. Je ne sais pas pourquoi, mais ça a réglé le soucis. Merci !


Message édité par neyss le 30-08-2017 à 16:15:02

---------------
Mon FeedBack
n°1181187
Pims_UTT
Génoise confiture et chocolat
Posté le 30-08-2017 à 16:50:03  profilanswer
 

Les mystères de Catia [:er dehy:1]  [:wildcopper:1]  
 
 
Catia tape directement dans la carte graphique. Réinstaller les drivers de la CG m'a déjà dépanné plusieurs fois.

n°1181293
shkyo30
Posté le 08-09-2017 à 13:37:57  profilanswer
 

Bonjour tous le monde, je reviens dans le coin pour un problème de macro VBA avec Catia v5r22 comme d'hab...  ;)  
 
Le besoin: j'ai environ 200 fichiers .CATDrawing dans lesquels je veux modifier le texte d'une douzaine de cases du cartouche du fond de calque, donc très long à la main...
 
J'ai voulu faire les manips tout en enregistrant une macro, mais à mon grand désespoir, il n'enregistre rien d'autre dans la macro que:

Code :
  1. Sub CATMain()
  3. End Sub


 
Argh!!!! Du coup, je n'ai même pas une base de travail.... Help please!!  :cry:


---------------
Ma (petite) chaîne Youtube: https://www.youtube.com/channel/UCy [...] UwOtLaYKw/
mood
Publicité
Posté le 08-09-2017 à 13:37:57  profilanswer
 

n°1181294
Pims_UTT
Génoise confiture et chocolat
Posté le 08-09-2017 à 14:01:27  profilanswer
 

Quelques pistes  [:coldlake]
 
Je suppose que ton plan est ouvert dans Catia et que c'est le document actif:
 
Pour accéder aux calques:
Catia.ActiveDocument.Sheets
 
Pour accéder au calque du fond:
objBgView = Catia.ActiveDocument.Sheets.Item("Background View" )
 
Pour accéder aux zones de textes:
objBgView.Texts.Item(i)
 
Pour accéder au nom d'une zone de texte:
Texts.Item(i).Name
 
Pour accéder au texte d'une zone de texte:
Texts.Item(i).Text

n°1181295
shkyo30
Posté le 08-09-2017 à 14:28:06  profilanswer
 

Merci pour ces premières infos, oui le plan est ouvert et actif, mais ce sera la macro qui va le faire au final (ainsi que la sauvegarde) car vu le nombre de fichiers ça va vite être pénible... ;-)
 
Entre temps j'ai fait un truc du style:

Code :
  1. Sub CATMain()
  3. Dim drawingDocument1 As Document
  4. Set drawingDocument1 = CATIA.ActiveDocument
  6. Dim selection1 As Selection
  7. Set selection1 = drawingDocument1.Selection
  9. selection1.Search "CATDrwSearch.DrwText,all"
  11. For i = 1 To selection1.Count
  12.     If selection1.Item(i).Value.Text = "xxxx" Then
  13.         selection1.Item(i).Value.Text = "zzzz"
  14.     End If
  15. Next
  17. End Sub


 
Alors ce n'est pas une macro d'enfer mais bon, elle fonctionne presque...


---------------
Ma (petite) chaîne Youtube: https://www.youtube.com/channel/UCy [...] UwOtLaYKw/
n°1181298
shkyo30
Posté le 08-09-2017 à 16:30:10  profilanswer
 

Finalement avec tout ce que j'ai pu trouver à droite et à gauche je suis arrivé à mes fins....
 
Voici ma solution (si ça peut servir à d'autres!), c'est sûr que c'est rustique mais ça fonctionne!  ;)  :D  
 

Code :
  1. Sub CATMain()
  3. Dim documents1 As Documents
  4. Set documents1 = CATIA.Documents
  5. Dim drawingDocument1 As Document
  6. Dim selection1 As Selection
  8. ' -- Récupération du nom du dossier où sont les fichiers ----
  9. Dim cheminDossier As String, objShell As Object, objDossier As Object
  11. Set objShell = CreateObject("Shell.Application" )
  12. Set objDossier = objShell.BrowseForFolder(0, "Sélectionnez le DOSSIER contenant les CATDrawing", 0, "t:" )
  13. cheminDossier = objDossier.ParentFolder.ParseName(objDossier.Title).Path
  14. ChDir cheminDossier
  16. ' -- Traitement des fichiers .CATDrawing présents dans le dossier ----
  17. Dim cheminFichier As String
  19. cheminFichier = Dir(cheminDossier & "\*.CATDrawing" )
  21. While cheminFichier <> ""
  23.     Set drawingDocument1 = documents1.Open(cheminDossier & "\" & cheminFichier)
  24.     Set selection1 = drawingDocument1.Selection
  25.    
  26.     ' -- Cherche dans tous les textes présents dans le plan SAUF tous ce qui est cotation ----
  27.     selection1.Search "CATDrwSearch.DrwText,all"
  28.    
  29.     For i = 1 To selection1.Count
  30.         If selection1.Item(i).Value.Text = "XXXX" Then
  31.             selection1.Item(i).Value.Text = " "
  32.         ElseIf selection1.Item(i).Value.Text = "YYYY" Then
  33.             selection1.Item(i).Value.Text = " "
  34.         ElseIf selection1.Item(i).Value.Text = "ZZZZ" Then
  35.             selection1.Item(i).Value.Text = " "
  36.         ElseIf selection1.Item(i).Value.Text = "WWWW" Then
  37.             selection1.Item(i).Value.Text = " "
  38.         End If
  39.     Next
  40.    
  41.     For i = 1 To selection1.Count
  42.         If selection1.Item(i).Value.Text = "XXX" Then
  43.             selection1.Item(i).Value.Text = "zzz"
  44.         ElseIf selection1.Item(i).Value.Text = "YYY" Then
  45.             selection1.Item(i).Value.Text = "www"
  46.         End If
  47.        
  48.         If InStr(selection1.Item(i).Value.Text, "azertryuiop" ) > 0 Then
  49.             selection1.Item(i).Value.Text = " "
  50.         ElseIf InStr(selection1.Item(i).Value.Text, "qsdfghjklm" ) > 0 Then
  51.             selection1.Item(i).Value.Text = " "
  52.         End If
  53.     Next
  54.    
  55.     selection1.Clear
  56.    
  57.     ' -- Sauvegarde classique ----
  58.     drawingDocument1.Save
  59.    
  60.     ' -- Export du doc au format TIF ----
  61.     cheminFichier = Replace(cheminFichier, ".CATDrawing", ".TIF" )   ' sinon il sauve le TIF en CATDrawing...
  62.     drawingDocument1.ExportData cheminDossier & "\" & cheminFichier, "tif"
  63.    
  64.     drawingDocument1.Close
  65.    
  66.     cheminFichier = Dir
  67. Wend
  69. End Sub


 
Voilu, à la prochaine...  :D  :bounce:


---------------
Ma (petite) chaîne Youtube: https://www.youtube.com/channel/UCy [...] UwOtLaYKw/
n°1181352
thomasa64
Posté le 12-09-2017 à 14:25:48  profilanswer
 

Bonjour à tous et toutes, je suis actuellement en poste sur CATIA V5R19, je ne trouve pas l'option pour vérifier si les surfaces sont parallèles ou pas dans le drawing, pourriez vous m'aider svp. ce sont des pièces urgentes. Merci d'avance   :)  

n°1181772
klt-baha
catia v5
Posté le 12-11-2017 à 16:12:33  profilanswer
 

bonjour,  
 
je n'arrive pas à trouver le moyen pour activer l'outil "analyse esquisse" sur catia v5
merci d'avance

n°1181773
Cars_F
Duc de Normandie
Posté le 12-11-2017 à 16:55:58  profilanswer
 

Outils -> Analyse d'esquisse, normalement. :jap:

n°1181897
bignou03
Posté le 25-11-2017 à 14:51:21  profilanswer
 

Bonjour,
 
je viens vous solliciter, car je me trouve bloqué pour la modélisation d'un engrenage dit 'à roue creuse'.
- Modélisation d'un engrenage à denture droite : OK
- Modélisation d'un engrenage à denture hélicoïdale : OK
 
Par contre pour modéliser une roue creuse à denture hélicoïdale, je n'arrive pas à trouver une méthodologie.
L'un d'entre vous pourrait-il me venir en aide ?
Merci d'avance et bon WE
-

n°1181963
adri059
Posté le 04-12-2017 à 13:50:40  profilanswer
 

Bonjour à tous!
 
Je me tourne vers votre expérience car je n'ai personne dans mon entourage capable de m'aider concrètement.
 
J'ai un STL importé dans Catia, et l'objectif est d'en extraire les surfaces le plus fidèlement possible, le but étant de créer un volume à partir de ces surfaces. Pour info, c'est un carénage de train d'atterrissage principal, le modèle surfacique (ou volumique, à voir ce qui sera le plus simple) extrait sera découpé et optimiser (fixation/montage/fabrication).
 
J'ai commencé par nettoyer le maillage, mais je ne l'ai pas remaillagé, car le résulat ne correspond pas à la géométrie de mon modèle. Le modèle étant assez complèxe, j'ai utilisé la "Brosse" et la "Trappe" de la fonction "Activé" dans le module Quick Surface Reconstruction. J'en ai extrait des surfaces, mais elle ne sont pas propre.  
Je bloque assez rapidement, n'ayant pas d'expérience en rétro-conception.
 
Merci beaucoup par avance en tout cas!  
 
 
 
Voici un aperçu du modèle et du peu de travail que j'ai réalisé:
 
 
http://zupimages.net/up/17/49/lfa4.png

n°1182033
Mr-blonde
Posté le 18-12-2017 à 14:53:46  profilanswer
 

Bonjour
 
Je n'arrive pas à paramétrer le module "PipingDesign" avec le catalogue de composants dont je dispose...
Quelqu'un connait un peu se module? et si oui, seriez vous comment faire que lorsque je veux insérer une part (fonction: "Place Piping Part" ) qu'il me propose mon catalogue?
 
En vous remerciant d'avance :)

n°1182159
marion115
Posté le 08-01-2018 à 14:16:47  profilanswer
 

Bonjour,
 
je suis bloquée sur une création de développés Catia.
Explication :  
J'ai une bâche confectionnée en forme à mettre à plat pour réaliser un fichier de découpe.
La bâche principale en forme est dessinée sur un repère qui est différent des repères des pièces assemblées dessus.
Ma problématique est de conserver la position de ces pièces rapportées pour apparaitre sur mon fichier de découpe.
Extraire les surfaces et les coller dans la pièce principale ne fonctionne pas en raison de ces repère qui ne correspondent pas les uns avec les autres (la surface collée apparait n'importe où).
 
Je ne sais pas si je suis bien claire?
Quelqu'un sait comment procéder de manière simple?
 
Merci par avance pour vos retours !

Message cité 1 fois
n°1182212
RnObx
Posté le 19-01-2018 à 15:41:40  profilanswer
 

marion115 a écrit :

Bonjour,
 
je suis bloquée sur une création de développés Catia.
Explication :  
J'ai une bâche confectionnée en forme à mettre à plat pour réaliser un fichier de découpe.
La bâche principale en forme est dessinée sur un repère qui est différent des repères des pièces assemblées dessus.
Ma problématique est de conserver la position de ces pièces rapportées pour apparaitre sur mon fichier de découpe.
Extraire les surfaces et les coller dans la pièce principale ne fonctionne pas en raison de ces repère qui ne correspondent pas les uns avec les autres (la surface collée apparait n'importe où).
 
Je ne sais pas si je suis bien claire?
Quelqu'un sait comment procéder de manière simple?
 
Merci par avance pour vos retours !


 
Si je prend exemple d'un piece tole pliée, c'est les meme soucis, tes "pieces rapportées" doivent faire partir du body... et pas de body ou part a part. Tu dois donc insérés tes "features" dans le coprs principal. Pour qu'elles soient liées et non positionnés dans le 3D.  
Tout ca est théorique et à vérifier/tester.


---------------
Hum a koi ca sert ce fil????
n°1182225
Bosskila
C'est toi la taupe?
Posté le 22-01-2018 à 15:07:22  profilanswer
 

Bonjour,
 
J'ai un fichier .dwg provenant d'Autocad, j’essaie de le lire avec Catia v5 mais j'ai l'erreur suivante : "Le fichier DWG/DXF n'est pas valide ou provient d'une version non prise en  charge."
 
Ce message m'a l'air assez floue, la version de Catia? D'Autocad? Quel version faudrait-il prendre? [:juppax:3]  Tant d'interrogation.


---------------
"La colonisation est un partage de culture." (François Fillon)
n°1182226
Bosskila
C'est toi la taupe?
Posté le 22-01-2018 à 15:47:37  profilanswer
 

Bon problème réglé, je suis passé par Autodesk pour convertir le .dwg d'Autocad en format 2007.


---------------
"La colonisation est un partage de culture." (François Fillon)
n°1182312
jerome51
Posté le 06-02-2018 à 11:35:43  profilanswer
 

Bonjour,
 
Voilà : par défaut, à l'ouverture d'un fichier CAT*, Catia assigne le parametre REFERENCE du fichier CAT* au nom de la fenetre qu'il ouvre.
Comment modifier ce réglage pour qu'il affiche d'autre parametres comme la REVISION ou la DESCRIPTION ou la DEFINITION ou un combo de ces paramètres ?
 
Merci à tous

n°1182314
Pims_UTT
Génoise confiture et chocolat
Posté le 06-02-2018 à 14:16:15  profilanswer
 

C'est pas le nom du fichier ouvert normalement? :??:

n°1182343
jerome51
Posté le 12-02-2018 à 20:26:25  profilanswer
 

Oui c'est ça, ce qui revient au même.
mais savez-vous s'il est possible d'ajouter d'autres attributs ?

n°1182458
chycho
The cake is a lie
Posté le 01-03-2018 à 22:54:33  profilanswer
 

Bonsoir à tous, j'aurais voulu savoir s'il était possible de retirer directement en créant/modifiant un sketch les flèches jaunes "horizontal" H et "vertical" V?  
J'utilise toujours mon système de coordonnées absolu ou local pour mes cotes du coup je n'en ai aucune utilité, et sur des pièces complexes je me retrouve avec une centaine de ces flèches en show ou noshow.
Merci de votre aide, bonne soirée!

n°1182900
Pims_UTT
Génoise confiture et chocolat
Posté le 17-05-2018 à 11:30:04  profilanswer
 

Bonjour,
 
Petit sondage, comment vous faites pour créer du texte en 3D? Ce sujet est un vieux serpent de mer et il est remonté à la surface hier :o
 
Il y a la méthode drawing+DXF+copier-coller, la macro de Mr Blonde en page précédente... Est-ce que vous connaissez d'autres trucs et astuces, des modules spécifiques ou autres pour ça?
 
Pour le moment, je suis en mode recherche d'infos. Merci d'avance.

n°1182942
ptittom
Posté le 22-05-2018 à 08:39:29  profilanswer
 

Bonjour,
 
1. Méthode en passant par un DXF copié dans un sketch. Avantage: assez flexible pour les propriétés du texte. Inconvénient: 10.000 étapes pour obtenir son texte.
2. une PowerCopy que j'ai faite pour un client, où un alphabet est inclus et le texte est généré (Axis-to-axis au bon endroit, à la bonne taille) par une règle. Avantage: on peut modifer le texte après coup. Inconvénient: un seule police de caractères.
3. Type3: c'est un programme en CAA qui permet de créer du texte ou des logo. C'est un peu la rolls pour ce genre de chose. Avantage: super facile. Inconvénient: c'est cher.
 

Message cité 1 fois
n°1182944
Mr-blonde
Posté le 22-05-2018 à 11:07:05  profilanswer
 

ptittom a écrit :

Bonjour,
 
1. Méthode en passant par un DXF copié dans un sketch. Avantage: assez flexible pour les propriétés du texte. Inconvénient: 10.000 étapes pour obtenir son texte.
2. une PowerCopy que j'ai faite pour un client, où un alphabet est inclus et le texte est généré (Axis-to-axis au bon endroit, à la bonne taille) par une règle. Avantage: on peut modifer le texte après coup. Inconvénient: un seule police de caractères.
3. Type3: c'est un programme en CAA qui permet de créer du texte ou des logo. C'est un peu la rolls pour ce genre de chose. Avantage: super facile. Inconvénient: c'est cher.
 


 
Bonjour,
T'as Copie Optimisée m'intéresse beaucoup, serais tu prêt à la partager?  
Merci

n°1182949
Pims_UTT
Génoise confiture et chocolat
Posté le 22-05-2018 à 14:31:49  profilanswer
 

Merci :jap:
Je vais regarder tout ça.

n°1182987
Mr-blonde
Posté le 29-05-2018 à 16:02:33  profilanswer
 

Bonjour
 
Une idée pour faire un "éclaté" assez rapidement avec une part composée de +1000Corps?
Ok en assemblage avec les scenes, mais en Part...??
 
Merci

Message cité 1 fois
n°1183038
ptittom
Posté le 13-06-2018 à 08:41:33  profilanswer
 

Mr-blonde a écrit :

Bonjour
 
Une idée pour faire un "éclaté" assez rapidement avec une part composée de +1000Corps?
Ok en assemblage avec les scenes, mais en Part...??
 
Merci


 
Il y a des Macros pour transformer des Parts en Products (en gros, c'est du copier/coller des Body dasn de nouvelles parts). Après, tu pourrais passer par la méthode classique des scènes.
 
genre ceci (pas testé, trouvé sur le site cad.de):

Code :
  1. '------------------------------------------------------------
  2. ' original Makroname = KopyPARTtoPRODUCT.CATScript
  3. ' Makroname = PARTtoPRODUCT_R16_hybrid_4.CATScript
  4. '
  5. ' Author:   Filippo Gozza
  6. ' Version:  V5R10, V5R12
  7. '
  8. ' angepasst an V5R16    -   Lusilnie@cad.de
  9. ' Erweiterung GeoSets   -   Lusilnie@cad.de
  10. ' PartBody tauschen     -   Lusilnie@cad.de
  11. ' Korrekturen           -   denyo_1@cad.de
  12. ' Korrekturen           -   Lusilnie@cad.de
  13. '------------------------------------------------------------
  14. ' Konvertiert ein CATPart in ein CATProduct
  15. ' Alle Koerper werden in CATPart's konvertiert
  16. ' Erweiterung: Alle GeoSets werden auch in CATPart's kopiert
  17. '------------------------------------------------------------
  19. Language = "VBSCRIPT"
  21. Dim KomponenteNeu As Products
  22. Dim KoerperName
  23. Dim OpenKoerperName
  24. Dim hybridBodies As document
  25. Dim Koerper  As Object
  26. Dim QuellFenster As Window
  27. Dim Letztekoerper
  28. Dim UserSel As selection
  31. Sub CATMain()
  32.    
  33.     Dim Activdocu As document
  34.     Set Activdocu = CATIA.ActiveDocument
  35.    
  36.     '---------------------------------------------------
  37.     ' Neue Product
  38.     '---------------------------------------------------
  39.     Dim PosString As Long
  40.    
  41.     partName = CATIA.ActiveDocument.Name
  42.    
  43.     Dim docu As Documents
  44.     Set docu = CATIA.Documents
  45.    
  46.     Dim productDocu As document
  47.     Set productDocu = docu.Add("Product" )
  48.    
  49.     Dim ProductNeu  As product
  50.     Set ProductNeu = productDocu.product
  51.    
  52.     PosString = InStr(1, partName, ".CATPart" )
  53.     ProductNeu.PartNumber = Mid(partName, 1, PosString - 1)
  54.     '------------------------------------------------------
  55.    
  56.     FensterNebeneinander
  57.    
  58.     Set QuellFenster = CATIA.Windows.Item(1)
  59.     QuellFenster.Activate
  60.    
  61.     Dim partBodies As Bodies
  62.     'Set Activdocu = CATIA.ActiveDocument
  63.     Set partBodies = Activdocu.Part.Bodies
  64.    
  65.     Dim koerperAnzahl
  66.     koerperAnzahl = partBodies.Count
  67.    
  68.     Dim UserSel As Object
  69.     Dim PartNeu As product
  70.     Dim workPart As PartDocument
  71.     For I = 1 To koerperAnzahl
  72.        
  73.         Set Koerper = partBodies.Item(I)
  74.         KoerperName = Koerper.Name
  75.        
  76.         If Right(KoerperName, 1) = "\" Then
  77.             KoerperName = Left(KoerperName, Len(KoerperName) - 1)
  78.         End If
  79.        
  80.         KoerperName = Replace(KoerperName, "\", "_" )
  81.        
  82.         'Koerper kopieren
  83.         Activdocu.selection.Clear
  84.         Activdocu.selection.Add Koerper
  85.         Activdocu.selection.Copy
  86.         Activdocu.selection.Clear
  87.        
  88.         'Part erzeugen und Koerper einfuegen
  89.         On Error Resume Next
  90.         Set PartNeu = ProductNeu.Products.AddNewComponent("Part", CStr(KoerperName))
  91.         If Err.Number <> 0 Then
  92.             On Error GoTo 0
  93.             l = ProductNeu.Products.Count
  94.             Set PartNeu = ProductNeu.Products.Item(l)
  95.             KoerperName = KoerperName & "." & I
  96.             PartNeu.PartNumber = KoerperName
  97.             ProductNeu.Products.Item(l).Name = KoerperName & ".1"
  98.         Else
  99.             On Error GoTo 0
  100.         End If
  101.        
  102.         ' Fenster mit neue Product activieren
  103.         ProductNeu.Parent.Activate
  104.        
  105.         ' Alle Parts suchen
  106.         PartSuchen ProductNeu.Parent, UserSel
  107.        
  108.         'ProductNeu.parent.Selection.Clear
  109.         'ProductNeu.parent.Selection.Add UserSel.Item(UserSel.Count).Value
  110.         ProductNeu.Parent.selection.Clear
  111.         ProductNeu.Parent.selection.Add ProductNeu.Products.Item(PartNeu).ReferenceProduct.Parent.Part
  112.         ' Variante 1: Einfuegen "wie vorhanden"
  113.         'ProductNeu.Parent.selection.Paste
  114.         ' Variante 2: Einfuegen als "toter Solid"
  115.         ProductNeu.Parent.selection.PasteSpecial "CATPrtResultWithOutLink"
  116.         ProductNeu.Parent.selection.Clear
  117.        
  118.         'eingefuegten Koerper zum PartBody machen und Ex-PartBody loeschen
  119.         Set workPart = ProductNeu.Products.Item(PartNeu).ReferenceProduct.Parent
  120.         If workPart.Part.Bodies.Count > 1 Then
  121.             workPart.Part.MainBody = workPart.Part.Bodies.Item(workPart.Part.Bodies.Count)
  122.             ProductNeu.Parent.selection.Add workPart.Part.Bodies.Item(1)
  123.             ProductNeu.Parent.selection.Delete
  124.             ProductNeu.Parent.selection.Clear
  125.         End If
  126.        
  127.     Next
  128.    
  129.     Dim hybridBodies As hybridBodies
  130.     'Set Activdocu = CATIA.ActiveDocument
  131.     Set hybridBodies = Activdocu.Part.hybridBodies
  132.    
  133.     koerperAnzahl = hybridBodies.Count
  134.    
  135.     For I = 1 To koerperAnzahl
  136.        
  137.         Set Koerper = hybridBodies.Item(I)
  138.         KoerperName = Koerper.Name
  139.        
  140.         If Right(KoerperName, 1) = "\" Then
  141.             KoerperName = Left(KoerperName, Len(KoerperName) - 1)
  142.         End If
  143.        
  144.         KoerperName = Replace(KoerperName, "\", "_" )
  145.        
  146.         'Koerper kopieren
  147.         Activdocu.selection.Clear
  148.         Activdocu.selection.Add Koerper
  149.         Activdocu.selection.Copy
  150.         Activdocu.selection.Clear
  151.        
  152.         'Part erzeugen und Koerper einfuegen
  153.         Set PartNeu = ProductNeu.Products.AddNewComponent("Part", CStr(KoerperName))
  154.        
  155.         ' Fenster mit neue Product activieren
  156.         ProductNeu.Parent.Activate
  157.        
  158.         ' Alle Parts suchen
  159.         PartSuchen ProductNeu.Parent, UserSel
  160.        
  161.         'ProductNeu.parent.Selection.Clear
  162.         'ProductNeu.parent.Selection.Add UserSel.Item(UserSel.Count).Value
  163.         ProductNeu.Parent.selection.Clear
  164.         ProductNeu.Parent.selection.Add ProductNeu.Products.Item(PartNeu).ReferenceProduct.Parent.Part
  165.         ' Variante 1: Einfuegen "wie vorhanden"
  166.         'ProductNeu.Parent.selection.Paste
  167.         ' Variante 2: Einfuegen als "totes Element"
  168.         ProductNeu.Parent.selection.PasteSpecial "CATPrtResultWithOutLink"
  169.         ProductNeu.Parent.selection.Clear
  170.        
  171.     Next
  172.    
  173.     ' Product actualisieren
  174.     ProductNeu.ApplyWorkMode DESIGN_MODE
  175.     On Error Resume Next
  176.     ProductNeu.Update
  177.     If Err <> 0 Then
  178.         MsgBox "Problem with update!" & vbLf & vbLf & "Please update manual!", vbCritical + vbOKOnly, "Update-Error"
  179.     End If
  180.     On Error GoTo 0
  181.    
  182. End Sub
  185. Sub PartSuchen(oPartDoc1, UserSel)
  186.    
  187.     Dim E As Object 'CATBSTR
  188.     Dim Was(0)
  189.     Was(0) = "Part"
  190.    
  191.     'Dim UserSel As Object
  192.     Set UserSel = oPartDoc1.selection
  193.     UserSel.Clear
  194.    
  195.     'Let us first fill the CSO with all the objects of the model
  196.     UserSel.Search ("CATPrtSearch.PartFeature,all" )
  197.    
  198.     'E = UserSel.SelectElement2(Was, "Alle CATPart wählen", True)
  199.     'Letztekoerper = UserSel.Count
  200.    
  201. End Sub
  204. Sub FensterNebeneinander()
  205.    
  206.     Dim windows1 As Windows
  207.     Set windows1 = CATIA.Windows
  208.    
  209.     windows1.Arrange catArrangeTiledVertical
  210.    
  211. End Sub

Message cité 1 fois
n°1183039
Cars_F
Duc de Normandie
Posté le 13-06-2018 à 08:58:19  profilanswer
 

ptittom a écrit :


[/cpp]


Dans V6, t'as une option dans le menu contextuel pour passer en product.

Message cité 1 fois
Message édité par Cars_F le 13-06-2018 à 09:00:01
n°1183040
Pims_UTT
Génoise confiture et chocolat
Posté le 13-06-2018 à 10:29:57  profilanswer
 

Les commentaires et les noms de variables en allemand  [:moonblood12:2]

Message cité 1 fois
n°1183041
Mr-blonde
Posté le 13-06-2018 à 11:15:32  profilanswer
 

Merci ptittom!

 

Bon, je n'arrive pas à faire fonctionner cette macro...

 

En revanche j'ai trouvé une méthode qui fonctionne :

 

1- enregistrer la Part en .modele (V4 quoi)
2- l'ouvrir et utiliser l'outil "Send to V4ToV5Migration"
3- Choisir "Solide" dans l'élément de structuration
4- C'est fait, la Part est convertie en Product (chaque Corps devient une pièce)

 

Voila, moins simple qu'une macro, mais fonctionne très bien ;)

 

(si qq'un a moyen via une macro (ou un tuto de celle de ptittom ;) ) je suis preneur !!  )


Message édité par Mr-blonde le 13-06-2018 à 21:27:20
n°1183107
ptittom
Posté le 26-06-2018 à 13:22:50  profilanswer
 

Cars_F a écrit :


Dans V6, t'as une option dans le menu contextuel pour passer en product.


 
Merci pour l'info. Je ne savais pas.
 

Pims_UTT a écrit :

Les commentaires et les noms de variables en allemand  [:moonblood12:2]


 
3615 Mylife: je bosse en Allemagne. Je ne fais même plus attention.
Le forum cad.de est assez pointu pour les question Catia. C'est une bonne source pour les germanophones.
 
Pour la macro: je viens de tester en l'enregistrant comme un catscript (extension*.catscript) et je n'ai pas de problème pour la lancer. Il faut que la part de départ soit ouverte dans catia. Ensuite, double Click sur la macro.
Je case ici une version raccourcie: les geometrical sets ne sont plus pris en compte. Pour les allergique au teuton, j'ai modifié les nom de variable et les commentaires.

Code :
  1. Language = "VBSCRIPT"
  2. Dim NewComponents As Products
  3. Dim BodyName
  4. Dim OpenBodyName
  5. Dim hybridBodies As document
  6. Dim oBody  As Object
  7. Dim SourceWindow As Window
  8. Dim LetzteoBody
  9. Dim UserSel As selection
  10. Sub CATMain()
  11.  
  12.     Dim ActiveDocument As document
  13.     Set ActiveDocument = CATIA.ActiveDocument
  14.  
  15.     '---------------------------------------------------
  16.     ' New Product
  17.     '---------------------------------------------------
  18.     Dim PosString As Long
  19.  
  20.     partName = CATIA.ActiveDocument.Name
  21.  
  22.     Dim DocumentsList As Documents
  23.     Set DocumentsList = CATIA.Documents
  24.  
  25.     Dim productDocu As document
  26.     Set productDocu = DocumentsList.Add("Product" )
  27.  
  28.     Dim NewProduct  As product
  29.     Set NewProduct = productDocu.product
  30.  
  31.     PosString = InStr(1, partName, ".CATPart" )
  32.     NewProduct.PartNumber = Mid(partName, 1, PosString - 1)
  33.     '------------------------------------------------------
  34.  
  35.     SplitWindowMode
  36.  
  37.     Set SourceWindow = CATIA.Windows.Item(1)
  38.     SourceWindow.Activate
  39.  
  40.     Dim BodyList As Bodies
  41.     'Set ActiveDocument = CATIA.ActiveDocument
  42.     Set BodyList = ActiveDocument.Part.Bodies
  43.  
  44.     Dim NumberBodies
  45.     NumberBodies = BodyList.Count
  46.  
  47.     Dim UserSel As Object
  48.     Dim NewPart As product
  49.     Dim workPart As PartDocument
  50.     For I = 1 To NumberBodies
  51.      
  52.         Set oBody = BodyList.Item(I)
  53.         BodyName = oBody.Name
  54.      
  55.         If Right(BodyName, 1) = "\" Then
  56.             BodyName = Left(BodyName, Len(BodyName) - 1)
  57.         End If
  58.      
  59.         BodyName = Replace(BodyName, "\", "_" )
  60.      
  61.         'Copy Body
  62.         ActiveDocument.selection.Clear
  63.         ActiveDocument.selection.Add oBody
  64.         ActiveDocument.selection.Copy
  65.         ActiveDocument.selection.Clear
  66.      
  67.         'insert part and paste body
  68.         On Error Resume Next
  69.         Set NewPart = NewProduct.Products.AddNewComponent("Part", CStr(BodyName))
  70.         If Err.Number <> 0 Then
  71.             On Error GoTo 0
  72.             l = NewProduct.Products.Count
  73.             Set NewPart = NewProduct.Products.Item(l)
  74.             BodyName = BodyName & "." & I
  75.             NewPart.PartNumber = BodyName
  76.             NewProduct.Products.Item(l).Name = BodyName & ".1"
  77.         Else
  78.             On Error GoTo 0
  79.         End If
  80.      
  81.         ' activate product window
  82.         NewProduct.Parent.Activate
  83.      
  84.         ' search all parts
  85.         PartSearch NewProduct.Parent, UserSel
  86.      
  87.        
  88.         NewProduct.Parent.selection.Clear
  89.         NewProduct.Parent.selection.Add NewProduct.Products.Item(NewPart).ReferenceProduct.Parent.Part
  90.         NewProduct.Parent.selection.PasteSpecial "CATPrtResultWithOutLink"
  91.         NewProduct.Parent.selection.Clear
  92.      
  93.         'Make the new body the mainbody and delete the old mainbody
  94.         Set workPart = NewProduct.Products.Item(NewPart).ReferenceProduct.Parent
  95.         If workPart.Part.Bodies.Count > 1 Then
  96.             workPart.Part.MainBody = workPart.Part.Bodies.Item(workPart.Part.Bodies.Count)
  97.             NewProduct.Parent.selection.Add workPart.Part.Bodies.Item(1)
  98.             NewProduct.Parent.selection.Delete
  99.             NewProduct.Parent.selection.Clear
  100.         End If
  101.      
  102.     Next
  103.  
  105.    
  106.  
  107.     ' Product update
  108.     NewProduct.ApplyWorkMode DESIGN_MODE
  109.     On Error Resume Next
  110.     NewProduct.Update
  111.     If Err <> 0 Then
  112.         MsgBox "Problem with update!" & vbLf & vbLf & "Please update manually!", vbCritical + vbOKOnly, "Update-Error"
  113.     End If
  114.     On Error GoTo 0
  115.  
  116. End Sub
  117. Sub PartSearch(oPartDoc1, UserSel)
  118.  
  119.     Dim E As Object 'CATBSTR
  120.     Dim Was(0)
  121.     Was(0) = "Part"
  122.  
  123.     'Dim UserSel As Object
  124.     Set UserSel = oPartDoc1.selection
  125.     UserSel.Clear
  126.  
  127.     'Let us first fill the CSO with all the objects of the model
  128.     UserSel.Search ("CATPrtSearch.PartFeature,all" )
  129.  
  130.     'E = UserSel.SelectElement2(Was, "Alle CATPart wählen", True)
  131.     'LetzteoBody = UserSel.Count
  132.  
  133. End Sub
  134. Sub SplitWindowMode()
  135.  
  136.     Dim windows1 As Windows
  137.     Set windows1 = CATIA.Windows
  138.  
  139.     windows1.Arrange catArrangeTiledVertical
  140.  
  141. End Sub


 

  • Copier / coller le code dans un fichier texte.  
  • Enregistrer le tout avec l'extension .catscript: par exemple Part2Product.catscript.
  • Ouvrir CATIA, charger la part avec les bodies à convertir
  • double-clic sur la macro Part2Product.catscript
  • c'est tout. Normalement, CATIA crée un nouveau produit et crée une part par body en y copiant la géométrie.

Message cité 1 fois
n°1183108
Cars_F
Duc de Normandie
Posté le 26-06-2018 à 13:57:01  profilanswer
 

ptittom a écrit :

 

Merci pour l'info. Je ne savais pas.

 



Faut faire gaffe quand même, dès que tu l'as fait, tu peux pas revenir en arrière. :o

n°1183151
mletd
Posté le 03-07-2018 à 17:05:08  profilanswer
 

Bonjour tout le monde !
Je suis un peu débutant sur Catia et en CAO en général. En gros pour la mise en plan d´une de mes pièces j´ai plein de trous dont il manque les coordonnées. Pour certains, j´aimerais juste dire qu´ils sont à X mm d´un autre et que la droite traversant les trous par leur centre forme un angle de 45° avec le bord de pièce.
Y a-t-il une autre méthode que de créer par dessus une droite passant par ces trous et de coter pour celle-ci ledit angle de 45° ?
Je trouve pas ca très élégant d´autant plus que ca me fait créer une droite qui n´existe pas vraiment dans la géométrie...
Merci d´avance !

Message cité 1 fois

---------------
a+ les pros
n°1183153
Cars_F
Duc de Normandie
Posté le 03-07-2018 à 17:34:33  profilanswer
 

mletd a écrit :

Bonjour tout le monde !
Je suis un peu débutant sur Catia et en CAO en général. En gros pour la mise en plan d´une de mes pièces j´ai plein de trous dont il manque les coordonnées. Pour certains, j´aimerais juste dire qu´ils sont à X mm d´un autre et que la droite traversant les trous par leur centre forme un angle de 45° avec le bord de pièce.
Y a-t-il une autre méthode que de créer par dessus une droite passant par ces trous et de coter pour celle-ci ledit angle de 45° ?
Je trouve pas ca très élégant d´autant plus que ca me fait créer une droite qui n´existe pas vraiment dans la géométrie...
Merci d´avance !


En gros, si je comprends bien, t'as fait des trous fraisés et tu as des chanfreins à 45° ? Il faut les coter comme des chanfreins.

 

Dans ta mise en plan, tu as un outil de cotation de chanfrein dans le sous menu où tu cotes une dimension "classique".

Message cité 1 fois
n°1183155
mletd
Posté le 04-07-2018 à 10:20:30  profilanswer
 

Cars_F a écrit :


En gros, si je comprends bien, t'as fait des trous fraisés et tu as des chanfreins à 45° ? Il faut les coter comme des chanfreins.
 
Dans ta mise en plan, tu as un outil de cotation de chanfrein dans le sous menu où tu cotes une dimension "classique".


 
Non en fait je n´est pas de chanfreins. J´ai juste placés des trous les uns à côté des autres sur une même ligne. Cette ligne n´est pas parallèle à quoi que ce soit, elle forme un angle de 45° avec une arrête, angle que je voudrqis représenter sur mon dessin.
|
| X
|    X                (en gros ce serait comme ca)
|       X
|          X
|________X_____

Message cité 2 fois
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  ..  233  234  235  236  237  238
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

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

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.240 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR