[求助]：用lisp的的那个函数可以得到电脑的默认打印机

逐月飞鸿

用lisp的的那个函数可以得到电脑的默认打印机，请大虾指点 ！

aidraft

DOSLib里有个(dos_getprn)
或者
[php];;;Gets default printer
;;;Ken Alexander 4/12/04
(defun fmco:getprn (/ device)
  (substr
    (setq device
           (vl-registry-read
             "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"
             "Device"
             )
          )
    1
    (vl-string-search "," device)
    )
  )[/php]

JOSDENNIS

二樓有個問題請教一下1. 你那個是用讀注冊表來的, 有沒有方法可以在電腦探測打印機是開的還是關的呀?

lsjjm

最初由 逐月飞鸿 发布
[B]用lisp的的那个函数可以得到电脑的默认打印机，请大虾指点 ！ [/B]

[PHP]
(defun c:test ()
  (vla-get-configname
    (vla-item (vla-get-layouts
                  (vla-get-activedocument (vlax-get-acad-object))
              )
              "Layout1"
    )
  )
)
[/PHP]

逐月飞鸿

2楼aidraft大虾，你好，请你在给我指点一下，你给的代码我加载后，怎么运行阿？
是这样的，我们想编写一个打印的程序，想让lisp获得默认打印机后，赋值给变量myrint
你的(defun fmc0:getprn (/ device)不知道怎莫用阿，请指教，谢谢了！
还有3楼白金长老的我加载后，运行test，也是什么都没有阿....

aidraft

最初由 逐月飞鸿 发布
[B]2楼aidraft大虾，你好，请你在给我指点一下，你给的代码我加载后，怎么运行阿？
是这样的，我们想编写一个打印的程序，想让lisp获得默认打印机后，赋值给变量myrint
你的(defun fmc0:getprn (/ device)不知道怎莫?.. [/B]

(setq myprint (fmc0:getprn))

四楼长老的办法只能得到当前文件Layout1的默认打印机，有时为NIL

三楼的朋友，下面有个link,不知您是否看懂，反正我看不懂
http://www.merrioncomputing.com/Programming/PrintStatus.htm

逐月飞鸿

谢谢，热心的 aidraft 和lsjjm大虾，小弟向你们表示感谢！！！
不过，我按上面的方法，运行了一下得到的结果如下：
命令: ; 错误: 注册键根未知: "HKEY_CURRENT_USERSoftwareMicrosoftWindows
NTCurrentVersionWindows"
是为什么呢？
今天上午得到了解决：
应该如此：

;;;Gets default printer
;;;Ken Alexander 4/12/04
(defun fmco:getprn (/ device)
  (substr
    (setq device
       (vl-registry-read
         "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"
         "Device"
         )
      )
    1
    (vl-string-search "," device)
    )
  )

aidraft

这是用php贴代码时常见的错误。

xtjd

(getenv "DefaultConfig")

狂刀

"HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows"
如果不是winnit或win2000，会不会有错？

aidraft

最初由 狂刀 发布
[B]"HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows"
如果不是winnit或win2000，会不会有错？ [/B]

会的，我想你要修改路径