【TT】批量打印、图框排序、图框大小、图框加长

kucha007

最近在玩批量打印，结合之前对A类纸张的探索，目前有了一个阶段性的成果，分享给大家
A类纸张的计算：http://bbs.mjtd.com/thread-186349-1-1.html


请教一下大家有没有Visual LISP批打的例子分享一下，感激不尽！

目前使用(command "_.plot" "" )来批量打印，以下是支持批打的纸张(自动识别方向)，打印机自己新建好纸张就行。
至于加长图框小伙伴研究一下再加进去哈~变量都留着呢。

1. (cond
   
2.   ((= Width Lenght 80)"TEST_80x80mm")
   
3.   ((= "4" (rtos PaperType 2 0))"A4_210x297mm")
   
4.   ((= "3" (rtos PaperType 2 0))"A3_297x420mm")
   
5.   ((= "2" (rtos PaperType 2 0))"A2_420x594mm")
   
6.   ((= "1" (rtos PaperType 2 0))"A1_594x841mm")
   
7.   ((= "0" (rtos PaperType 2 0))"A0_841x1189mm")
   
8.   (t "A4_210x297mm")
   
9. )
   

(cond <br />   ((= Width Lenght 80)"TEST_80x80mm")<br />   ((= "4" (rtos PaperType 2 0))"A4_210x297mm")<br />   ((= "3" (rtos PaperType 2 0))"A3_297x420mm")<br />   ((= "2" (rtos PaperType 2 0))"A2_420x594mm")<br />   ((= "1" (rtos PaperType 2 0))"A1_594x841mm")<br />   ((= "0" (rtos PaperType 2 0))"A0_841x1189mm")<br />   (t "A4_210x297mm")<br /> )<br />

lxl217114

http://bbs.mjtd.com/thread-179600-1-1.html
http://bbs.mjtd.com/thread-180750-1-1.html
http://bbs.mjtd.com/thread-110079-1-1.html
http://bbs.mjtd.com/thread-181840-1-1.html
http://bbs.mjtd.com/thread-182996-1-1.html
http://bbs.mjtd.com/thread-175806-1-1.html
http://bbs.mjtd.com/thread-85437-1-1.html
http://bbs.mjtd.com/thread-109647-1-1.html
http://bbs.mjtd.com/thread-176162-1-1.html

kucha007

lxl217114 发表于 2023-2-16 16:42
测试了一下  好像不支持缩放

594x420  放大10倍如下

嗯嗯，我在布局出图，没考虑缩放。而且缩放的话，a4的2倍等于a2的一倍，类似这种情况就不好说哪一个比例是对的了。

kucha007

梦想家-DING 发表于 2023-2-14 12:29
直接识别最大包围盒打印好不好实现呢？例如横向比竖向长就识别为横向打印，竖向比横向长就识别为竖向打印[e ...

现在就是这样操作的，所以没有解决旋转图框的问题（主要是我也用不到）

lxl217114

谢谢分享，又有新作品产出了。

kucha007

lxl217114 发表于 2023-2-13 22:19
谢谢分享，又有新作品产出了。

瞎玩

aws

支持一下，下载学习学习

vladimirputin

非常不错的代码， 谢谢楼主分享啊。

kucha007

lxl217114 发表于 2023-2-13 23:56
http://bbs.mjtd.com/thread-179600-1-1.html
http://bbs.mjtd.com/thread-180750-1-1.html
http://bbs.m ...

感谢，全看完了，都是command

669423907

非常感谢楼主分享好软件

梦想家-DING

直接识别最大包围盒打印好不好实现呢？例如横向比竖向长就识别为横向打印，竖向比横向长就识别为竖向打印