统一网名 发表于 2023-9-6 14:17
set lj="G:\PDFtk Server\bin"
把bat文件中这一行 路径改成你的 PDFtk 的安装路径然后再试一下。
- ...
我没有用合并，我只是单纯的要把图纸导出pdf
就失败了～
p-3-ianlcc 发表于 2023-9-6 18:18
我没有用合并，我只是单纯的要把图纸导出pdf
就失败了～
你的图框名称是啥
统一网名 发表于 2023-9-6 08:13
加了A1的，因为我的打印机只支持A3、A4的纸张，所以A1和A2的实际打印出来是多大我并没有试过。
打印顺序很乱
本帖最后由 统一网名 于 2023-9-7 07:41 编辑
qazxswk 发表于 2023-9-7 01:39
打印顺序很乱我也遇到这种情况，不是所有图导出都乱，框选的应该是自动排序的，导出和合并都是按这个顺序来的。
所以我猜测是图框或图来回复制造成的，希望有高手能指点一下是究竟是何原因造成的。
文件命名也有问题，无规律的。
qazxswk 发表于 2023-9-8 13:08
文件命名也有问题，无规律的。
就是一个简易的导出pdf；文件名的可以通过修改这行代码： (setq mz (rtos i));导出PDF的文件名。
统一网名 发表于 2023-9-8 14:17
就是一个简易的导出pdf；文件名的可以通过修改这行代码： (setq mz (rtos i));导出PDF的文件名。
有没有考虑过，文件命名影响了打印出的文件排序，就是我前面说的打印顺序？
qazxswk 发表于 2023-9-8 17:41
有没有考虑过，文件命名影响了打印出的文件排序，就是我前面说的打印顺序？
这个真没有考虑过，有好方法了分享一下。
本帖最后由 qazxswk 于 2023-9-10 17:19 编辑
文件打印顺序，可以参考这个帖子http://bbs.mjtd.com/forum.php?mo ... 2%D3%A1%CB%B3%D0%F2
另外，文件名有点乱，我做了如下修改：
(setq en (ssget '((0 . "INSERT")(2 . "块名1,块名2,块名3"))));只选取图块
(if (= en nil)(exit))
(setq i 0)
(setq en (sort-se en 10 0 5 nil));顺序从左到右，再从上到下
(setq en (sort-se en 10 1 3 t))
(setq L 0);记录打印的次数
(repeat(sslength en)
(setq mz (rtos i));导出PDF的文件名。
(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"));判断横向还是纵向,p纵向，l横向
(setq wenjian (strcat wj "\\" mz))
(dayinp1 p2 tufu wenjian)
(setq L (1+ L));记录打印的次数
(setq i (1+ i))
)
那个sort-se函数，在那个链接里。
qazxswk 发表于 2023-9-10 17:18
文件打印顺序，可以参考这个帖子http://bbs.mjtd.com/forum.php?mo ... 2%D3%A1%CB%B3%D0%F2
另外，文件 ...
好的，多谢