[求助]一个VLISP 打印范例,调试时出现错误?

jaminth

以下是范例代码,调试时出现    " 错误: Automation 错误。未提供说明。"
求版主或高手解释一下,谢谢!

2. (defun C:TEST()
3. ;;; 这个范例在模型空间建立一个Circle对象，接着
4. ;;; 允许用户选择图形要打印的布局，然后使用批处理
5. ;;; 作业将选择的布局传送到当前的打印设备，现时
6. ;;; 允许用户在某个间隔内取消批处理打印
7. (VL-LOAD-COM)
8. (setq AcadObject(vlax-get-acad-object)
9. AcadDocument(vla-get-ActiveDocument AcadObject)
10. mSpace(vla-get-ModelSpace AcadDocument)
11. )
12. ;;; 定义Circle 对象
13. (setq center(vlax-make-safearray vlax-vbDouble'(0 . 2)))
14. (vlax-safearray-fill center'(0 0 0))
15. (setq radius 50)
16. ;;; 在模型空间中建立 Circle 对象
17. (setq CircleObj(vla-AddCircle mSpace center radius))
18. (vla-ZoomExtents AcadObject)
19. ;;; 提示用户输入要打印布局
20. (setq layoutSel(vla-get-Layouts AcadDocument))
21. (setq util(vla-get-Utility AcadDocument))
22. (setq ArraySize 0)
23. (VLAX-FOR layout layoutSel
24. (princ "你要打印的配置是：")
25. (princ (vla-get-name layout))(princ " \n")
26. (vla-InitializeUserInput util 128 "Yes No")
27. (setq ck(vla-GetKeyword util "(Yes/No):"))
28. (if (= ck "Yes")
29. (progn
30. (setq ArraySize(+ ArraySize 1))
31. (setq AddedLayouts(vlax-make-safearray vlax-vbString (CONS 1  ArraySize)))
32. (vlax-safearray-put-element AddedLayouts ArraySize (vla-get-name layout))
33. )
34. )
35. )
36. ;;; 如果用户未选择任何要打印的配置则结束
37. (if (= ArraySize 0)
38. (VL-EXIT-WITH-VALUE 0)
39. )
40. ;;; 将含有布局名称的阵列传送到
41. ;;; 和SetLayoutsToPlot相容的变体
42. (setq LayoutLists AddedLayouts)
43. ;;; 从图形取得打印对象
44. (setq plot(vla-get-plot AcadDocument))
45. ;;; 设定打印选项
46. (vla-put-QuietErrorMode plot :vlax-false)  ; 有错误时要发生通知
47. ; *注意：通常在批处理作业时，您
48. ; 不需要错误通知，因为
49. ; 这样会中断批处理
50. (vla-put-NumberOfCopies plot 5)  ; 只要一份
51. ;;; 开始选取配置的批处理打印
52. (vla-StartBatchMode plot ArraySize)  ; 这个批处理中的项目数
53. (setq BatchCount 1)
54. (WHILE (<= BatchCount ArraySize)
55. ;;; 每次调用 PlotToDevice时都必须调用
56. (vla-SetLayoutsToPlot plot LayoutLists)
57. ;;; 打印到默认设备
58. (vla-PlotToDevice plot)
59. ;;; 显示批处理打印的结果，这个属性实际上应该已经
60. ;;; 显示到 VBA 格式以及从VBA格式来设定,不过在这个范例中
61. ;;; 将使用信息框
62. (if (/= (vla-get-BatchPlotProgress plot) :vlax-true)
63. (progn
64. (princ "你要取消批次打印？")
65. (vla-InitializeUserInput util 128 "Yes No")
66. (setq ck(vla-GetKeyword util "(Yes/No):"))
67. (if (= ck "Yes")
68. (vla-put-BatchPlotProgress plot :vlax-false)
69. (princ "批次打印已经停止！\n")
70. )
71. )
72. )
73. (setq BatchCount(+ BatchCount 1))
74. )
75. (princ "选取的配置打印完成！")
76. (princ)
77. )

(defun C:TEST() ;;; 这个范例在模型空间建立一个Circle对象，接着 ;;; 允许用户选择图形要打印的布局，然后使用批处理 ;;; 作业将选择的布局传送到当前的打印设备，现时 ;;; 允许用户在某个间隔内取消批处理打印 (VL-LOAD-COM) (setq AcadObject(vlax-get-acad-object) AcadDocument(vla-get-ActiveDocument AcadObject) mSpace(vla-get-ModelSpace AcadDocument) ) ;;; 定义Circle 对象 (setq center(vlax-make-safearray vlax-vbDouble'(0 . 2))) (vlax-safearray-fill center'(0 0 0)) (setq radius 50) ;;; 在模型空间中建立 Circle 对象 (setq CircleObj(vla-AddCircle mSpace center radius)) (vla-ZoomExtents AcadObject) ;;; 提示用户输入要打印布局 (setq layoutSel(vla-get-Layouts AcadDocument)) (setq util(vla-get-Utility AcadDocument)) (setq ArraySize 0) (VLAX-FOR layout layoutSel (princ "你要打印的配置是：") (princ (vla-get-name layout))(princ " \n") (vla-InitializeUserInput util 128 "Yes No") (setq ck(vla-GetKeyword util "(Yes/No):")) (if (= ck "Yes") (progn (setq ArraySize(+ ArraySize 1)) (setq AddedLayouts(vlax-make-safearray vlax-vbString (CONS 1  ArraySize))) (vlax-safearray-put-element AddedLayouts ArraySize (vla-get-name layout)) ) ) ) ;;; 如果用户未选择任何要打印的配置则结束 (if (= ArraySize 0) (VL-EXIT-WITH-VALUE 0) ) ;;; 将含有布局名称的阵列传送到 ;;; 和SetLayoutsToPlot相容的变体 (setq LayoutLists AddedLayouts) ;;; 从图形取得打印对象 (setq plot(vla-get-plot AcadDocument)) ;;; 设定打印选项 (vla-put-QuietErrorMode plot :vlax-false)  ; 有错误时要发生通知 ; *注意：通常在批处理作业时，您 ; 不需要错误通知，因为 ; 这样会中断批处理 (vla-put-NumberOfCopies plot 5)  ; 只要一份 ;;; 开始选取配置的批处理打印 (vla-StartBatchMode plot ArraySize)  ; 这个批处理中的项目数 (setq BatchCount 1) (WHILE (<= BatchCount ArraySize) ;;; 每次调用 PlotToDevice时都必须调用 (vla-SetLayoutsToPlot plot LayoutLists) ;;; 打印到默认设备 (vla-PlotToDevice plot) ;;; 显示批处理打印的结果，这个属性实际上应该已经 ;;; 显示到 VBA 格式以及从VBA格式来设定,不过在这个范例中 ;;; 将使用信息框 (if (/= (vla-get-BatchPlotProgress plot) :vlax-true) (progn (princ "你要取消批次打印？") (vla-InitializeUserInput util 128 "Yes No") (setq ck(vla-GetKeyword util "(Yes/No):")) (if (= ck "Yes") (vla-put-BatchPlotProgress plot :vlax-false) (princ "批次打印已经停止！\n") ) ) ) (setq BatchCount(+ BatchCount 1)) ) (princ "选取的配置打印完成！") (princ) )

wangweijess

我和你遇到了同样的问题。我用的是vla-PlotToFile，我后来查到问题是因为一次打印中只能打印一个plot，不能重复打印plot。也就是说第一份图纸在打印的时候，如果同时把打印第二份图纸的信息传给打印机，由于第一份plot和第二份plot相同，所以它会自动取消，报出这个错误。你可以尝试自动执行，你会发现，当第一份打印完后第二份才可以打印。具体，你可以查看函数库中vla-PlotToFile的用例。

但是我还不知道怎么解决这个问题。只是知道错误的原因。

龙龙仔

3. ;;未詳細測試
4. (defun C:TEST (/    ACADDOCUMENT     ACADOBJECT
5.         ARRAYSIZE   CK        LAYOUTLISTS LAYOUTSEL
6.         LST    MSPACE      PLOT    UTIL
7.        )
8.   (vl-load-com)
9.   (setq ACADOBJECT   (vlax-get-acad-object)
10. ACADDOCUMENT (vla-get-activedocument ACADOBJECT)
11. MSPACE      (vla-get-modelspace ACADDOCUMENT)
12.   )
13. ;;; 提示用戶輸入要打印佈局
14.   (setq LAYOUTSEL (vla-get-layouts ACADDOCUMENT))
15.   (setq UTIL (vla-get-utility ACADDOCUMENT))
16.   (setq ARRAYSIZE 0)
17.   (vlax-for LAYOUT LAYOUTSEL
18.     (princ "你要打印的配置是：")
19.     (princ (vla-get-name LAYOUT))
20.     (princ " \n")
21.     (vla-initializeuserinput UTIL 128 "Yes No")
22.     (setq CK (vla-getkeyword UTIL "(Yes/No):"))
23.     (if (= CK "Yes")
24. (setq LST (cons (vla-get-name LAYOUT) LST))
25.     )
26.   )
27.   (if (= LST NIL)
28.     (vl-exit-with-value 0)
29.     (progn
30.       (setq LAYOUTLISTS
31.       (vlax-make-safearray
32.         vlax-vbstring
33.         (cons 1 (length LST))
34.       )
35.       )
36.       (vlax-safearray-fill
37. LAYOUTLISTS
38. LST
39.       )
40.     )
41.   )
42.   (setvar "BACKGROUNDPLOT" 0)
43. ;;; 從圖形取得打印對像
44.   (setq PLOT (vla-get-plot ACADDOCUMENT))
45. ;;; 設定打印選項
46.   (vla-put-quieterrormode PLOT :vlax-false) ; 有錯誤時要發生通知
47.      ; *注意：通常在批處理作業時，您
48.      ; 不需要錯誤通知，因為
49.      ; 這樣會中斷批處理
50.   (vla-put-numberofcopies PLOT 1) ; 只要一份
51.   (vla-setlayoutstoplot PLOT LAYOUTLISTS)
52. ;;; 打印到默認設備
53.   (vla-plottodevice PLOT "DWG TO PDF.PC3")
54.   ;;(vla-plottodevice PLOT "TIFF 版本 6 (未壓縮).pc3")
55.   (princ "選取的配置打印完成！")
56.   (princ)
57. )

;;未詳細測試 (defun C:TEST (/    ACADDOCUMENT     ACADOBJECT         ARRAYSIZE   CK        LAYOUTLISTS LAYOUTSEL         LST    MSPACE      PLOT    UTIL        )   (vl-load-com)   (setq ACADOBJECT   (vlax-get-acad-object) ACADDOCUMENT (vla-get-activedocument ACADOBJECT) MSPACE      (vla-get-modelspace ACADDOCUMENT)   ) ;;; 提示用戶輸入要打印佈局   (setq LAYOUTSEL (vla-get-layouts ACADDOCUMENT))   (setq UTIL (vla-get-utility ACADDOCUMENT))   (setq ARRAYSIZE 0)   (vlax-for LAYOUT LAYOUTSEL     (princ "你要打印的配置是：")     (princ (vla-get-name LAYOUT))     (princ " \n")     (vla-initializeuserinput UTIL 128 "Yes No")     (setq CK (vla-getkeyword UTIL "(Yes/No):"))     (if (= CK "Yes") (setq LST (cons (vla-get-name LAYOUT) LST))     )   )   (if (= LST NIL)     (vl-exit-with-value 0)     (progn       (setq LAYOUTLISTS       (vlax-make-safearray         vlax-vbstring         (cons 1 (length LST))       )       )       (vlax-safearray-fill LAYOUTLISTS LST       )     )   )   (setvar "BACKGROUNDPLOT" 0) ;;; 從圖形取得打印對像   (setq PLOT (vla-get-plot ACADDOCUMENT)) ;;; 設定打印選項   (vla-put-quieterrormode PLOT :vlax-false) ; 有錯誤時要發生通知      ; *注意：通常在批處理作業時，您      ; 不需要錯誤通知，因為      ; 這樣會中斷批處理   (vla-put-numberofcopies PLOT 1) ; 只要一份   (vla-setlayoutstoplot PLOT LAYOUTLISTS) ;;; 打印到默認設備   (vla-plottodevice PLOT "DWG TO PDF.PC3")   ;;(vla-plottodevice PLOT "TIFF 版本 6 (未壓縮).pc3")   (princ "選取的配置打印完成！")   (princ) )