请大佬帮忙修改一个简易打印插件
本帖最后由 zm880928 于 2024-8-8 09:13 编辑(defun c:DY()
(setvar "cmdecho" 0) ;指令执行过程不响应
(setq snap (getvar "osmode"))
(setvar "osmode" 0)
(setvar "osmode" 1)
(setq PN "HP LaserJet 1020" );打印机名称
(setq zz "C")
(setq AS 1);打印的页数为1页
(setq VDI 100) ; 横向两页间距为100，可以一次打印多页，根据需求自己改吧
(command "-plotstamp" "o" "") ;打开打印戳记
(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" "model" PN "A4" "m" fx "n" "w" PP MP "f" zz "y" "monochrome.ctb" "y" "n" "n" "n" "y" )
)
(setvar"osmode" snap);恢复捕捉
(command "-plotstamp" "off" "") ;关闭打印戳记
(PRINC "\n 打印成功 !!!")
(PRINC)
)
以上程序是论坛找的，以上代码中红色部分是打印机名称，之前一直使用没问题。后面换了共享打印机 ，共享打印机为设备名: \\OEM-20170510YNK\HP LaserJet 1020 ，分别试着把红色部分改成\\OEM-20170510YNK\HP LaserJet 1020和\\\\0EM-20170510YNK\\HP LaserJet 1020，都无法打印，但是程序却可以正常执行（电脑会卡一下，然后会回馈打印成功的字符），请问应该怎修改才可以正常运行呢
今天试着把打印机换成\\OEM-20170510YNK\HP LaserJet 1020，后面可以打印出来，就是后面出来一大堆设置
命令: dy
***第一角点:
***第二角点:
打印成功 !!!
输入图纸尺寸或 [?] <A4>:
输入图纸单位 [英寸(I)/毫米(M)] <毫米>:
输入图形方向 [纵向(P)/横向(L)] <纵向>:
是否上下颠倒打印？[是(Y)/否(N)] <否>:
输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] <显示>:
输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <布满>:
输入打印偏移 (x,y) 或 [居中打印(C)] <中心>:
是否按样式打印？[是(Y)/否(N)] <是>:
输入打印样式表名称或 [?] (输入 . 表示无) <monochrome.ctb>:
是否打印线宽？[是(Y)/否(N)] <是>:
输入着色打印设置 [按显示(A)/传统线框(W)/传统隐藏(H)/视觉样式(V)/渲染(R)] <按显示>:
是否打印到文件 [是(Y)/否(N)] <N>:
是否保存对页面设置的修改 [是(Y)/否(N)]? <N> y 是否继续打印？[是(Y)/否(N)] <Y>:
有效打印区域:200.49 宽 X 100.94 高
正在打印视口 2。
不要沉，给我上去{:1_1:} 有什么错误提示吗？ ssyfeng 发表于 2024-8-7 08:38
有什么错误提示吗？
命令: dy
***第一角点:
***第二角点:
打印成功 !!!
输入输出设备的名称或 [?] <HP LaserJet Pro MFP M127-M128 PCLmS.pc3>:*取消*
以上就是程序执行过程，CAD会黑屏卡一下 你先用-plot命令执行，用网络打印机打印试试，如果可以打印应该不是打印机名字问题
我觉得可能是不同打印机他的纸张名字不一样，可能不是A4这个名 ssyfeng 发表于 2024-8-7 09:37
你先用-plot命令执行，用网络打印机打印试试，如果可以打印应该不是打印机名字问题
我觉得可能是不同打印 ...
用CAD自带打印是可以正常打印的 不要掉下去 其实你自己用-plot命令手动试一下打印一次，应该就知道问题出在哪里了 ssyfeng 发表于 2024-8-7 17:18
其实你自己用-plot命令手动试一下打印一次，应该就知道问题出在哪里了
用CAD自带打印是可以正常打印的 打印机路径，全部改为双斜线试试。
页:
[1]
2