自制批量打印程序原码

198526

自己做的公司一直在用，拿出来晒晒，不知能不能加点分！
用途：1个CAD档里多个分图一次性打印
批量打印要求： 1.打印前必须先设定好“打印-模型”里的打印机名称及打印样式，并应用到布局（当然如果这两项你都可以固定的话，那你可以直接把它加在下面的原码里）2.要打印的图档必须有同名的块的边框 （其实打印原理就是找出图框块的两个斜对角点用窗口打印的）
现在打印顺序是从右向左，从上往下的。如果要修改自己改一下，不会可以留言把你要的顺序写上
命令：A3以A3纸打印，A4以A4纸打印。当然你还可按你的需求自己添加。
(defun c:A3()
  (AAAX "A3")
)
(defun c:A4()
  (AAAX "A4")
)
(defun AAAX( AAA / L TT TQ TQQ  T1 TT1 TT2 PC PDX PDY)
  (princ  "\n打印前必须先设定好“打印-模型”并应用到布局" )
(setq l 0)
  (initget  128 "S  " )
      (setq tt (GETSTRING "\n请输入图框块名或键入<S>继承对象块名: "))
  (if (or(= "" tt )(= nil tt ))(setq tt "图框块"))
  (if (or(= "S" TT)(= "s" TT))
    (progn
      (setq TQ (ENTsel "\n选取继承对象块")
     TQQ (cdr (assoc 0 (entget (car TQ)))))
      (WHILE (/= "INSERT" TQQ)
(setq TQ (ENTsel "\n选取错误，请重新选取继承对象块")
       TQQ (cdr (assoc 0 (entget (car TQ)))))
)
      (SETQ tt (cdr (assoc 2 (entget (car TQ)))))
      
      )
    )
(COMMAND "ucs" "w")
  (PRINC "\n打印块名为<")(PRINC tt)(PRINC ">")
  (PRINC "\n请选择要打印的区域")
    (setq t1 (SSGET (list (cons 2 tt)))
   tqq '())
    (while (= nil t1)
      (PRINC "\n区域内没有指定块，请重新选择要打印的区域")
    (setq t1 (SSGET (list (cons 2 tt))))
        )
(repeat (sslength t1)
(vla-getboundingbox (vlax-ename->vla-object (ssname t1 l)) 'minp 'maxp)
    (setq tt1 (vlax-safearray->list minp)
   tt2 (vlax-safearray->list maxp)
   )
  (setq PDX (ABS(- (caR tt1) (caR tt2)))
        PDY (ABS(- (caDR tt1) (caDR tt2)))
        PC "L")
(if (< PDX PDY)                                    
(setq PC "P"))
  (if (/= nil tqq)
    (setq tqq (cons (list (car tt1) tt1 tt2 pc) tqq ))
    (setq tqq (list (list (car tt1) tt1 tt2 pc)))
    )
    (setq l (+ 1 l))
)
(foreach n (MAPCAR '(LAMBDA (R) (assoc R tqq)) (vl-sort (MAPCAR '(LAMBDA (RR) (car RR)) tqq) '<))
  (COMMAND "-PLOT" "Y" ""  "" AAA "" (LAST N) "" "W" (NTH 1 N) (NTH 2 N) "F" "C" "Y" "" "Y" "W" "N" "Y" "Y")
  )
   (alert (stRcat "已成功发送"(itoa l)"张打印命令！"))
  )

yxl88168

支持楼主，不过我觉得秋枫的很好用，楼主去看看

198526

他的是原码吗？

teykmcqh

我还是同一个问题，打印到文件（譬如PDF）时，怎么自动命名文件名呢？

198526

刚去找过秋枫的程序了，很强！

lcxing

楼住的也很不错的

xiaxiang

不错，支持一个

zwqgdhl

真的不错，可以给大家思路，支持楼主

gbhsu

下次我也把自已的晒出来
不过我的自动打印是和图纸序号关联的
在模型空间任意图纸都可打印，而已可以自动选取默认打印机
下次研究一个大众化的傻瓜打印程序

chengx2000

拿回去先看一看，谢谢楼主的分享。