Enregistrer sous PDF, noir et blanc

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

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

merci de ton aide,

il m'affiche une erreur dès le debut

sur la ligne

Code:

Dim settingControllers1 As SettingControllers

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

oui désolé

Code:

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

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.

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")

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

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

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.

ok pas de soucis pour passer en VBA

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

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

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


Dim drawingDocument1 As Document

et aussi

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

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

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

oui un draw est bien lancé à chaque éssais

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

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)

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_ 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"

É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 ?

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

t'as quelle licence ?

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

j'ai une license HD2 et windows xp