[LISP程序]：鼎立推荐觉得超值,自动搜索批打印,比自带批打印还好用的批打印lisp程序

yinheng

鼎立推荐觉得超值——自动搜索批打印——比自带批打印还好用的批打印lisp程序——由中国交通公路第一勘测设计研究，院瑞通公司，尹恒开发。一个命令精确搞定几十张图纸的打印。将会给工程制图人员意外的惊喜。只要图框给出标记程序将自动搜索打印图纸按照390×277或380×277打印成A3图纸。如果您是工程制图人员还有什么理由不烤下来试试呢！

;
;==============================================================================
;功能:自动搜索批打印
;==============================================================================
;帮助：使用说明
;==============================================================================
;实用范围说明 适用于 瑞通公司 工程图纸打印
;    要求配置 打印样式使用 "acad.ctb"
;             图纸尺寸为A3
;             打印方式为窗口打印 采用1:1比例打印 1毫米=1图形单位
;             图形方向为 横向 采用非反向打印
;             打印时不打印至文件
;             图形宽度只能为390或380图形单位。当输入390或默认回车时图形宽度为390
;                 输入其它非390数字时则定义图形宽度为380
;             图形高度为特定的277图形单位
;             图框线条为普通"line" (若为多线将只会打印一半线宽)
;             图形宽度为390时对应的x方向打印偏移为15；y方向打印偏移均为5
;             图形宽度为380时对应的x方向打印偏移为25；y方向打印偏移均为5
;    建议配置 打印机名称使用 "\\网络打印机\hp4" 可以忽约打印机输入
;    选框说明 只要框到标记该图纸即被打印
;    标记说明 标记的起始点落于需打印图纸的左上角点 为普通 "line" 线段长为 0.1234 图形单位
;==============================================================================
(defun c:ppr()
　　(setq p_1 (getpoint "\n第一个角点(在此范围中搜索标记打印图形):")
          P_2 (getpoint "\n第二个角点(在此范围中搜索标记打印图形):")
          drawing_tp (getint "\n图纸宽度：<390>")
          myprint (getstring "\n输入打印机：<\\\\网络打印机\\hp4>")
    )
　　(if (or (= drawing_tp nil) (= drawing_tp 390)) (setq drawing_tp 390 xspace 15) (setq drawing_tp 380 xspace 25))
　　(if (= myprint "") (setq myprint "\\\\网络打印机\\hp4"))
;==============================================================================
;控制变量说明
; xspace       x方向打印偏移
; yspace       y方向打印偏移
; myprint      使用打印机名称
; ctb_type     使用的打印样式
; drawing_tp   图形宽度(只能为390或380图形单位)
; keyline      搜索的线条长度(为字符型变量)
;==============================================================================
    (setq yspace 5)
    (setq xyspace (list xspace yspace))
    (setq ctb_type "acad.ctb")
    (setq keyline "0.1234")
    (setq boundx1 (car p_1))
    (setq boundy1 (cadr p_1))
    (setq boundx2 (car p_2))
    (setq boundy2 (cadr p_2))
    (if (> boundx1 boundx2) (setq boundtemp boundx1 boundx1 boundx2 boundx2 boundtemp))
    (if (> boundy1 boundy2) (setq boundtemp boundy1 boundy1 boundy2 boundy2 boundtemp))
;======至此完成输入数据处理=======
    (setq sv (ssget "X" (list (cons 0 "line"))))
    (setq ls (sslength sv))
    (setq prpage 0)
    (setq s 0)
    (repeat ls
        (setq vv (ssname sv s))
        (setq sp (cdr (assoc 10 (entget vv))))
        (setq ep (cdr (assoc 11 (entget vv))))
        (setq s_epdis (distance sp ep))
        (setq boundkey "off")
        (if (and (and (> (car sp) boundx1) (< (car sp) boundx2)) (and (and (> (cadr sp) boundy1) (< (cadr sp) boundy2)))) (setq boundkey "on"))
        (if (and (= (rtos s_epdis 2 4) keyline) (= boundkey "on"))
            (progn
                (setq s_prp1 sp)
                (setq prpage (+ prpage 1))
                (setq prscreemtext1 "\n正在打印第\t\t")
                (setq prscreemtext2 "\t\t张图纸\t本软件由中交一公院\t瑞通公司\t\t尹恒\t\t提供支持")
                (setq prscreemtext (strcat (strcat prscreemtext1 (itoa prpage)) prscreemtext2))
                (princ prscreemtext)
                (command "modemacro" prscreemtext "")
                (setq s_prp2 (list (+ (car s_prp1) drawing_tp) (- (cadr s_prp1) 277)))
　　            (command ".plot" "y" "" myprint "A3" "M" "L" "" "w" s_prp1 s_prp2 1 xyspace "Y" ctb_type "Y" "N" "N" "Y" "Y")
            )
        )
        (setq s (+ s 1))
    )
    (command "modemacro" " " "")
    (princ "\n版权所有人:")
    (princ "\n中国交通公路第一勘测设计研究院")
    (princ "\n西安瑞通路桥科技有限责任公司")
    (princ "\n所有人：尹恒")
    (princ "\n2004年8月4日发布于西安")
    (princ "\n 本操作由 尹恒 提供支持")
)

它山之石

先下过来看看再说

zhuquanmao

批量打印真的管用吗

ilaoyao

有没有http的下载阿。很想要这样软件

onlyforu

想下，没币。痛苦ing

zqb05

啥用啊
能说清楚不？？

jaminth

程序的功能比较简单，通用性不是很强!