att 发表于 2005-8-3 20:28:00

批量打印出图的 lisp程序请教！高手进！

<P>(defun c:Mplot() <BR><BR>　　　　(setq p_1 (getpoint"\n\tFirst CORNER:") <BR><BR>　　　　　　 P_2 (getPOINT"\n\tOther CORNER:") <BR><BR>　　　　　　 n (getint"\n\t总张数：&lt;1&gt;")) <BR><BR>　　　　(if (= n nil) (setq n 1)) <BR><BR>　　　　(setq m_d 500) <BR><BR>　　 (REPEAT n <BR><BR>　　　　　　 (command"plot" "w" P_1 P_2 "n" COMMAND)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p_1(polar p_1 (/pi 2) m_d ) p_2(polar p_2 (/pi 2) m_d))</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</P>
<P>)</P>
<P>要实现功能：在AUTOCAD中用PLOT命令每次只能打印一张图纸，如果在一个图形文件内有多张大小一样的图纸成纵向排列，间距M_d=500mm。通过Mplot只需调试一张，便可打印所有图纸</P>
<P>各位大侠请看一下程序有什么问题？ 我对这(command"plot" "w" P_1 P_2 "n" COMMAND)不是太懂，运行命令mplot好象这句的"n"有问题，望各位高手指教！</P>

飞诗(fsxm) 发表于 2005-9-18 19:56:00

<P>请写一点大众习惯的程式好一点~</P>
<P>比如说我图纸总是无规则排列</P>

chamous 发表于 2005-10-29 12:34:00

我的一个项目大大小小的图纸全部在一个CAD文档里,这样无规则怎样实现批量打印?

wjwcl 发表于 2007-3-9 20:22:00

把plot改成-plot应该可以

qianglcq 发表于 2007-7-6 18:58:00

<p>为什么很多人的读习惯这样做图呢?</p><p>有什么好处我真得搞不懂!</p><p></p>

arming_hz 发表于 2007-8-27 22:22:00

<p>用VBA写过一个批打印出图的,不过现在还需要的先要把打印设置好.下一步准备改进为自动搜索图框打印.</p>
页: [1]
查看完整版本: 批量打印出图的 lisp程序请教！高手进！