请教，为什么打印会取消呢？

wangweijess

我在做dwg批量转tiff程序。请教下，怎样批量读取文件呢？

我的程序为什么在当运行到第二个文件就打印取消呢？但是第一个文件是可以打印的。请斑竹帮帮我吧。

  ....

  (if (and (setq DWG_DIR (CJW-FILE-GET "选择DWG文件夹")) ;;返回文件目录列表
    (setq DWG_LST (vl-directory-files DWG_DIR "*.dwg")) ;;列出目录中所有文件
      );;if 条件
      (progn
        (foreach DWG DWG_LST
        (if (setq ss(ssget "X"))  (command "._ERASE" ss ""))
  
        ;;炸开图块
        (setq DWG (strcat DWG_DIR "\\" DWG))
        (command ".-INSERT" DWG "0,0" "1" "1" "")
        (command "._ZOOM" "_E")
        (setq dwdmlist (ssget "X" '((0 . "INSERT"))))
        (command "_explode" dwdmlist )
      
        (setq plotFileName(vl-filename-base DWG));;获得原图名
            
        (DWT_TO_TIFF plotFileName);;处理打印函数
     );foreach
     
  );progn
);if

(defun DWT_TO_TIFF(dplotfilename / AcadObject AcadDocument mSpace layers)
 (vl-load-com)
  (ssget "x")
  (setq    AcadObject   (vlax-get-acad-object)
    AcadDocument (vla-get-ActiveDocument Acadobject)
    mSpace       (vla-get-ModelSpace Acaddocument)
    layers       (vla-get-layers AcadDocument)
  )
  (setq  
       ActiveLayout(vla-get-ActiveLayout ACadDocument);;取得配置对象
   )
  ;;; 从文件对象取得布局集合
  (setq layoutSel(vla-get-Layouts ACadDocument))
  (setq clayout(vla-item layoutSel "Layout1"))

  (vla-put-standardscale ActiveLayout acscaletofit)

  (vla-put-centerplot ActiveLayout :vlax-true)

  (setq bcextmin(getvar "extmin"));;存储图形范围左下角点的值
  (setq px1(car bcextmin))
  (setq py1(cadr bcextmin))

   (setq bcextmin(getvar "extmax"))
  (setq px2(car bcextmax))
  (setq py2(cadr bcextmax))
  
  (setq point1(vlax-make-safearray vlax-vbDouble '(0 . 1)))
  (vlax-safearray-fill point1 (list px1 py1))

  (setq point2(vlax-make-safearray vlax-vbDouble '(0 . 1)))
  (vlax-safearray-fill point2 (list px2 py2) )
  (vla-SetWindowToPlot ActiveLayout point1 point2)
 
  (vla-put-plottype ActiveLayout acWindow)
  (vla-Regen ACadDocument :vlax-true);;重新生成

  (vla-put-plotrotation ActiveLayout ac0degrees)
  (vla-put-StyleSheet ActiveLayout "monochrome.ctb")

  (setq fileSel (vla-get-Files preferenceSel))
  (vla-put-ConfigName clayout "TIFF Version 6（不压缩）.pc3")
  (setq result (vla-PlotToFile (vla-get-Plot ACadDocument) dplotfilename))
)

glowz

把选项里的后台打印的勾去掉

wangweijess

没有用啊。直接运行，都是说打印取消。帮帮我吧。。

wangweijess

现在出现新的情况了，如果自动执行的话，可以批量打印，如果直接执行的话，在打印完第一幅图后，第二幅图会报错“错误: Automation 错误。未提供说明。”，可是去追踪却没有错误。怎么办呢？帮帮我吧。

ying_youbaib

只能是手动吧，me没有打过太多图纸

wangweijess

 (setvar
 "BACKGROUNDPLOT"
 0)
后来看龙龙仔大虾的回帖，发现在打印的时候加上这句代码就可以了。

感谢龙龙仔大虾！

3. ;;看你4樓不是解決了嗎?
4. ;;未詳細測試(R2008)
5. ;;DWG批量轉TIFF
6. ;;BY LUCAS
7. (defun C:TT (/   ACTIVELAYOUT   HOLDECHO
8.       DOC  DWG_DIR     DWG_LST  PLOTFILENAME
9.       SS
10.      )
11.   (vl-load-com)
12.   (if (and
13. (setq DWG_DIR
14.         (acet-ui-pickdir
15.    "DWG批量轉TIFF"
16.    (vl-string-right-trim "\" (getvar "dwgprefix"))
17.    "選擇目錄"
18.         )
19. )
20. (setq DWG_LST (vl-directory-files DWG_DIR "*.dwg"))
21.       )
22.     (progn
23.       (setq HOLDECHO (getvar "CMDECHO"))
24.       (setvar "CMDECHO" 0)
25.       (command "_.UNDO" "GROUP")
26.       (setvar "BACKGROUNDPLOT" 0)
27.       (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
28.       (setq ACTIVELAYOUT (vla-get-activelayout DOC))
29.       (vla-put-standardscale ACTIVELAYOUT acscaletofit)
30.       (vla-put-plottype ACTIVELAYOUT acextents)
31.       (vla-put-centerplot ACTIVELAYOUT :vlax-true)
32.       (vla-put-plotrotation ACTIVELAYOUT ac0degrees)
33.       (vla-put-stylesheet ACTIVELAYOUT "monochrome.ctb")
34.       (vla-put-configname ACTIVELAYOUT "TIFF 版本 6 (未壓縮).pc3");;我是繁體版,可能與你不同
35.       (foreach DWG DWG_LST
36. (if (setq SS (ssget "X"))
37.    (command "._ERASE" SS "")
38. )
39. (setq DWG (strcat DWG_DIR "\" DWG))
40. (command ".-INSERT" DWG "0,0" "1" "1" "")
41. (command "._ZOOM" "_E")
42. (setq PLOTFILENAME (vl-filename-base DWG))
43. (vla-plottofile (vla-get-plot DOC) PLOTFILENAME)
44.       )
45.       (command "_.UNDO" "END")
46.       (command "_.UNDO" 1)
47.       (setvar "CMDECHO" HOLDECHO)
48.     )
49.   )
50.   (vlax-release-object DOC)
51.   (vlax-release-object ACTIVELAYOUT)
52.   (princ)
53. )

;;看你4樓不是解決了嗎? ;;未詳細測試(R2008) ;;DWG批量轉TIFF ;;BY LUCAS (defun C:TT (/   ACTIVELAYOUT   HOLDECHO       DOC  DWG_DIR     DWG_LST  PLOTFILENAME       SS      )   (vl-load-com)   (if (and (setq DWG_DIR         (acet-ui-pickdir    "DWG批量轉TIFF"    (vl-string-right-trim "\" (getvar "dwgprefix"))    "選擇目錄"         ) ) (setq DWG_LST (vl-directory-files DWG_DIR "*.dwg"))       )     (progn       (setq HOLDECHO (getvar "CMDECHO"))       (setvar "CMDECHO" 0)       (command "_.UNDO" "GROUP")       (setvar "BACKGROUNDPLOT" 0)       (setq DOC (vla-get-activedocument (vlax-get-acad-object)))       (setq ACTIVELAYOUT (vla-get-activelayout DOC))       (vla-put-standardscale ACTIVELAYOUT acscaletofit)       (vla-put-plottype ACTIVELAYOUT acextents)       (vla-put-centerplot ACTIVELAYOUT :vlax-true)       (vla-put-plotrotation ACTIVELAYOUT ac0degrees)       (vla-put-stylesheet ACTIVELAYOUT "monochrome.ctb")       (vla-put-configname ACTIVELAYOUT "TIFF 版本 6 (未壓縮).pc3");;我是繁體版,可能與你不同       (foreach DWG DWG_LST (if (setq SS (ssget "X"))    (command "._ERASE" SS "") ) (setq DWG (strcat DWG_DIR "\" DWG)) (command ".-INSERT" DWG "0,0" "1" "1" "") (command "._ZOOM" "_E") (setq PLOTFILENAME (vl-filename-base DWG)) (vla-plottofile (vla-get-plot DOC) PLOTFILENAME)       )       (command "_.UNDO" "END")       (command "_.UNDO" 1)       (setvar "CMDECHO" HOLDECHO)     )   )   (vlax-release-object DOC)   (vlax-release-object ACTIVELAYOUT)   (princ) )