明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3569|回复: 22

[源码] 源码:批量打印,一键设置打印,一键发布A4、A3到打印机打印,一键导JPG、PDF到...

  [复制链接]
发表于 2024-1-1 22:31:45 | 显示全部楼层 |阅读模式
本帖最后由 zhangcn 于 2024-1-17 21:09 编辑

轻量办公,打图自动化
软件环境:浩辰cad2022-2024,AutoCAD2024中测试正常,(浩辰cad布局目前不太兼容好)
使用场景:只在“模型”环境下打少量几张图,频繁的打印JPG、PDF、纸张打印机打印。手动选矩形框、图块框打印,轻量办公。大量的图纸批量打印建议用源泉插件、秋风批量打印……。
实现功能:一键设置A4、A3打印,一键发布A4、A3到打印机打印,一键导JPG、PDF到桌面

       识别矩形、图框块生成打印范围,自适应横竖图幅,实现简单的批量打印。
服用前注意:请参考下图,在相应的命令下修改成自己常用的“打印机名”“打印样式”“纸张名”。

---------------------------------------------------------------------------------------------------------------------------------------------
命令说明:
A3-JPG-BLACK    (纸张尺寸:A3宽4961*高3508像素大小(需要自己设置),JPG批量图导出)
A3-JPG-COLOR    (纸张尺寸:A3宽4961*高3508像素大小(需要自己设置),JPG批量图导出)
A3-PDF-BLACK    (纸张尺寸:“ISO_full_bleed_A3_(420.00_x_297.00_毫米)”,色彩模式:黑色,PDF打量导出)
A3-PRINT-BLACK (纸张尺寸:“ISO_full_bleed_A3_(420.00_x_297.00_毫米)”,色彩模式:黑色,A3打印机批量打印)
A3-PRINT-COLOR (纸张尺寸:“ISO_full_bleed_A3_(420.00_x_297.00_毫米)”,色彩模式:彩色,A3打印机批量打印)
A3-PRINT-SET     (仅设置,用于配合其它专业批量打印软件打印,
                                         纸张尺寸:“ISO_full_bleed_A3_(420.00_x_297.00_毫米)”,色彩模式:彩色,)

A4-PRINT-BLACK (纸张尺寸:ISO_full_bleed_A4_(297.00_x_210.00_毫米),色彩模式:黑色,A4打印机批量打印)
A4-PRINT-COLOR (纸张尺寸:ISO_full_bleed_A4_(297.00_x_210.00_毫米),色彩模式:彩色,A4打印机批量打印)
A4-PRINT-SET      (仅设置,用于配合其它专业批量打印软件打印,
                                          纸张尺寸:ISO_full_bleed_A4_(297.00_x_210.00_毫米),色彩模式:
色,)
---------------------------------------------------------------------------------------------------------------------------------------------
本lisp参考
1、如何用lisp分别保存多个打印设置为打印页面设置
http://bbs.mjtd.com/forum.php?mo ... e=1&_dsign=d99a9185
2、cad布局空间批量转jpg
http://bbs.mjtd.com/forum.php?mo ... jpg&_dsign=2765b8f4
3、模型空间批量打印
http://bbs.mjtd.com/forum.php?mo ... e=1&_dsign=1880da71
结合chatGPT优化得来,在此感谢以上朋友提供的源码!
还要感谢伟大的AI时代,让门外汉也能简单编程和调试程序!

---------------------------------------------------------------------------------------------------------------------------------------------
已知BUG
AutoCAD测试正常,浩辰cad布局目前不太兼容好,期待懂针对浩辰优化的朋友出手。
目前测试矩形、和图框块有效,不识别编组,编组打印会把编组内每一个图形元素逐个打

由于输出图片得用像素单位,打印用毫米单位,所以脚本分为两个。
0JPG-Export.lsp 用于导JPG
1Key-Print.lsp 用于打印和导PDF

本帖子中包含更多资源

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

