[原创]批量打印程序2.9.1版（源代码）（重新上传2010-11-28）

alan_cmh · 发表于 2005-7-26 10:32

请问秋枫，以下是我自己编的一个小程序，前提是打印相关设置已经有的情况下，打印单文件多图框中的某页时，直接框选该面即可打印，如何将以下代码中的手动选择打印方向plot_dir 的语句，改为自动判断方向呢？谢谢!

(defun c:pw ()
;(psave)
(Setvar "cmdecho" 0)
(initget "Portrait Landscape")
(setq plot_dir
(getkword
    "\nSpecify plot dirction [Portrait/Landscape] <L>: "
)
)
(if (null plot_dir)
    (setq plot_dir "Landscape")
)
(pwstart)
(command "-plot"   "y"       "model" "a4.pc3" "a4"
    "Millimeters"       plot_dir "no"    "view"    "tmpview"
    "fit"     "center" "yes" "monochrome"    "yes"     ""
    ""      ""        "Y"
   )
     ;(pwend)
;(prestore)
(princ)
)

kaixinmao · 发表于 2005-7-30 11:33

晕，

你都框选了，自然能够取得该框的坐标范围，

比较范围的dx和dy哪个大不就可以判定是纵向还是横向了吗？

唉呀，batch plot我一次也没有用过。呵呵

ganok · 发表于 2005-8-1 17:09

kaixinmao,你可以用autowiseplot，保证让你满意。

iceberg2509 · 发表于 2005-8-6 16:27

谢谢，老大的无私分享

baggio98 · 发表于 2005-8-29 22:29

找了很久了,,多谢.

chdxllll · 发表于 2005-8-31 10:48

为什么第一张图老打不出来？？

transman · 发表于 2005-10-21 00:22

非常感谢您！！昨晚找到半夜，看到了您的打印程序，用一下果然是我用过打印程序以来最好用的！！

今天要出施工图设计图，本来我因为有几十张图要打印头疼，1个小时就全部搞定。

再次感谢您！！

瀛丹 · 发表于 2005-10-22 19:38

VERY GOOD~~~~很爽的程序~~~

ding9736 · 发表于 2005-10-22 20:51

真的非常实用，谢谢秋枫大侠，如能增加如下的功能就更好了：

1)增加把一个图框用两张以上的A3纸水平方向分开打印(主要是当打印机不够大时，先用小一型号的纸印后再粘贴起来)

2)增加根据长X宽的比例自动来辨别纸张类型

3)自动辨别纸张是竖印还是横印

4)增加框选一下，就把A3和A4都自动筛选打印出来（先打印完所有的A3后再打印A4)

ding9736 · 发表于 2005-10-23 18:18

不好意思，上次的第二条我说错了，这个程式是可以自动辨别纸张是竖印还是横印的，但好象在打印A4纸的时候好像有不能居中自动调整比例，

账号		自动登录	找回密码
密码			注册