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

alan_cmh

 

请问秋枫，以下是我自己编的一个小程序，前提是打印相关设置已经有的情况下，打印单文件多图框中的某页时，直接框选该面即可打印，如何将以下代码中的手动选择打印方向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

晕，

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

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

 

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

ganok

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

iceberg2509

谢谢，老大的无私分享

baggio98

找了很久了,,多谢.

chdxllll

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

transman

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

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

再次感谢您！！

瀛丹

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

ding9736

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

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

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

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

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

ding9736

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