简易导出 PDF

p-3-ianlcc

统一网名 发表于 2023-9-6 14:17
set lj="G:\PDFtk Server\bin"
把  bat  文件中这一行 路径改成你的 PDFtk 的安装路径然后再试一下。
- ...

我没有用合并，我只是单纯的要把图纸导出pdf
就失败了～

统一网名

p-3-ianlcc 发表于 2023-9-6 18:18
我没有用合并，我只是单纯的要把图纸导出pdf
就失败了～

你的图框名称是啥

qazxswk

统一网名 发表于 2023-9-6 08:13
加了A1的，因为我的打印机只支持A3、A4的纸张，所以A1和A2的实际打印出来是多大我并没有试过。

打印顺序很乱

统一网名

qazxswk 发表于 2023-9-7 01:39
打印顺序很乱

我也遇到这种情况，不是所有图导出都乱，框选的应该是自动排序的，导出和合并都是按这个顺序来的。
所以我猜测是图框或图来回复制造成的，希望有高手能指点一下是究竟是何原因造成的。

qazxswk

文件命名也有问题，无规律的。

统一网名

qazxswk 发表于 2023-9-8 13:08
文件命名也有问题，无规律的。

就是一个简易的导出pdf；文件名的可以通过修改这行代码：      (setq mz (rtos i));导出PDF的文件名。

qazxswk

统一网名 发表于 2023-9-8 14:17
就是一个简易的导出pdf；文件名的可以通过修改这行代码：      (setq mz (rtos i));导出PDF的文件名。

有没有考虑过，文件命名影响了打印出的文件排序，就是我前面说的打印顺序？

统一网名

qazxswk 发表于 2023-9-8 17:41
有没有考虑过，文件命名影响了打印出的文件排序，就是我前面说的打印顺序？

这个真没有考虑过，有好方法了分享一下。

qazxswk

文件打印顺序，可以参考这个帖子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))
                                (dayin  p1 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

另外，文件 ...

好的，多谢