请问各位大哥，快速打印不能设置打印机还有纸张为变量么，麻烦大哥帮忙改改
本帖最后由 tranney 于 2014-4-13 16:36 编辑请问各位大哥，快速打印不能设置打印机还有纸张为变量么，麻烦大哥帮忙改改
(defun c:xa3() (/ zhizhang dayinji)
(setq zhizhang "A3")
(setq dayinji "Adobe PDF")
(dayin))
(defun c:a3() (/ zhizhang dayinji)
(setq zhizhang "A3")
(setq dayinji "HP 5100")
(dayin))
(defun c:a2() (/ zhizhang dayinji)
(setq zhizhang "A2")
(setq dayinji "HP DJ500")
(dayin))
(defun dayin() (/ ent fx i maxpoint maxx0 maxy0 minpoint minx0 miny0 os pmax pmin ptlist ss sstk zhizhang dayinji)
(vl-load-com)
(setvar "cmdecho" 0) (setq os (getvar "osmode") ss (ssadd) sstk (ssadd))
(princ "\n 请选取矩形图框:")
(while (setq ss (ssget ":S" (list '(0 . "LWPOLYLINE") '(90 . 4))))
;(while (setq ss (ssget (list '(0 . "LWPOLYLINE") '(90 . 4))))
(setq ent (ssname ss 0))
(vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)
(setq pmax (vlax-safearray->list maxpoint)pmin (vlax-safearray->list minpoint)
minx0 (car pmin)miny0 (cadr pmin) maxx0 (car pmax)maxy0 (cadr pmax))
(if (>= (- maxx0 minx0) (- maxy0 miny0)) (setq fx "L") (setq fx "P") )
;;;生成矩形的对角线并将对角线加入选择集sstk
(entmake (list '(0 . "LINE") (cons 62 6) (cons 10 (list minx0 miny0 0)) (cons 11 (list maxx0 maxy0 0))))
(setq sstk (ssadd (entlast) sstk))
(entmake (list '(0 . "LINE") (cons 62 6) (cons 10 (list minx0 maxy0 0)) (cons 11 (list maxx0 miny0 0))))
(setq sstk (ssadd (entlast) sstk))
;;;生成矩形的对角线并将对角线加入选择集sstk结束
(setq ptlist (cons (list pmin pmax fx) ptlist))
)
(initget "Y N ")
(if (/= (getpoint (strcat "\n 确定批量打印?[确认(Y)/退出(N)]:<Y> ")) "N")
(progn
(command "erase" sstk "")
(repeat (setq i (length ptlist))
(setq ent (nth (setq i (1- i)) ptlist )pmin (car ent) pmax (cadr ent) fx (last ent))
(command "_.PLOT" "Y" "" dayinji zhizhang "M" fx "N" "W" pmin pmax "F" "C" "Y" "TArch9.ctb" "Y" "N" "N" "N" "Y")
(princ (strcat "\n 程序正在打印第" (itoa (- (length ptlist) i)) "张>>>>>>>> "))
)
)
(command "erase" sstk "")
)
(setvar "osmode" os) ; 恢复捕捉模式
(princ)
)
原来的快速打印见
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=94175&page=2#pid557901
17楼，我中间完全没改动
页:
[1]