Paramétrage de tracé

[docserta]

Bonjour,

 

Je souhaite modifier les paramètres de tracé d'un lot de DWG avant de l'envoyer à mon client:

° régler le traceur sur "AUCUN"

° régler le Format de papier sur "ISO_A_(420.00_x_297.00_mm)"

°etc...

 

Pour chaque plan de ma liste, ma macro lance la procédure suivante :

 

Sub Prog_impression_traceur()
 
 On Error Resume Next
 
Dim MesCalques As AcadLayouts, MonCalque As AcadLayout
Set MesCalques = ThisDrawing.Layouts
For Each MonCalque In MesCalques
   'Choisir le nom du traceur
   MonCalque.ConfigName = "aucun"
   'Choisir le style d'apparence et des couleurs du tracé
   MonCalque.StyleSheet = "monochrome.sbt"
   'Choisir le format du papier
   MonCalque.CanonicalMediaName = "ISO_A_(420.00_x_297.00_mm)"
   'Choisir l'unité de traçage (Millimètres)
   MonCalque.PaperUnits = acMillimeters
   'Choisir l'orientation du tracé (Portrait=0° et Paysage=90°)
   MonCalque.PlotRotation = ac0degrees
   'Choisir l'aire du tracé
   MonCalque.PlotType = acWindow
   'Choisir de centrer le tracé
   MonCalque.CenterPlot = True
   'Choisir l'échelle du tracé
   MonCalque.StandardScale = acScaleToFit
Next

 

Cette procédure semble sans effet puisque les valeurs de la fenètre "Tracer" ne change pas.

Quelqu'un peux me dire ou je me suis trompé :blink:

Merci

[vincentp010]

Salut,

 

Si c'est pour envoyer tu peux faire un etransmit. Dans les paramètres il y a une case à cocher "définir le traceur par défaut sur aucun"

[docserta]

Si c'est pour envoyer tu peux faire un etransmit. Dans les paramètres il y a une case à cocher "définir le traceur par défaut sur aucun"

 

Merci, je ne connaissait pas cette fonction.

Seulement c'est insuffisant, il faut que je règle le style de plume,le format du papier, la rotation etc..

[Lommig]

Bonjour,

 

Concernant le nom du traceur, il s'agit peut-être d'une erreur sur le terme "aucun".

Quelle est ta version d'AutoCAD ?

Cette macro fonctionnne sur un AutoCAD 2010-2011-... français :

 

Sub AucunNomTraceur()

'On Error Resume Next

Dim Presentation As AcadLayout

For Each Presentation In ThisDrawing.Layouts

Presentation.ConfigName = "Aucun(e)"

Next Presentation

End Sub

 

Guillaume

[docserta]

Concernant le nom du traceur, il s'agit peut-être d'une erreur sur le terme "aucun".

Cette macro fonctionnne sur un AutoCAD 2010-2011-... français :

...
   Presentation.ConfigName = "Aucun(e)"
...

j'ai testé, cela n'a pas d'incidence.

D'ailleurs, la valeur par défault est "aucun" sur mes plans.

 

Quelle est ta version d'AutoCAD ?

Autocad 2008 en français.

 

Ce qui me "chiffonne", c'est que les commandes

MonCalque.ConfigName = "aucun"

ou

MonCalque.StyleSheet = "monochrome.sbt"

ne modifient pas les valeurs de "MonCalque.ConfigName" ou de "MonCalque.StyleSheet"

avec un "espion" ou un

MsgBox MonCalque.ConfigName

je constate que la valeur ne change pas. :huh:

[Lommig]

Dans un nouveau dessin, j'ai créé plusieurs présentations avec différents noms de traceur.

La macro VBA suivante permet de réaffecter "Aucun" à tous les noms de traceur :

Sub AucunNomTraceur()

Dim Presentation As AcadLayout

For Each Presentation In ThisDrawing.Layouts

Presentation.ConfigName = "Aucun"

Next Presentation

End Sub

Elle fonctionne sur mon AutoCAD...

Peux-tu faire ce simple test ?

 

Concernant les styles de tracé, le fichier "monochrome.stb" (et non "monochrome.sbt") n'est pas accepté dans un dessin basé sur des styles CTB... Il faut vérifier la variable PSTYLEMODE (= 0 pour un dessin basé sur des STB) avant d'utiliser "StyleSheet".

[docserta]

Peux-tu faire ce simple test ?

essai concluant.

Le problème venait des valeurs de liste.

Si il y a la moindre erreur dans le texte, et que celui ci ne correspond pas a une des valeur de la liste, c'est la valeur par défaut qui est affectée au paramètre.

 

Dans mon cas, il y avais plusieurs erreurs :(

"ISO_A_(420.00_x_297.00_mm)" au lieu de "ISO_A4_(420.00_x_297.00_MM)"

"monochrome.sbt" au lieu de "monochrome.stb"

 

ce qui me donnais l'impression que les paramètre ne pouvaient pas être modifiés.

 

Merci de votre aide