[求助]：怎样获得打印机的名称列表?

fundoll · 发表于 2005-4-23 16:30:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎样获得打印机的名称列表?

有打印机名称,也有系统打印文件名称*.pc3

它山之石 · 发表于 2005-4-23 16:47:39

[php]
;;;以下定义返回一个包含所有有效的打印设备的列表

(defun ax:GetPlotDevices ()
  (vlax-safearray->list
(vlax-variant-value
   (vla-getplotdevicenames
(vla-item (vla-get-layouts
      (vla-get-activedocument (vlax-get-acad-object))
   ) ;_ 结束vla-get-layouts
   "Model"
) ;_ 结束vla-item
   ) ;_ 结束vla-getplotdevicenames
) ;_ 结束vlax-variant-value
  ) ;_ 结束vlax-safearray->list
) ;_ 结束defun
(defun printers ()
  (setq printer (ax:GetPlotDevices))
) ;_ 结束defun
[/php]

fundoll · 发表于 2005-4-24 08:01:26

谢谢!

visual lisp是可以的,估计纯lisp是做不到了.

另外请教:
布局列表怎样获得? (布局1,布局2)

ACAD · 发表于 2005-6-26 22:38:41

最初由 fundoll 发布
[B]谢谢!

visual lisp是可以的,估计纯lisp是做不到了.

另外请教:
布局列表怎样获得? (布局1,布局2) [/B]

(layoutlist)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：怎样获得打印机的名称列表?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子