关于打印的问题

simpleye

公司里有二台联网打印机，我用这个代码(command ".plot" "y" "" myprint "A4" "" PL "N" "W" p1 p2 "F" "C" "Y" "monochrome.ctb" "Y" "" "" "Y" "")，一台可以打印，另一台出现错误：
命令: q2
指定第一点坐标：
指定第二点坐标：未知命令“Q2”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Q2”。按 F1 查看帮助。
未知命令“Q2”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Q2”。按 F1 查看帮助。
用本地虚拟打印PDF也没问题。

Gu_xl

有可能是CAD版本不一致导致！
也有可能是系统变量不一致导致！

simpleye

用同一台电脑，CAD版本是2012,打印机分别为其它二台电脑

蒹葭_Keirll

(command ".plot" "y" "" myprint "A4" "" PL "N" "W" p1 p2 "F" "C" "Y" "monochrome.ctb" "Y" "" "" "Y" "")
PL那里有问题

纵向是P，应该是(command ".plot" "y" "" myprint "A4" "" "P" "N" "W" p1 p2 "F" "C" "Y" "monochrome.ctb" "Y" "" "N" "Y" "Y")

横向是L，代码为(command ".plot" "y" "" myprint "A4" "" "L" "N" "W" p1 p2 "F" "C" "Y" "monochrome.ctb" "Y" "" "N" "Y" "Y")

Andyhon

...打印机分别为其它二台电脑...

有可能是 myprint 变量值没正确对映
请分別列出 myprint 供分析探讨

simpleye

以下是代码，请各位大侠帮我看一看：
(defun defultprint (/ device)
   (vl-load-com)
     (substr (setq device
      (vl-registry-read
        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"
        "Device"
      )
      )
      (vl-string-search "," device)
     )
   )
(DEFUN C:q2 (/ p1 p2 pl)
  (setq myprint (defultprint))   
(setq p1 (getpoint "\n指定第一点坐标："))
(setq p2 (getcorner p1 "\n指定第二点坐标："))
(if (> (abs (- (car p1) (car p2))) (abs (- (cadr p1) (cadr p2))))
(setq PL "L")
(setq PL "P"))
(command ".plot" "y" "" myprint "A4" "" PL "N" "W" p1 p2 "F" "C" "Y" "monochrome.ctb" "Y" "" "" "Y" "")
(princ)
)

Andyhon

device & myprint 在不同台电脑的返回值各如何

simpleye

不好意思，上传的代码不小心删除了一个字。再重新传：
(defun defultprint (/)
   (vl-load-com)
   (substr (setq device
      (vl-registry-read
        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"
        "Device"
      ) ;_ 结束vl-registry-read
      ) ;_ 结束setq
      1
      (vl-string-search "," device)
     ) ;_ 结束substr
   ) ;_ 结束defun
(DEFUN C:q2 (/ p1 p2 pl)
  (setq myprint (defultprint))   
(setq p1 (getpoint "\n指定第一点坐标："))
(setq p2 (getcorner p1 "\n指定第二点坐标："))
(if (> (abs (- (car p1) (car p2))) (abs (- (cadr p1) (cadr p2))))
(setq PL "L")
(setq PL "P"))
(command ".plot" "y" "" myprint "A4" "" PL "N" "W" p1 p2 "F" "C" "Y" "monochrome.ctb" "Y" "" "" "Y" "")
(princ)

在电脑测试的结果是：
命令: !device
"Foxit PDF Printer,winspool,Ne01:"
命令: !myprint
"Foxit PDF Printer"

Andyhon

"Foxit PDF Printer,winspool,Ne01:"

Foxit PDF Printer才是所要套用的Printer对吧!
若然 defultprint 得改写

simpleye

经测试在家里与公司里用Foxit PDF Printer打印PDF没问题。而用公司局域网联网的二台打印机打印DWG文件时，一台可以打印，另一台则出现错误。问题是经常打印的激光打印不行啊，偏偏不经常使用的喷墨的可以。呵呵，请各位大侠能帮忙一下，因为经常要打印图纸，使用的频率极高。