[LISP程序]：求助批量打印的LISP程序

monkeyzxp · 发表于 2005-6-3 14:25:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在一个图档中有许多图纸要打印，哪位大虾可以帮忙写一个能够自动打印的程序，谢谢！（能够按图纸编号顺序打印出来）

xshrimp · 发表于 2005-6-4 10:09:38

秋枫发表过一个.发贴前可以先搜索一下论坛.

shang8287 · 发表于 2005-6-7 09:04:00

如果你是要使用, AUTOCAD自带的打印程序就非常好,不妨一试。

falconry · 发表于 2005-6-7 10:03:28

如果图纸是按一定规律排放的话,算出它的角点就可以批量打印了,比如我用的纬地软件是横向等间距出的图,用下面的程序就OK了,前提是你要把打印设置先做好.
(defun c:mp(/ p1 p2 n d )
(command "osnap" "int")
　　　　(setq p1 (getpoint"\n\tFirst CORNER:")
　　　　　　  p2 (getPOINT"\n\tOther CORNER:")
　　　　　　 n (getint"\n\t总张数：<1>")
         d (getint"水平间距：")
      )
(command "osnap" "none")
(print)
(command "plot" "y" "" "" "" "" "" "" "w" p1 p2 "" "" "" "" "" "" "" "" "")
(print)
   (while (> n 1)
　       (setq p1 (polar p1 0 d))
　       (setq p2 (polar p2 0 d))
      (setq n (- n 1))
      (command "plot" "y" "" "" "" "" "" "" "w" p1 p2 "" "" "" "" "" "" "" "" "")
   )
(print)
)

这是我自己用的,如果图纸不是横排的相应改一下程序就行.

小钉子 · 发表于 2005-6-7 10:11:32

又没有不用启动cad只搜索一个插入图形的呢？？

dhh9792 · 发表于 2005-6-28 11:15:27

我认为可以用插入的CAD图框块名来打印

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

[求助] [LISP程序]：求助批量打印的LISP程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块