请大佬帮忙修改一个简易打印插件

GNJLISP

这两天也遇到同样问题，同一个码，同一个打印机，一台电脑能成功打印，另一台电脑提示一堆未知命令后显示打印成功，却不打印

htlaser

2. (defun c:DY (/ as fx mp p1 p2 pp sn snap vdi)  ;简单打印
   
3.             (setvar "cmdecho" 0) ;指令执行过程不响应
   
4.       (setq snap (getvar "osmode"))　
   
5.       (setvar "osmode" 0)  
   
6.       (setvar "osmode" 1)
   
7.       (setq pn "\\\\OEM-20170510YNK\\HP LaserJet 1020");打印机 原名称\\HP LaserJet 1020
   
8.             (setq px  "A4 210 x 297 毫米");纸张大小
   
9.       (setq AS 1);打印的页数为1页
   
10.       (setq VDI 100) ; 横向两页间距为100，可以一次打印多页，根据需求自己改吧
    
11.       (setq P1 (getpoint "\n图形左上角: "))  
    
12.       (setq P2 (getcorner p1 "\n图形右下角: "))
    
13.       (setq fx (if(>(apply '-(mapcar 'abs(mapcar '- p1 p2)))0)"L" "P"))
    
14.       (setq sn 0)
    
15.       (while (/= sn AS)
    
16.       (setq PP (polar p1 0 (* VDI sn)))
    
17.       (setq MP (polar p2 0 (* VDI sn)))
    
18.       (setq sn (+ sn 1))                       
    
19.       (command "-PLOT"  "y" ""   pn    px  "M"  fx "N" "W" PP MP "f" "C" "y" "monochrome.ctb" "N" "W" "N" "N"  "y"))  
    
20.             (command "-plot" "y" "model" "" "" "Millimeters" orientation          "no" "w"  minp  maxp   "fit" "c" "y" ""  "y" "n" "n" "n"  "y")
    
21.        
    
22.       (setvar"osmode" snap);恢复捕捉
    
23.                 (princ)       
    
24.   )

(defun c:DY (/ as fx mp p1 p2 pp sn snap vdi)  ;简单打印 <br />             (setvar "cmdecho" 0) ;指令执行过程不响应<br />       (setq snap (getvar "osmode"))　<br />       (setvar "osmode" 0)  <br />       (setvar "osmode" 1)<br />       (setq pn "\\\\OEM-20170510YNK\\HP LaserJet 1020");打印机 原名称\\HP LaserJet 1020<br />             (setq px  "A4 210 x 297 毫米");纸张大小<br />       (setq AS 1);打印的页数为1页<br />       (setq VDI 100) ; 横向两页间距为100，可以一次打印多页，根据需求自己改吧<br />       (setq P1 (getpoint "\n图形左上角: "))  <br />       (setq P2 (getcorner p1 "\n图形右下角: "))<br />       (setq fx (if(>(apply '-(mapcar 'abs(mapcar '- p1 p2)))0)"L" "P"))<br />       (setq sn 0)<br />       (while (/= sn AS)<br />       (setq PP (polar p1 0 (* VDI sn)))<br />       (setq MP (polar p2 0 (* VDI sn)))<br />       (setq sn (+ sn 1))                        <br />       (command "-PLOT"  "y" ""   pn    px  "M"  fx "N" "W" PP MP "f" "C" "y" "monochrome.ctb" "N" "W" "N" "N"  "y"))  <br />             (command "-plot" "y" "model" "" "" "Millimeters" orientation          "no" "w"  minp  maxp   "fit" "c" "y" ""  "y" "n" "n" "n"  "y")<br />         <br />       (setvar"osmode" snap);恢复捕捉<br />                 (princ)        <br />   )