Enregistrer sous PDF, noir et blanc

Page 1 sur 2 1, 2  Suivant

Voir le sujet précédent Voir le sujet suivant Aller en bas

EnCours Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 16 Avr 2013 - 19:28

Bonjour, tout le monde

voila j'ai fait une macro qui me sert à exporter en PDF un draw, et l'enregistre dans le même dossier que le .Catdrawing

ma question est, que est la commande pour activé/désactivé le mode analyse, pour faire apparaître toutes les cotes en noir et blanc ?
pour que quand je lance la macro, il désactive le mode, export en PDF, puis remet le mode
(évidement je pourrais le faire manuellement, mais souvent dans l'élan j'oublie)

voici la macro en question
Code:


Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

toto = Left(drawingDocument1.Name, Len(drawingDocument1.Name) - 11) 'on supprime l'extension .CATDrawing (11 caractères)

drawingDocument1.ExportData drawingDocument1.Path & "\" & toto & ".pdf", "pdf"

End Sub

merci d'avance

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Lun 22 Avr 2013 - 23:47

Salut, je suis tombé sur des infos interessantes l'autre jours qui permettait d'extraire les config catia sous la forme d'un vbscript

Voici un code qui permet de changer l'etat du mode analyse
Code:

' déclaration des variables
Dim settingControllers1 As SettingControllers
Dim settingRepository1 As SettingRepository
Dim boolean61 As Boolean

'chargement des variables
Set settingControllers1 = CATIA.SettingControllers
Set settingRepository1 = settingControllers1.Item("DraftingOptions")

'on récupère l'état du mode analyse dans la variable "boolean61"
boolean61 = settingRepository1.GetAttr("DimDesignMode")

' si "boolean61" = true on le passe à false et inversement
If boolean61 Then
settingRepository1.PutAttr "DimDesignMode", False
Else
settingRepository1.PutAttr "DimDesignMode", True
End If
' on affiche l'état du mode d'analyse
MsgBox settingRepository1.GetAttr("DimDesignMode")

'on enregistre les paramètres en mémoire pour les appliquer à la session en cours
settingRepository1.Commit



Donc typiquement ton code devrait être
Code:
Sub CATMain()
' déclaration des variables
Dim settingControllers1 As SettingControllers
Dim settingRepository1 As SettingRepository

'chargement des variables
Set settingControllers1 = CATIA.SettingControllers
Set settingRepository1 = settingControllers1.Item("DraftingOptions")

Set drawingDocument1 = CATIA.ActiveDocument
' on desactive le mode  analyse
settingRepository1.PutAttr "DimDesignMode", False
settingRepository1.Commit

' on exporte en PDF
toto = Left(drawingDocument1.Name, Len(drawingDocument1.Name) - 11) 'on supprime l'extension .CATDrawing (11 caractères)

drawingDocument1.ExportData drawingDocument1.Path & "\" & toto & ".pdf", "pdf"

' On repasse en mode analyse
settingRepository1.PutAttr "DimDesignMode", True
settingRepository1.Commit
End Sub

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 0:20

merci de ton aide,

il m'affiche une erreur dès le debut

sur la ligne
Code:
Dim settingControllers1 As SettingControllers

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 0:21

Quelle erreur (je peux pas le deviner ...)

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 0:42

oui désolé

Code:
source: erreur de compilation microsoft vbscript
description : fin d'instruction attendue

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 0:48

Ah ok tu fais du VBscript et pas du VBA

Donc enlève toutes les lignes commençant par DIM

En VBS il n'y a pas à déclarer les variable.

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 0:53

oui c'est ne vbs, je n'avais pas précisé

en retirant les lignes comme tu m'as dis j'ai une autre erreur

Code:
source: CATIAsettingcontrollers
description: la methode item a échoué

sur

Set settingRepository1 = settingControllers1.Item("DraftingOptions")

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 0:58

Remplace Item par GetItem

Il me smelbe que ça doit le faire comme ça

Y a pas mal de limitations en VBscript

Perso j'ai passé toutes mes macro en VBA c'est finalement moins contraignant et pour le debuggage un plus plus efficace Wink

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 1:25

même erreur que la précédente avec "GetItem"

c'est plus facile pour la partager en VBS avec les gens qui connaissent rien en imformatique

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 1:40

ah ...

bah alors c'est possible que cette methode ne soit pas dispo en VBscript ...
Si j'ai 5 mins je regarde en testant sur mon poste


Sinon il va falloir passer en VBA

Le VBA n'est pas plus compliqué que le VBScript, l'éditeur est peut être plus imposant mais le langage est le même.


Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 2:29

ok pas de soucis pour passer en VBA

par contre, il ne se passe rien quand je la lance


skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 2:53

lance en pas à pas (touche F8 que tu appuies pour exécuter chaque ligne)


Testes déjà ton code pour voir si tu arrives à exporter ton PDF

Puis après intègre mon code.

N'oublie pas qu'il faut que tu ai un drawing en fenetre active dans catia

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 19:35

je suis perdu, il me sort une erreur sur "activedocument"
compile error;
method or data member not found

