利用opecdcl的非模态对话框进行多文件批量处理（多图打印）

war32

• 利用odcl的非模态对话框，对dwg文件进行批量打印，打印全部采用vla的函数进行，非模态对话框运行时不能采用command命令,打印的通用函数见http://bbs.mjtd.com/thread-176453-1-1.html
• ;打印pdf
• (defun c:dwgpichuli/Form1/plotpdf#OnClicked (/ acaddoc activedoc doc en end fenshu i listname lujing maxp minp shuxingbiaotilan tufu)
•   (setq acaddoc (vla-get-documents (vlax-get-acad-object)))
•   (setq activedoc (vla-get-activedocument (vlax-get-acad-object)))
•   (while (/= (dcl-ListView-GetCount dwgpichuli/Form1/ListView1) 0) ;当列表框内文件数量不为0时，依次打开文件
•     (progn
•       (setq doc (vla-open acaddoc  (dcl-ListView-GetItemText dwgpichuli/Form1/ListView1 0 0)))
•       ;转至多图打印函数
•       (setq *filename* (getvar "dwgname"))
•       (dayinpeizhi) ;读取打印配置的自定义文件，包含打印机设置和纸张设置信息等
•       (setq en (ssget  "X" '((0 . "INSERT")(410 . "Model")(2 . "A3,A4,A2,A1")))) ;选取块名为A3、A2、A4、A1的块用以判断图框
•       (setq i 0)
•       (repeat (sslength en)
•         (setq end (ssname en i))
•         (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
•         (setq minp (vlax-safearray->list minp)
•           maxp (vlax-safearray->list maxp))
•         ;判断纵向横向，l为横向，p为横向
•         (setq p1 minp)
•         (setq p2 maxp)
•         (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2))
•         (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )
•         (if (> y x) (setq st "p") (setq st "l"))
•         (setq fenshu (dcl_control_gettext dwgpichuli_Form1_TextBox1))
•         (gm-dayin dayinjipdf tufu p1 p2  "y" fenshu lujing T "n")
•         (setq i (1+ i))
•       )
•       (vla-close doc :vlax-false)
•       (dcl-ListView-DeleteItem dwgpichuli/Form1/ListView1 0) ;删除列表中已打印的文件
•     )
•   )
• )
  

李钊伟2012

感觉不错，有机会试试看

陈伟

建议可以按属性识别图幅来自动完成批量打印（最好是动态属性块图框），这样做批打软件时就变得简单了，不知道可有QQ群进行交流