找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 381|回复: 0

[求助] 已解决 批量打印如何调用网络打印机

[复制链接]
发表于 2022-8-15 19:18:25 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 统一网名 于 2022-8-21 17:17 编辑

  • ;批量打印图纸,A3 或 A4,默认是 A4
  • (defun c:pp ( / tz en i end  minp maxp  x y p1 p2 st dyj tufu)
  •   (setq  tz (getreal"\n选择【0】: A4 【1】:A3"))
  •   (if (= tz 1)
  •     (setq tufu  "A3 297 x 420 毫米") ;A3 纸
  •     (setq tufu  "A4 210 x 297 毫米") ;A4 纸
  •   )
  •   (setq en (ssget))
  •   (setq i 0)
  •   (repeat (sslength en)
  •     (setq end (ssname en i))
  •     (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
  •     (setq p1 (vlax-safearray->list minp)
  •           p2 (vlax-safearray->list maxp)
  •     )  ;获得包围框,左上角点 P1,右下角点P2
  •     (setq x (abs (- (car p2) (car p1))))
  •     (setq y (abs (- (cadr p2) (cadr p1))))
  •     (if (> y x) (setq st "p") (setq st "l"))
  •     (substr
  •       (setq dyj
  •         (vl-registry-read
  •           "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows" "Device"
  •         )
  •       )
  •       1
  •       (vl-string-search "," dyj)
  •     )  ;获取操作系统默认打印机
  •     ;(setq dyj "EPSON L1800 Series");本地打印机名称
  •     (command "-plot"  "y"  ""   dyj  tufu  ""  st
  •       ""   "W"  P1    P2   "F"  "C"      "Y"
  •       "monochrome.ctb"  ""    ""   "N"  "Y"    "Y"
  •     )
  •     (setq i (1+ i))
  •     (princ)
  •   )
  • )


用本地打印机可以正常打印,网络打印机是带IP地址的打印机,不是安装在某台电脑上共享的,
IP地址是192.168.199.103,打印机名称是KONICA MINOLTA 205i,请教一下该如何调用这个网络打印机。



错误出在了纸张设置上 ,改为 "A3" "A4"后问题已解决了。






论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 13:19 , Processed in 0.290123 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表