Liste d\'imprimantes

[Patrick_35]

Bonsoir

 

Je cherche à établir une liste des imprimantes sans passer par les registres

Je sais que ca se trouve dans PlotConfiguration--->GetPlotDeviceNames mais je n'arrive pas à accéder a ce PlotConfiguration. Je sais qu"en vba, c'est tout simple, mais en vlisp :casstet:

 

Merci d'avance

 

@+

[zebulon_]

S'il s'agit de la liste des imprimantes windows installées, j'utilise la fonction dos_printers de DOSLIB

 

Amicalement

 

Zebulon_

[Patrick_35]

Merci de ta réponse Zebulon_, mais le problème avec DOSLIB, c’est que le lisp n’est pas portable partout

 

@+

[zebulon_]

Sub Example_GetPlotDeviceNames()

' This example gets the current plot device information

' and then displays the list of plot device names

 

Dim Layout As AcadLayout

Set Layout = ThisDrawing.ModelSpace.Layout

 

' Refresh the current plot information for

' this session.

Layout.RefreshPlotDeviceInfo

 

' List all the valid device names for the system

Dim plotDevices As Variant

plotDevices = Layout.GetPlotDeviceNames()

 

Dim x As Integer

For x = LBound(plotDevices) To UBound(plotDevices)

MsgBox plotDevices(x)

Next

 

End Sub

 

Ce que tu cherches, c'est ce qui a ci-dessus mais en VLISP ?

[Patrick_35]

Oui, merci, c'est exactement cela

 

@+

[Patrick_35]

Euréka, j'ai trouvé

Je persistais à chercher dans plotconfiguration et non dans le layout

 

Merci de ton aide Zebulon_

 

@+

 

(setq lay (vla-get-layout (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))))
(setq tras (vlax-safearray->list (vlax-variant-value (vla-getplotdevicenames lay))))

[zebulon_]

De rien, Patrick

 

je te dois bien ça et même plus

 

Amicalement

 

Zebulon_