x
发表于 2024-1-7 21:40:20 | 显示全部楼层
类似楼主的情况自己也做了一个,主要还是把平时的工作流程总结在程序里面,比如某些图层的显隐,某些对象的显隐等,针对不同情况出不同的图。
另外:可用选择范围来决定打印方向
(setq pt1 (getpoint "\n 第一点:"))
        (setq pt2 (getcorner pt1 "\n 另一角点:"))
        (setq fx (if(>(apply '-(mapcar 'abs(mapcar '- pt1 pt2)))0) "L" "P"))

本帖子中包含更多资源

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

x

点评

量大的用源泉批量打印也不错的,当然浩辰cad自带的也还行。  发表于 2024-1-10 10:45
非常不错,批量打印目前没找到合适的,用的旧版依云,新版本cad又用不了,哎  发表于 2024-1-9 21:07
关于横竖自动打印,我平时喜欢横版画图,使用ISO_full_bleed_A3_(420.00_x_297.00_毫米),ISO_full_bleed_A4_(297.00_x_210.00_毫米)这两个尺寸配合打印,少有竖板绘画和打印,有空研究研究。  发表于 2024-1-7 22:17
不错,每个人都面对的工作环境与状态不同,都会有自己的工作流程习惯,用顺手就是适合自己的。对于我来讲平时就是在cad“模型”环境里画个三四张图,不断的要导JPG、PDF、打印,折腾出这个代码对我个人刚好够用。  发表于 2024-1-7 22:11
发表于 2024-1-13 12:04:41 来自手机 | 显示全部楼层
G〆h 发表于 2024-1-7 21:40
类似楼主的情况自己也做了一个,主要还是把平时的工作流程总结在程序里面,比如某些图层的显隐,某些对象的 ...

     (setq fx (if(>(apply '-(mapcar 'abs(mapcar '- pt1 pt2)))0) "L" "P"))这句的作用是什么?
发表于 2024-1-7 13:19:39 | 显示全部楼层
zhangcn 发表于 2024-1-6 10:32
占个楼,有更新说明的放此楼。
2024年1月7日,最新更新:实现一键设置A4、A3打印,一键发布A4、A3到打印机 ...

加载  命令: (LOAD "C:/Users/Administrator/Downloads/PrintSet.lsp") 语法错误

点评

请在浩辰CAD“环境”模式使用  发表于 2024-1-7 13:39
发表于 2024-1-2 12:56:56 | 显示全部楼层
谢谢楼主奉献好的代码
 楼主| 发表于 2024-1-6 10:32:46 | 显示全部楼层
本帖最后由 zhangcn 于 2024-1-17 21:08 编辑

浩辰cad布局目前不太兼容
发表于 2024-1-7 18:00:34 | 显示全部楼层
muai2010 发表于 2024-1-7 13:19
加载  命令: (LOAD "C:/Users/Administrator/Downloads/PrintSet.lsp") 语法错误

那没缘分了,只有autocad

点评

经优化在浩辰cad2022-2024,AutoCAD2024中测试正常,(目前只有JPG输出有BUG)欢迎下载测试和反馈!  发表于 2024-1-13 19:27
等有空了优化适配AutoCAD,敬请期待!  发表于 2024-1-9 09:36
发表于 2024-1-13 12:02:27 来自手机 | 显示全部楼层
只能点选,不能框选?

点评

使用场景:只在“模型”环境下打少量几张图,频繁的打印JPG、PDF、纸张打印机打印。轻量办公。 所以打图量少,不考虑框选了,主要不会编程。功能越全代码越复杂,这个lisp主要是用上班摸鱼时间来玩玩。  发表于 2024-1-13 18:45
 楼主| 发表于 2024-1-13 18:57:28 | 显示全部楼层
qazxswk 发表于 2024-1-13 12:04
(setq fx (if(>(apply '-(mapcar 'abs(mapcar '- pt1 pt2)))0) "L" "P"))这句的作用是什么?

应该是纸张横竖判断
发表于 2024-1-13 20:02:47 | 显示全部楼层
批量打印我还真用过,2年前写的程序,框选多张图纸,一键生成JPG文件或PDF文件,当然只适用自己的图框

点评

指定特定图框,还是有些局限,成熟的批量打印都是通吃,我们从事的行业图量不大,一个项目就三四张图,有时候加图框有时候加个矩形框就输出了.当然我组装的这个脚本也可以考虑加个框选对象,看有时间再研究了.  发表于 2024-1-13 20:15
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-24 21:58 , Processed in 0.175110 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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