简单打印
本帖最后由 htlaser 于 2021-1-26 11:39 编辑(defun c:opp (/ as fx mp p1 p2 pp sn snap vdi);简单打印
(setvar "cmdecho" 0) ;指令执行过程不响应
(setq snap (getvar "osmode"))
(setvar "osmode" 0)
(setvar "osmode" 1)
(setq pn "\\\\PC-20160516EGUD\\EPSON L360 Series");打印机 原名称\\PC-20160516EGUD\EPSON L360 Series
(setq px"A4 210 x 297 毫米");纸张大小
(setq AS 1);打印的页数为1页
(setq VDI 100) ; 横向两页间距为100，可以一次打印多页，根据需求自己改吧
(setq P1 (getpoint "\n图形左上角: "))
(setq P2 (getcorner p1 "\n图形右下角: "))
(setq fx (if(>(apply '-(mapcar 'abs(mapcar '- p1 p2)))0)"L" "P"))
(setq sn 0)
(while (/= sn AS)
(setq PP (polar p1 0 (* VDI sn)))
(setq MP (polar p2 0 (* VDI sn)))
(setq sn (+ sn 1))
(command "PLOT""y" ""pnpx "M"fx "N" "W" PP MP "f" "C" "y" "monochrome.ctb" "N" "W" "N" "N""y"))
(setvar"osmode" snap);恢复捕捉
(princ)
)
原帖：http://bbs.mjtd.com/forum.php?mo ... hlight=%B4%F2%D3%A1
樓主:為什麼這行沒有作用，要用手動去執行
(command "PLOT" "y" "" pn px "M" fx "N" "W" PP MP "f" "C" "y" "monochrome.ctb" "N" "W" "N" "N" "y"))
打印機抓不到 白色微風1991 发表于 2021-1-28 08:34
樓主:為什麼這行沒有作用，要用手動去執行
(command "PLOT" "y" "" pn px "M" fx "N" "W" PP MP "f" "C" " ...
打印机名字获取一下 替换就行用-plot模拟 看一下你的打印机名字 谢谢分享！ 樓主:我試看看 樓主:還是不行
白色微風1991 发表于 2021-1-28 16:10
樓主:還是不行
模拟结果上传一下记录 我把打印機原名稱改成如下:
(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 版本
我把打印機改成:
(setq pn "\RICOH Aficio MP C3501 PCL 6") 就可以
页:
[1]