[分享]批量打印

linshucai

;bplotone 批量打印
;creprint 定义打印区
;(delprint) 删除打印区
;bplotlin 图框打印
;;; 保存原有系统变量，设置程序运行时的系统变量
(Defun cmd1 ()
(Setq cho (Getvar "Cmdecho")
osm (Getvar "Osmode")
)
(Setvar "Cmdecho" 0)
(Setvar "osmode" 0)
)



;;; 恢复原有系统变量
(Defun cmd2 ()
(Setvar "Cmdecho" cho)
(Setvar "Osmode" osm)
(Terpri)
(Princ)
)

(vl-load-com)

(defun getbound1( / ent i obj plist pta ptb ss)
(setq ss (ssget "x" (list (cons 8 "print") )))
(setq i  -1)
(setq plist (LIST) )
 (while (setq ent (ssname ss (setq i (1+ i))))
     (setq obj (vlax-ename->vla-object ent))
      (vla-GetBoundingBox obj 'pta 'ptb)
      (setq plist (append plist (LIST (list (vlax-safearray->list pta) (vlax-safearray->list ptb)))))
 );end while
 plist
);end defun
 
;取得图元的外形最小点与最大点
(defun getbound( / ent obj pta ptb)
(setvar "osmode" 0)
  (if (setq ent (car (entsel "\n选择图框:")))
    (progn
      (setq obj (vlax-ename->vla-object ent))
      (vla-GetBoundingBox obj 'pta 'ptb)
      (list (vlax-safearray->list pta) (vlax-safearray->list ptb) )
    )
  );end if
);end defun

;批量打印
(defun c:bplotlin( / a an n p1 p2 plist px py)
(cmd1)
(setq n (getint "\n请输入份数[1]:"))
(if (= n nil)
   (setq n 1)
)
(setq plist (getbound))
(setq p1 (nth 0 plist))
(setq p2 (nth 1 plist))
(setq px  (- (car p2) (car p1)) )
(setq py (-(cadr p2) (cadr p1)))
(if (> px py)
  (setq an "L")
  (setq an "P")
  )
;(setq p1 (getpoint "\n左下点:"))
;(setq p2 (getpoint "\n右上点:"))
(setq a (strcase (getstring "\nA4/A3[A3]:")))
(if (= a nil)
   (setq a "A3")
)
(repeat n
(command "-plot" "y" "模型" "\\\\JH-05\\HP LaserJet 5100 PCL 6" a "M" an "N" "W" p1 p2 "F" "1.75,0.00" "y" "monochrome.ctb" "y" "w" "N" "n" "Y")
)
(cmd2)
(princ)
)

;批量打印,可为矩形,可为图块
(defun c:bplotone( / a an n p1 p2 plist px py)
(cmd1)
(setq n (getint "\n请输入份数[1]:"))
(if (= n nil)
   (setq n 1)
)
(setq a (strcase (getstring "\nA4/A3[A3]:")))
(if (= a nil)
   (setq a "A3")
)
(setq plist (getbound1))
(setq i 0)
(repeat (length plist)
  (setq plotlist (nth i plist))
  (setq p1 (nth 0 plotlist))
  (setq p2 (nth 1 plotlist))
  (setq px  (- (car p2) (car p1)) )
  (setq py (-(cadr p2) (cadr p1)))
  (if (> px py)
    (setq an "L")
    (setq an "P")
   )
   (repeat n
     (command "-plot" "y" "模型" "\\\\JH-05\\HP LaserJet 5100 PCL 6" a "M" an "N" "W" p1 p2 "F" "1.75,0.00" "y" "monochrome.ctb" "y" "w" "N" "n" "Y")
    );end repeat
   (setq i (1+ i))
 );end repeat
(cmd2)
(princ)
)
;定义打印矩形
(defun C:creprint( / p1 p2 )
(cmd1)
(setq p1 (polar (getpoint "\n左上点:") (* pi 0.75) 50))
(setq p2 (polar (getcorner p1 "\n右下点:")(* pi -0.25) 50) )
(command "-layer" "m" "print" "p" "n" "print" "" )
(command "rectang" p1 p2)
(cmd2)
)
;删除打印矩形
(defun delprint()
(command ".erase" (ssget "x" (list (cons 8 "print"))))
)
取之于"明",用之于"明"
欢迎到我的BLOG里看看哟?
http://dgwintai.b.co.163.com

tonyjx

不错不错,留起来备用,呵

xxjs2006001

正需要,楼主辛苦了

K0735

大哥我不知怎么下载，有直接下载装机的吗？

jialiang168

沒人頂了。我正好用到了。對樓主說聲謝謝啦
就是要這樣提供源碼才可造福更多人學習呢

czb203

测试一下，真的还不错啊 谢谢啊

白色微風1991

不錯不錯,留起來備用,呵

yoyoho

谢谢楼主! 分享学习!

白色微風1991

謝謝樓主! 分享學習!

陈亚娣