[求助]在lisp中如何获得打印机名？

WJQ6080

      在lisp程序中如何获得打印机名，包括网络打印机？ 其效果应该与CAD打印对话框中的打印设备名称一样，将现有打印机，包括网络打印机名全部列出。请各大侠不啬赐教，谢过各位了。

邮箱：WJQ-6080@163.COM

略懂CAD  初学 LISP

xyp1964

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

(defun GetPlotDevices ()   (vlax-safearray->list     (vlax-variant-value       (vla-getplotdevicenames (vla-item (vla-get-layouts       (vla-get-activedocument (vlax-get-acad-object))     )     "Model" )       )     )   ) )

SWAYWOOD

那能否知道当前打印机是否人满为患?

iceberg2509

哈哈，当然可以啊，去问问打印机有没有打印就是。

SWAYWOOD

上面的你什么意思？是取笑我吗？论坛是讨论问题的地方而不是你撒野的场所...

iceberg2509

晕，开个玩笑嘛，如果惹你生气了，那就对不起啦。我的意思是，你这个在lisp礼物实现，要调用api

SWAYWOOD

开玩笑，我跟你很熟吗？

iceberg2509

嗬，还卯上了啊！哥们你有本事别在这儿发飚，你把自己的问题解决了是正道。

WJQ6080

谢谢2楼的热心支持，这的确用管用，多谢！！！！！！