<P> </P>
<P>请问秋枫，以下是我自己编的一个小程序，前提是打印相关设置已经有的情况下，打印单文件多图框中的某页时，直接框选该面即可打印，如何将以下代码中的手动选择打印方向plot_dir 的语句，改为自动判断方向呢？谢谢!</P>
<P>(defun c:pw () <BR> ;(psave)<BR> (Setvar "cmdecho" 0)<BR> (initget "Portrait Landscape")<BR> (setq plot_dir<BR> (getkword<BR> "\nSpecify plot dirction <L>: "<BR> )<BR> )<BR> (if (null plot_dir)<BR> (setq plot_dir "Landscape")<BR> )<BR> (pwstart)<BR> (command "-plot" "y" "model" "a4.pc3" "a4"<BR> "Millimeters" plot_dir "no" "view" "tmpview"<BR> "fit" "center" "yes" "monochrome" "yes" ""<BR> "" "" "Y"<BR> )<BR> ;(pwend)<BR> ;(prestore)<BR> (princ)<BR>)</P>
<P>晕，</P>
<P>你都框选了，自然能够取得该框的坐标范围，</P>
<P>比较范围的dx和dy哪个大不就可以判定是纵向还是横向了吗？</P>
<P> </P>
<P>唉呀，batch plot我一次也没有用过。呵呵</P>
<A name=45468><FONT color=#000066><B>kaixinmao</B></FONT></A>,你可以用autowiseplot，保证让你满意。
<P>谢谢，老大的无私分享</P>
找了很久了,,多谢.
<P>为什么第一张图老打不出来？？</P>
<P>非常感谢您！！昨晚找到半夜，看到了您的打印程序，用一下果然是我用过打印程序以来最好用的！！</P>
<P>今天要出施工图设计图，本来我因为有几十张图要打印头疼，1个小时就全部搞定。</P>
<P>再次感谢您！！</P>
VERY GOOD~~~~很爽的程序~~~
<P>真的非常实用，谢谢秋枫大侠，如能增加如下的功能就更好了：</P>
<P>1)增加把一个图框用两张以上的A3纸水平方向分开打印(主要是当打印机不够大时，先用小一型号的纸印后再粘贴起来)</P>
<P>2)增加根据长X宽的比例自动来辨别纸张类型</P>
<P>3)自动辨别纸张是竖印还是横印</P>
<P>4)增加框选一下，就把A3和A4都自动筛选打印出来（先打印完所有的A3后再打印A4)</P>
不好意思，上次的第二条我说错了，这个程式是可以自动辨别纸张是竖印还是横印的，但好象在打印A4纸的时候好像有不能居中自动调整比例，