[求助]：怎样获得系统打印机名称？

my_cheung

小弟最近在编一个批量打印的程序，可是不知道怎样获得打印机的名称，因为有的机子是网络打印机，有的是本地打印机。又找不到DOSLIB.ARX的高版本。请各位帮帮忙！多谢！

bjzjt

vla-getplotdevicenames
Gets all available plot device names.

Signature

RetVal = object.GetPlotDeviceNames()

Object

Layout, PlotConfiguration
The object or objects this method applies to.

RetVal

Variant (array of strings)
The array of available device names for the system.

Remarks

You should call RefreshPlotDeviceInfo before the first time you use this method. Once you have called RefreshPlotDeviceInfo, you don't need to call it again unless your plot device information changes during the session.

lijoicq

2楼正解

my_cheung

多谢回复！
不过小弟还遇到以下问题，请达人讲解。谢谢！
_$ (vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))

#<VLA-OBJECT IAcadApplication 00a88728>
#<VLA-OBJECT IAcadDocument 010c8f8c>
#<VLA-OBJECT IAcadModelSpace 01fd09e4>
_$ (vla-GetPlotDeviceNames acadDocument)
; error: ActiveX Server returned the error: unknown name: GetPlotDeviceNames

mhdp_cn

二楼的兄弟不是说过了
(vla-GetPlotDeviceNames acadDocument)中的acadDocument对象应该是Layout,或者PlotConfiguration
对象,应该先得到Layout,或者PlotConfiguration对象

eachy

秋枫版主的批量打印程序中都有相关的代码，如果你看懂了就可以组合出适合自己的程序

Underway

2. (defun gpd ()
   
3.   (vl-load-com)
   
4.   (vlax-safearray->list
   
5.     (vlax-variant-value
   
6.       (vla-getplotdevicenames
   
7.         (vla-item (vla-get-layouts
   
8.                     (vla-get-activedocument (vlax-get-acad-object))
   
9.                   )
   
10.                   "Model"
    
11.         )
    
12.       )
    
13.     )
    
14.   )
    
15. )
    

(defun gpd ()<br />   (vl-load-com)<br />   (vlax-safearray->list<br />     (vlax-variant-value<br />       (vla-getplotdevicenames<br />         (vla-item (vla-get-layouts<br />                     (vla-get-activedocument (vlax-get-acad-object))<br />                   )<br />                   "Model"<br />         )<br />       )<br />     )<br />   )<br /> )<br />

info: http://www.d2cad.nl/lisp/lisps/getplotdevices.html

2. 
   
3. ;;Doug B.
   
4. (defun ListPlotDevices (/ layout)
   
5.   (setq        layout (vla-get-activelayout
   
6.                  (vla-get-activedocument (vlax-get-acad-object))
   
7.                )
   
8.   )
   
9.   (vla-RefreshPlotDeviceInfo layout)
   
10.   (vlax-invoke layout 'getplotdevicenames)
    
11. )

<br /> ;;Doug B. <br /> (defun ListPlotDevices (/ layout)<br />   (setq        layout (vla-get-activelayout<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />   )<br />   (vla-RefreshPlotDeviceInfo layout)<br />   (vlax-invoke layout 'getplotdevicenames)<br /> )

my_cheung

已搞定!多谢各位的解答!