PlotConfiguration courante

[tyrese69_]

Bonjour à tous,

 

Par la méthode j'ai créé une mise en page "nommée"

 

Set PlotConfig = ThisDrawing.PlotConfigurations.Add(objPresentation.name)

 

et par la méthode :

 

objPresentation.Copyfrom PlotConfig, je la copie dans la présentation courante

 

mais l'apercu n'est pas identique à la même fonction par la boite de dialogue

"Gestionnaire de mise en page" --> Mise en page --> "Définir courante".

 

Est ce la bonne méthode ou bien il ya t'il une autre façons pour procéder ?

 

Daniel OLIVES

[tyrese69_]

Re bonjour,

 

Pour être plus précis, à l'affichage avec la boite de dialogue le fond blanc et bien que dans

la zone définie et le pointillé de page en page est présent, par contre avec la programmation,

le fond blanc est pour tout l'espace papier, il n'y a pas de pointillé mais le format est correct,

à l'apercu et à l'impression ??

 

Daniel OLIVES

Un extrait du code :

 
CoinBasX = -1462.7: CoinBasY = 0
                           CoinHautX = 217.3: CoinHautY = 889.93
                           pt1(0) = CoinBasX: pt1(1) = CoinBasY: pt1(2) = 0
                           pt2(0) = CoinHautX: pt2(1) = CoinHautY: pt2(2) = 0
                           
                           ' Modification du nom de l'onglet de présentation
                           objPresentation.name = "A0+++_" & objPresentation.name
                               
                           ' Ajout d'une mise en page pour DWG
                           Set PlotConfig = _
                               ThisDrawing.PlotConfigurations.Add(objPresentation.name)
                               
                           ' passe active la présentation
                           ThisDrawing.ActiveLayout = objPresentation
                           
                           PlotConfig.ConfigName = "TraceurLyon0.pc3"
                           PlotConfig.CanonicalMediaName = "User259"
                           
                           objPresentation.PaperUnits = acMillimeters ' unité papier
                           objPresentation.SetCustomScale 1, 1
                           objPresentation.RefreshPlotDeviceInfo
           
                           ' Transfert du point 3D vers un point 2D
                           ptz1(0) = pt1(0)
                           ptz2(0) = pt2(0)
                           ptz1(1) = pt1(1)
                           ptz2(1) = pt2(1)
                           PlotConfig.SetWindowToPlot ptz1, ptz2
                           PlotConfig.GetWindowToPlot ptz1, ptz2
                           PlotConfig.PlotType = acWindow            ' Fenêtre
                           PlotConfig.CenterPlot = True              ' Centré le tracé
                           ZoomWindow pt1, pt2                       ' zoom fenêtre
                           '  ThisDrawing.ActiveLayout.PlotRotation = ac90degrees
                           ' or ac0degrees, ac180degrees, ac270degrees
                           
                           ' passage de la présentation nommée au la vue courante
                           objPresentation.CopyFrom PlotConfig
                           ThisDrawing.Regen acAllViewports                        ' pour prise en compte
                           ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo
                           'If valOpBut_apercu = True Then
                               ThisDrawing.Plot.DisplayPlotPreview acFullPreview
                           'End If