如何获取可用打印设备列表

chen812

如题，就是plot命令行中指定“输出设备的名称”时输入"?"后列出的清单，如何用Vlisp语句获得，知道的大神麻烦告知一下，被这卡住了。

evayleung

论坛上有的吧，找下秋风大神的批量打印，里面什么东西都有，可以参考来用下。

lisperado

以原始VL库函数来读取打印设备名称：

1. (defun c:printer (/ index l lst k)
   
2.   ;lisperado
   
3.   
   
4.   (defun index (l n / x)
   
5.     (if (> n 0)
   
6.       (cons (cons (itoa (- (length l) (setq x (1- n)))) (nth x l)) (index l x))
   
7.       )
   
8.     )
   
9.   
   
10.   (textscr)
    
11.   (if (and (setq l (vl-registry-descendents
    
12.                      "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers"
    
13.                      )
    
14.                  )
    
15.            (setq lst (index l (length l)))
    
16.            )
    
17.     (progn (initget (apply 'strcat (mapcar '(lambda (x) (strcat (car x) " ")) lst)))
    
18.            (setq k (getkword
    
19.                      (apply 'strcat
    
20.                             (cons "\n可用打印设备，Select printer \n" (mapcar '(lambda (x) (strcat "[" (car x) "]=" (cdr x) " \n")) lst))
    
21.                             )
    
22.                      )
    
23.                  )
    
24.            (princ (cdr (assoc k lst)))
    
25.            )
    
26.     (princ "\n抱歉！执行失败！")
    
27.     )
    
28.   (terpri)
    
29.   (princ)
    
30.   )
    
31. 
    

(defun c:printer (/ index l lst k)<br />   ;lisperado<br />   <br />   (defun index (l n / x) <br />     (if (> n 0)<br />       (cons (cons (itoa (- (length l) (setq x (1- n)))) (nth x l)) (index l x))<br />       )<br />     )<br />   <br />   (textscr)<br />   (if (and (setq l (vl-registry-descendents<br />                      "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers"<br />                      )<br />                  )<br />            (setq lst (index l (length l)))<br />            )<br />     (progn (initget (apply 'strcat (mapcar '(lambda (x) (strcat (car x) " ")) lst)))<br />            (setq k (getkword<br />                      (apply 'strcat<br />                             (cons "\n可用打印设备，Select printer \n" (mapcar '(lambda (x) (strcat "[" (car x) "]=" (cdr x) " \n")) lst))<br />                             )<br />                      )<br />                  )<br />            (princ (cdr (assoc k lst)))<br />            )<br />     (princ "\n抱歉！执行失败！")<br />     )<br />   (terpri)<br />   (princ)<br />   )<br /> <br />

输入索引 1，2，3 等等。。比输入名称更快捷吧？

技术工作室

学习了顶一个