AMTONNY 发表于 2008-8-17 00:20:00

[求助]自动打印

<p>以上是偶整理的自动打印程序，有谁能帮偶修改下，改成可以使用网络打印机自动打印就好了</p>

QUAN2518 发表于 2008-8-17 01:25:00

<p>；圖塊批量打印程序 給你參考一下看看我用的</p><p>；提示下這裡沒修改坐標 當打印時不再世界坐標系下要經過坐標轉換</p><p>(defun c:plp (/ a4l aa ll n p1 p2 plot_ss ww zhixing)<br/>&nbsp; ；(setvar "osmode" 16384)<br/>&nbsp; ；(setvar "cmdecho" 0)<br/>&nbsp; (initget 1 "A4 A3")<br/>&nbsp; (setq aa (strcase (getkword "\n指定要打印的紙型A4/A3:")))<br/>&nbsp; (cond&nbsp;((= aa "A4") (setq zhixing "A4(210 x 297mm)"))<br/>&nbsp;((= aa "A3") (setq zhixing "A3(297 x 420mm)"))<br/>&nbsp; )<br/>&nbsp; (prompt "\n選取需打印的對象&lt;塊&gt;:")<br/>&nbsp; (setq plot_ss (ssget (list (cons 2 "bom_frame,enregister_Q,A3,A4,set up type"))))</p><p>;指定要打印的塊<br/>&nbsp; (setq n 0)<br/>&nbsp; (repeat (sslength plot_ss)<br/>&nbsp;&nbsp;&nbsp; (setq p1 (car (setq a4l (acet-ent-geomextents (ssname plot_ss n)))))<br/>&nbsp;&nbsp;&nbsp; (setq p2 (cadr a4l))<br/>&nbsp;&nbsp;&nbsp; (setq ll (abs (- (car p2) (car p1))))<br/>&nbsp;&nbsp;&nbsp; (setq ww (abs (- (cadr p2) (cadr p1))))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(&gt; ll ww)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "-plot"&nbsp;&nbsp;"y"&nbsp;&nbsp; "MODEL"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Previous PLOT"&nbsp;"<a>\\\\Prnsrv\\\*****</a>"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zhixing&nbsp;&nbsp;"Millimeters"&nbsp; "Landscape"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "n"&nbsp;&nbsp;"w"&nbsp;&nbsp; p1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p2&nbsp;&nbsp;"f"&nbsp;&nbsp; "c"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "y"&nbsp;&nbsp;"monochrome.ctb" "y"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "w"&nbsp;&nbsp;"n"&nbsp;&nbsp; "n"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "y"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "-plot"&nbsp;&nbsp;"y"&nbsp;&nbsp; "MODEL"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Previous PLOT"&nbsp;"<a>\\\\Prnsrv\\\*****</a>"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zhixing&nbsp;&nbsp;"Millimeters"&nbsp; "Portrait"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "n"&nbsp;&nbsp;"w"&nbsp;&nbsp; p1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p2&nbsp;&nbsp;"f"&nbsp;&nbsp; "c"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "y"&nbsp;&nbsp;"monochrome.ctb" "y"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "w"&nbsp;&nbsp;"n"&nbsp;&nbsp; "n"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "y"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;if<br/>&nbsp;&nbsp;&nbsp; (setq n (1+ n))<br/>&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;repeat<br/>)</p>

lcglcg 发表于 2008-8-29 08:27:00

试试

AMTONNY 发表于 2008-9-7 13:37:00

<p>谢谢二楼指点，下下来试试看</p><p></p><p></p>

cn0yahoo 发表于 2018-4-19 10:08:39

试用下
页: [1]
查看完整版本: [求助]自动打印