Code:

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Path = CATIA.ActiveDocument.Path


Set drawingDocument1 = CATIA.ActiveDocument


' on exporte en PDF
toto = Left(drawingDocument1.Name, Len(drawingDocument1.Name) - 11) 'on supprime l'extension .CATDrawing (11 caractères)

drawingDocument1.ExportData drawingDocument1.Path & "\" & toto & ".pdf", "pdf"


End Sub

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 19:39

Dim drawingDocument1 As Document

et aussi

Path = CATIA.ActiveDocument.Path
path = drawingDocument1.path

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Mar 23 Avr 2013 - 20:12

Code:
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Path = Path
Path = drawingDocument1.Path

même erreur que precedement sur "Set drawingDocument1 = CATIA.ActiveDocument"


et si je fais
Code:
Dim drawingDocument1 As Document
Set drawingDocument1 = Document

erreur: object required

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Mar 23 Avr 2013 - 20:41

Est ce que lorsque tu lances ta macro tu as bien ton drawing d'ouvert en en 1er plan ?

Set drawingDocument1 = CATIA.ActiveDocument

veut dire que drawingDocument1 est égale au document actif dans la fenêtre catia

S'il n'y a aucun document ouvert, forcément il y aura une erreur


Set drawingDocument1 = Document
ne veut rien dire
la variable Document n'est pas définie

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Jeu 25 Avr 2013 - 2:17

oui un draw est bien lancé à chaque éssais

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Jeu 25 Avr 2013 - 3:11

J'avais pas vu tout ton code mais
Set drawingDocument1 = CATIA.ActiveDocument

figure deux fois, il y a une ligne inutile mais sion ça devrait fonctionner.

Malgré ça j'ai fais un copier coller de ton code et ça fonctionne chez moi.

Essaye d'écrire que ces deux lignes :

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument


Après si ça ne marche pas je pige pas

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Jeu 25 Avr 2013 - 19:19

je viens d'essayer comme tu m'as dis
et il me sort l'erreur "method or data member not found"

Code:
Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

End Sub

ça ne pourrait pas venir d'un fichier qui manquerais dans la library ?
(tools, preferences)

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Jeu 25 Avr 2013 - 19:36

Vérifie si toutes les librairies commençant par Cat... sont bien cochées

Sur mon poste j'ai aussi
-Visual basic application
-Ole automation
-Microsoft Scripting Runetime
qui sont cochés

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Jeu 25 Avr 2013 - 19:42

Guss_ a écrit:Vérifie si toutes les librairies commençant par Cat... sont bien cochées

Sur mon poste j'ai aussi
-Visual basic application
-Ole automation
-Microsoft Scripting Runetime
qui sont cochés

pareil que toi, je me souviens quand je lance une macro fait par un collègue, je dois désactivé une donné, car elle est manquante (missing)
pourtant malgré cela je peux quand même lancé ses macro derrière

du coup j'ai pris un de ses projet VBA et rentré la macro, et ma macro PDF fonctionne

donc la macro :
Code:
Public Combobox_Path As String

Sub CATMain()

' déclaration des variables
Dim settingControllers1 As SettingControllers
Dim settingRepository1 As SettingRepository

'chargement des variables
Set settingControllers1 = CATIA.SettingControllers
Set settingRepository1 = settingControllers1.Item("DraftingOptions")

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

'Path = Path
'Path = drawingDocument1.Path

' on desactive le mode  analyse
settingRepository1.PutAttr "DimDesignMode", False
settingRepository1.Commit

' on exporte en PDF
toto = Left(drawingDocument1.Name, Len(drawingDocument1.Name) - 11) 'on supprime l'extension .CATDrawing (11 caractères)

drawingDocument1.ExportData drawingDocument1.Path & "\" & toto & ".pdf", "pdf"

' On repasse en mode analyse
settingRepository1.PutAttr "DimDesignMode", True
settingRepository1.Commit


End Sub


me sort une erreur sur
Code:
Dim settingRepository1 As SettingRepository
"user defined type not found"

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Jeu 25 Avr 2013 - 19:50

Écris simplement :
Dim settingRepository1


C'est moins bien car ça défini une variable qui peut être n'importe quoi, mais du coup t'as pas d'erreur de type non trouvé

Mais c'est bizarre.

Peut être une question de version ou de licence Catia ?

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Jeu 25 Avr 2013 - 20:28

pour changer encore une erreur sur
Code:
Set settingRepository1 = settingControllers1.Item("DraftingOptions")

erreur run time '403'
class does not support automation or doaes not support expected interface

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Guss_ le Jeu 25 Avr 2013 - 20:50

t'as quelle licence ?

ou alors c'est peut être ce bug que tu as
http://support.microsoft.com/kb/2517589

Guss_
Fédérateur
Fédérateur

Messages : 503
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par skara77 le Jeu 25 Avr 2013 - 21:29

j'ai une license HD2 et windows xp

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Enregistrer sous PDF, noir et blanc

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Page 1 sur 2 1, 2  Suivant

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum