Les fichiers PC3

[eagle4]

Salut à tous

 

Je suis toujours sur la configuration des traçage avec VBA ou VB6. Quelle galère !!!!!!!!!!

 

Voici ma questtion : comment charge-t-on les fichiers de config PC3 depuis VBA ou VB6 ?

 

Merci de vos réponses

 

Eagle4

 

 

;)

[Pako]

Cette exemple ajoutera un nouveau traceur (ou imprimante) à la configuration d'impression au dessin courant.

 

Procèdure :

Affiche les noms du traceur de la configuration (.pc3) pour chaque présentation.

Change la configuration du traceur pour la présentation "Layout1" à "Traceur pc3" seulement

Et ré-affiche les informations de configuration (.pc3) pour le dessin.

 

* Noter : Le noms du traceur de la configuration (.pc3) ainsi que le nom de la présentation (layout1) utilisé dans cette exemple, peuvent différer sur votre système.

 

 

Sub Example_ConfigName()

 

....Dim Layouts As AcadLayouts, Layout As ACADLayout

....Dim msg As String

....Dim ACADPref As AcadPreferencesFiles

....Dim originalValue As Variant

 

....' Prend les répétoires de référence d'AutoCAD (options)

....Set ACADPref = ThisDrawing.Application.preferences.Files

 

....' Obtenit la valeur originale (répertoire des .pc3)

....originalValue = ACADPref.PrinterConfigPath

 

....' Pour tous les présentations du dessin courant

....Set Layouts = ThisDrawing.Layouts

 

....' Afficher l'information de la config. du traceur (.pc3) pour chaque présentation

....GoSub DISPLAY_CONFIG

....' Changer la configuration du traceur de la présentation (VOIR *NOTE)

....With ActiveDocument.Layouts("layout1")

.........RefreshPlotDeviceInfo

.........ConfigName = "Traceur.pc3"

....End With

 

....' Ré-afficher l'information de la config. du traceur (.pc3) pour chaque présentation

....GoSub DISPLAY_CONFIG

 

....Exit Sub

 

'Affichage :

DISPLAY_CONFIG:

 

....msg = vbCrLf & vbCrLf ' Commencer avec un espace

 

....msg = msg & vbTab & "Les répertoires qui seront parcourus pour les fichiers de configuration" _

...."de traceur sont: " & vbCrLf & vbTab & vbTab & originalValue & vbCrLf & vbCrLf

 

....For Each Layout In Layouts

........' Format 'affichage

........msg = msg & vbTab & Layout.name & " utilise la configuration: " & Layout.ConfigName &

....................vbCrLf

....Next

 

....' Afficher l'information

....MsgBox "Les informations de configuration de traceur utilisées dans le dessin de courant sont

.................inscrites ci-dessous : " & msg

 

....Return

End Sub

 

http://img151.exs.cx/img151/4018/gulp2.gif Joyeuse Fête !

 

 

[eagle4]

Salut pako

 

Merci beaucoup, c'est un peu plus clair maintenant

 

Joyeuses fêtes à toi aussi

 

Eagle4

 

 

[eagle4]

Bonsoir Pako

 

L'exemple que tu me donnes s'aplique aux onglets présentation mais peut-on faire le même chose avec l'onglet objet ?

 

Merci de vos réponses

 

Eagle4

 

 

[Pako]

Sûrement,

 

En modifiant ce bout de code : With ActiveDocument.Layouts("layout1") ;)

 

 

 

[eagle4]

Bonjour Pako

 

J'ai bien essayé de modifier ce bout de programme en remplaçant "layouts" par "PlotConfigurations" mais cela ne marche pas.

Peux-tu, si cela ne te dérange pas m'en dire un peu plus car je suis vraiment planté et mon anglais n'est pas assez bon pour comprendre complètement les explications de l'aide.

 

D’avance merci.

 

Eagle4

 

[Pako]

Étant donné que tu es un membre-donateur sur ce forum, il me fait encore plus plaisir de t'aider, cher eagle4.[/b]

 

Essayer avec :

 

With ActiveDocument.Layouts("Model")

 

ou

 

With ActiveDocument.ActiveLayout

 

 

 

[eagle4]

Salut Pako

 

Merci pour tous ces renseignements, cela fonctionne.

Juste une dernière question, est-il possible d'imposer un fichier "ctb" , l'échelle de traçage et l'aire de tracé ?.

l'aire et l'echelle sont-elles des variables ?

 

Merci encore de ton aide.

 

eagle4

[eagle4]

Salut à tous

 

Après un long week-end studieux (dico Anglais/Français ouvert et aide d’Autocad) et l'aide de PAKO, j’ai trouvé la solution à mes problèmes.

Si cela peut aider quelqu’un en voici le résultat :

 

Dim PlotConfigurations As AcadLayouts

Dim PlotConfiguration As AcadLayout

Public acadDoc As AcadDocument

 

Set PlotConfigurations = acadDoc.Layouts

Set PlotConfiguration = acadDoc.ActiveLayout

 

' Changer la configuration du traceur

For Each PlotConfiguration In PlotConfigurations

.....PlotConfiguration.RefreshPlotDeviceInfo

.....PlotConfiguration.ConfigName = ‘nom du traceur (fichier.pc3)

.....PlotConfiguration.StandardScale = ‘la variable ac1_1 pour échelle 1 par exemple

.....PlotConfiguration.PlotType = ‘l’aire du tracé ( la variable acExtents donne « Etendue » par exemple

.....PlotConfiguration.StyleSheet = ‘la table de style de tracé (fichier.ctb)

.....PlotConfiguration.RefreshPlotDeviceInfo

Next

 

Voici donc le résumé de mon prog. en VB6

 

Cordialement

 

Eagle4

 

[Edité le 20/12/2004 par eagle4]