简单打印

htlaser

2. (defun c:opp (/ 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   "\\\\PC-20160516EGUD\\EPSON L360 Series");打印机 原名称\\PC-20160516EGUD\EPSON L360 Series
   
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.       (setvar"osmode" snap);恢复捕捉
    
21.     (princ)  
    
22.   )

(defun c:opp (/ 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   "\\\\PC-20160516EGUD\\EPSON L360 Series");打印机 原名称\\PC-20160516EGUD\EPSON L360 Series<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 />       (setvar"osmode" snap);恢复捕捉<br />     (princ)  <br />   )

原帖：http://bbs.mjtd.com/forum.php?mo ... hlight=%B4%F2%D3%A1

白色微風1991

樓主:為什麼這行沒有作用，要用手動去執行
(command "PLOT" "y" "" pn px "M" fx "N" "W" PP MP "f" "C" "y" "monochrome.ctb" "N" "W" "N" "N" "y"))  

打印機抓不到

htlaser

白色微風1991 发表于 2021-1-28 08:34
樓主:為什麼這行沒有作用，要用手動去執行
(command "PLOT" "y" "" pn px "M" fx "N" "W" PP MP "f" "C" " ...

打印机名字获取一下   替换就行  用-plot  模拟   看一下你的打印机名字

panliang9

谢谢分享！

白色微風1991

樓主:我試看看

白色微風1991

樓主:還是不行

htlaser

白色微風1991 发表于 2021-1-28 16:10
樓主:還是不行

模拟结果  上传一下记录

白色微風1991

我把打印機原名稱改成如下:
(setq pn "\RICOH Aficio MP C3501 PCL 6")
就可以抓到打印機
(command "PLOT" "y" "" pn px "M" fx "N" "W" PP MP "f" "C" "y" "monochrome.ctb" "N" "W" "N" "N" "y"))  
這句打印機後面,都無法執行
指令: (load"opp")
C:OPP

指令: OPP

圖形左上角:
圖形右下角: 不明的指令「M」。請按 F1 取得說明。
不明的指令「L」。請按 F1 取得說明。
不明的指令「N」。請按 F1 取得說明。
不明的指令「W」。請按 F1 取得說明。
不明的指令「F」。請按 F1 取得說明。
不明的指令「C」。請按 F1 取得說明。
不明的指令「Y」。請按 F1 取得說明。
不明的指令「CTB」。請按 F1 取得說明。
不明的指令「N」。請按 F1 取得說明。
不明的指令「W」。請按 F1 取得說明。
不明的指令「N」。請按 F1 取得說明。
不明的指令「N」。請按 F1 取得說明。
不明的指令「Y」。請按 F1 取得說明。

出現這個問題,請問樓主可以解決嗎?   
我的AUTOCAD 2013 版本

白色微風1991

我把打印機改成:
(setq pn "\RICOH Aficio MP C3501 PCL 6")   就可以