Charger draw sans lien dans catia.

[dit_lechat]

Bonjour a tous,

 

Je cherche a ouvrir des CATDrawing sans charger le 3D et surtout sans avoir à décocher l'option "Chargement des documents référencés" du panneau de configuration de Catia.

 

Est-ce que quelqu'un aurait un code pour ca???

 

Merci d'avance!

[mooneck]

Bonjour a tous,

 

Je cherche a ouvrir des CATDrawing sans charger le 3D et surtout sans avoir à décocher l'option "Chargement des documents référencés" du panneau de configuration de Catia.

 

Est-ce que quelqu'un aurait un code pour ca???

 

Merci d'avance!

 

Bonjour,

 

 

 

la réponse est dans la question, je ne sais pas quel est ton but, si c'est douvrir un draw a travers une macro pour le traiter derriere avec des taches automatisées.

 

Si c'est ca, tu peux enregistrer une macro, puis dans les options tu coches et tu décoche l'otion "Chargement des documents références".

 

Comme tu obtiendra le bout de code correspondant. Dans ta macro tu fais la meme chose, tu désactives l'option, tu ouvres ton draw, tu fais le traitement que tu veux, puis tu ferme le draw et tu reactives l'option.

 

Cdt,

 

@+

[dit_lechat]

Bonjour mooneck et merci pour ta réponse.

 

Mon but est de pouvoir consulter ponctuellement des catdrawing rapidement sans avoir un temps de chargement trop long du au chargement de 3d lié volumineux.

 

Ma macro doit donc:

-Désactiver l'option de chargement des docs referencés

-Me permettre de choisir un catdrawing a ouvrir et l'ouvrir.

-Réactiver l'option de chargement des docs référencés

 

 

J'ai suivi ton conseil et j'ai enregistré une macro qui désactive l'option et une autre qui la réactive.

Entre les deux j'essaye d'utiliser la méthode FileSelectionBox, mais sans succès.

 

 

Voici mon code :

 

 

Language="VBSCRIPT"

 

Sub CATMain()

 

'Désactive l'option de chargement des docs referencés

 

Set settingControllers1 = CATIA.SettingControllers

 

Set disconnectionSettingAtt1 = settingControllers1.Item("CATSysDisconnectionSettingCtrl")

 

disconnectionSettingAtt1.InactivityDuration = 1800

 

Set memoryWarningSettingAtt1 = settingControllers1.Item("CATSysMemoryWarningSettingCtrl")

 

memoryWarningSettingAtt1.UsageLimit = 70

 

Set generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")

 

generalSessionSettingAtt1.RefDoc = False

 

generalSessionSettingAtt1.SaveRepository

 

disconnectionSettingAtt1.SaveRepository

 

memoryWarningSettingAtt1.SaveRepository

 

 

 

 

'Choix du catdrawing a ouvrir

 

Set FileSys = CATIA.FileSystem

 

FPath = CATIA.FileSelectionBox("Select a CATDrwing", "*.CATDrawing", CatFileSelectionModeOpen)

 

Set Doc = CATIA.Documents.Open(FileSys.GetFile(fpath)) 'ICI SE TROUVE L'ERREUR

 

 

 

 

'Réactive l'option de chargement des docs referencés

 

disconnectionSettingAtt1.InactivityDuration = 1800

 

memoryWarningSettingAtt1.UsageLimit = 70

 

generalSessionSettingAtt1.RefDoc = True

 

generalSessionSettingAtt1.SaveRepository

 

disconnectionSettingAtt1.SaveRepository

 

memoryWarningSettingAtt1.SaveRepository

 

End Sub

 

 

Si tu as une idée, merci d'avance!!!

 

A+