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

zm880928

(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。

zm880928

不要沉，给我上去

ssyfeng

有什么错误提示吗？

zm880928

ssyfeng 发表于 2024-8-7 08:38
有什么错误提示吗？

命令: dy
***第一角点:
***第二角点:
打印成功 !!!
输入输出设备的名称或 [?] <HP LaserJet Pro MFP M127-M128 PCLmS.pc3>:  *取消*

以上就是程序执行过程，CAD会黑屏卡一下

ssyfeng

你先用-plot命令执行，用网络打印机打印试试，如果可以打印应该不是打印机名字问题
我觉得可能是不同打印机他的纸张名字不一样，可能不是A4这个名

zm880928

ssyfeng 发表于 2024-8-7 09:37
你先用-plot命令执行，用网络打印机打印试试，如果可以打印应该不是打印机名字问题
我觉得可能是不同打印 ...

用CAD自带打印是可以正常打印的

zm880928

不要掉下去

ssyfeng

其实你自己用-plot命令手动试一下打印一次，应该就知道问题出在哪里了

zm880928

ssyfeng 发表于 2024-8-7 17:18
其实你自己用-plot命令手动试一下打印一次，应该就知道问题出在哪里了

用CAD自带打印是可以正常打印的

qazxswk

打印机路径，全部改为双斜线试试。