[LISP]好东西共分享，批打印处理

jdhszh · 发表于 2005-10-29 17:12:00

本帖最后由作者于 2006-5-20 10:21:35 编辑

本人用LISP写了一个自动写脚本的程序，另加自动打印，和批打印差不多，还能输入时间控制打印时间，我一直在用很方便的，CAD2000、2004都行，若需要请告诉你的邮箱，提供源程序。
(defun C:DYSZ()
(SZ))
(defun C:PDY(/ dfil qq bbb ml sm mb cdate ct)
(setvar "CMDECHO" 0)
(alert " 请先把程序加入到启动组内\n\n工具→加载应用程序→启动组…")
(sz)
(setq qq (qf_getFolder "选择DWG所在文件夹:"))
(if qq
(progn
(setq bbb(vl-directory-files qq))
(setq bbb(cdr(cdr bbb)))
(setq ml (open "C:\\dy.scr" "w"))
(setq sm(length bbb))
(princ ";;目录共有文件 " ml)
(prin1 sm ml)
(princ "\n" ml)
(setq i 0)
(repeat sm
(setq mb(nth i bbb))
(setq dwg(strcat "*" "DWG"))
(setq dxg(strcat "*" "dwg"))
(if (or (wcmatch mb dwg) (wcmatch mb dxg))
(progn
(setq mb1(strcat qq "\" mb))
(princ "open " ml)
(princ mb1 ml)
(princ "\n" ml) ;;空一格
(princ "dy" ml) ;;CAD执行命令,可重复
(princ "\n" ml)
(princ "close" ml)
(princ "\n" ml)
(princ "n" ml)
(princ "\n" ml)
)
)
(setq i(1+ i))
)
(close ml)
;;(startapp "notepad.exe" "C:\\dy.scr")
)
)
(alert "脚本为C:\\dy.scr，请运行。\n工具→运行脚本…")
(setvar "CMDECHO" 1)
)
;;qf_getFolder 引至明经社区
(defun qf_getFolder (msg / WinShell shFolder path catchit)
(vl-load-com)
(setq winshell (vlax-create-object "Shell.Application"))
(setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
(setq
catchit (vl-catch-all-apply
'(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
)
)
)
(if (vl-catch-all-error-p catchit)
nil
path
)
)
;;
(defun SZ()
(setq dyp(getstring "\n打印机配置名\(如：hp deskjet 1120C.pc3\): "))
(graphscr)
(vl-bb-set 'dypz dyp)
(setq tz(getstring "\n图纸尺寸\(如：过大尺寸：自定义： 5 600 x 600 毫米 \(横向\)\): "))
(vl-bb-set 'tzcc tz)
(setq dyb(getstring "\n打印比例\(如：1:1.5\): "))
(vl-bb-set 'dybl dyb)
(setq dyy(getstring "\n打印样式表名\(如：acad.ctb\): "))
(vl-bb-set 'dyys dyy)
(setq ti(getstring "\n输出每幅图间隔<秒>: "))
(vl-bb-set 'time ti)
)
;;;
(defun C:dy(/ second1 second2 time)
(command "cmdecho" 0)
(setq dyp(vl-bb-ref 'dypz))
(if (= dyp nil)
(progn
(alert "请先执行批打印配置输入命令！")
(quit)
))
(setq tz(vl-bb-ref 'tzcc))
(setq dyb(vl-bb-ref 'dybl))
(setq dyy(vl-bb-ref 'dyys))
(setq ti(atoi (vl-bb-ref 'time)))
(setq second1 (* 86400.0 (- (getvar "DATE") (fix (getvar "DATE")))))
(command "zoom" "e")
(setq second2 (* 86400.0 (- (getvar "DATE") (fix (getvar "DATE")))))
(setq time(- second2 second1))
(while (= x nil)
(setq second2 (* 86400.0 (- (getvar "DATE") (fix (getvar "DATE")))))
(setq time(- second2 second1))
(if (> time ti) ;;每秒打印一幅
(progn
(setq x T)
(command "-plot" "y" "" dyp tz "m" "P" "N" "E" dyb "C" "y" dyy "y" "n" "N" "N" "Y")
))
)
(command "cmdecho" 1)
)
若你的机子不能用请直接修改源代码

本人用LISP写了一个自动写脚本的程序，另加自动打印，和批打印差不多，还能输入时间控制打印时间，我一直在用很方便的，CAD2000、2004都行，若需要请告诉你的邮箱，提供源程序。
(defun C:DYSZ()
(SZ))
(defun C:PDY(/ dfil qq bbb ml sm mb cdate ct)
   (setvar "CMDECHO" 0)
(alert " 请先把程序加入到启动组内\n\n<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>→加载应用程序→启动组…")
(sz)
(setq qq (qf_getFolder "选择DWG所在文件夹:"))
(if qq
 (progn
 (setq bbb(vl-directory-files qq))
 (setq bbb(cdr(cdr bbb)))
 (setq ml (open "C:\\dy.scr" "w"))
 (setq sm(length bbb))
  (princ ";;目录共有文件 " ml)
  (prin1 sm ml)
  (princ "\n" ml)
  (setq i 0)
   (repeat sm
   (setq mb(nth i bbb))
   (setq dwg(strcat "*" "DWG"))
   (setq dxg(strcat "*" "dwg"))
   (if (or (wcmatch mb dwg) (wcmatch mb dxg))
    (progn
    (setq mb1(strcat qq "\" mb))
    (princ "open " ml)
    (princ mb1 ml)
    (princ "\n" ml)  ;;空一格
    (princ "dy" ml)  ;;CAD执行命令,可重复
    (princ "\n" ml)
    (princ "close" ml)
    (princ "\n" ml)
    (princ "n" ml)
    (princ "\n" ml)
    )
   )
 (setq i(1+ i))
  )
(close ml)
;;(startapp "notepad.exe" "C:\\dy.scr")
 )
)
(alert "脚本为C:\\dy.scr，请运行。\n工具→运行脚本…")
(setvar "CMDECHO" 1)
)
;;qf_getFolder 引至明经社区
(defun qf_getFolder (msg / WinShell shFolder path catchit) 
  (vl-load-com) 
  (setq winshell (vlax-create-object "Shell.Application")) 
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)) 
  (setq 
    catchit (vl-catch-all-apply 
      '(lambda () 
(setq shFolder (vlax-get-property shFolder 'self)) 
(setq path (vlax-get-property shFolder 'path)) 
       ) 
    ) 
  ) 
  (if (vl-catch-all-error-p catchit) 
    nil 
    path 
  ) 
)
;;
(defun SZ()
(setq dyp(getstring "\n打印机配置名\(如：hp deskjet 1120C.pc3\): "))
(graphscr)
(vl-bb-set 'dypz dyp)
(setq tz(getstring "\n图纸尺寸\(如：过大尺寸：自定义： 5 600 x 600 毫米 \(横向\)\): "))
(vl-bb-set 'tzcc tz)
(setq dyb(getstring "\n打印比例\(如：1:1.5\): "))
(vl-bb-set 'dybl dyb)
(setq dyy(getstring "\n打印样式表名\(如：acad.ctb\): "))
(vl-bb-set 'dyys dyy)
(setq ti(getstring "\n输出每幅图间隔<秒>: "))
(vl-bb-set 'time ti)
)
;;;
(defun C:dy(/ second1 second2 time)
 (command "cmdecho" 0)
 (setq dyp(vl-bb-ref 'dypz))
 (if (= dyp nil)
  (progn 
  (alert "请先执行批打印配置输入命令！")
  (quit)
  ))
 (setq tz(vl-bb-ref 'tzcc))
 (setq dyb(vl-bb-ref 'dybl))
 (setq dyy(vl-bb-ref 'dyys))
 (setq ti(atoi (vl-bb-ref 'time)))
 (setq second1 (* 86400.0 (- (getvar "DATE") (fix (getvar "DATE")))))
 (command "zoom" "e")
 (setq second2 (* 86400.0 (- (getvar "DATE") (fix (getvar "DATE")))))
 (setq time(- second2 second1))
 (while (= x nil)
  (setq second2 (* 86400.0 (- (getvar "DATE") (fix (getvar "DATE")))))
  (setq time(- second2 second1))
  (if (> time ti)  ;;每秒打印一幅
   (progn
   (setq x T)
   (command "-plot" "y" "" dyp tz "m" "P" "N" "E" dyb "C" "y" dyy "y" "n" "N" "N" "Y")
   ))
  )
(command "cmdecho" 1)
)
若你的机子不能用请直接修改源代码

教父 · 发表于 2005-10-29 20:08:00

@163.com.cn?!!!

有这个吗

zmcy2003 · 发表于 2005-10-30 06:41:00

你好，能给我一个吗zmcy20032003@163.com

afeng0712 · 发表于 2005-11-3 19:52:00

这里可以粘贴原程序啊！我曾经粘贴过打印的！

望对比下！

iceberg2509 · 发表于 2005-11-4 13:02:00

给我发封邮件吧：iceberg7512@163.com

我也做二次开发，我们可以交流一下。

afeng0712 · 发表于 2005-11-4 14:41:00

我的QQ：76370642

chamous · 发表于 2005-11-5 13:23:00

非常谢谢!我的邮箱是:

chamous@tom.com

不知你的程序能否解决我的图框大小不一,无规则排放的批打印问题.

jdhszh · 发表于 2005-11-5 15:19:00

不知你是不是需要同一比例，而打印样式完全一致的图件，如果你想让打印之前需要对图形作一些改变，恐怕还需另外的程序处理，这要加在打印之前。

碎玉す全瓦 · 发表于 2005-11-5 18:21:00

能不能把指定文件夹下的所有图形按顺序打印出来？

能的话请提供给我一份，先谢谢了。

xsjun21@sina.com

jskscxn · 发表于 2005-11-7 14:10:00

你好，

能给我一个吗JSKSCXL01@163.com

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