VBA如何将一个DWG文件有多个图批量虚拟打印成单个MDI文件

157787698

如题:如何用VBA实现将一个含有多个图的DWG文件虚拟打印成单个MDI文件?

目前的状态:可以实现多个图连续虚拟打印成多个MDI格式文件,但是如何将他们合并到一个文件中,让我绞尽了脑汁

通常将DWG文件虚拟打印成MDI格式文件是这样操作的:将这个DWG文件中的每个图分别虚拟打印为单个MDI文件,然后在利用MDI文档的插入功能将他们合并为一个MDI文件.
, {6 f% }' J& z3 u+ T
+ n  ^5 B$ r0 E" Z4 w$ Y6 w/ l0 S但是如何利用VBA自动将他们合成单个文件或者直接生成单个文件?
) S' z% r1 o: O8 _, j# @$ \* q% [
/ l  U' C: j" O! d  P  ?我目前想到的办法是:对这些生成的单个MDI文件的二进制文件进行合并,虽然可以合并TXT/DOC等格式的文件,但是MDI格式文件合并后却只能显示文件第一页,虽然文件大小等于各个文件大小之和
, Q# }( y( X* F" _! p. n7 Z9 Q; F
3 p5 \( u. `& Y# S  _# |- f
请高手不吝赐教
5 g) S6 H: R- Y3 X+ D
[ 本帖最后由 157787698 于 2009-10-20 20:39 编辑 ]

woaishuijia

以下代码可以将两个含有单个图形的MDI文档合并成一个含两个图形的新文档。
: z+ R( Y9 A/ {, c

1. 
   ! c9 m+ l& O0 j# }/ i% T: x" C" i$ [
2.     Dim M1 As MODI.Document, M2 As MODI.Document, M3 As MODI.Document
   , t( n: {3 |+ D& {, E2 r
3.     Set M1 = New MODI.Document
   
4.     Set M2 = New MODI.Document
   
5.     Set M3 = New MODI.Document
   3 {& s/ B1 @3 J
6.     M1.Create "f:\1.mdi"
   . @1 z5 x& G; @  d6 q5 H9 ]
7.     M2.Create "f:\2.mdi"
   8 z6 F7 _2 H- l/ t9 @  e8 W" G
8.     M3.Create
   6 F* K8 K- q' {; V0 r7 P. {
9.     M3.Images.Add M1.Images(0), Nothing
   
10.     M3.Images.Add M2.Images(0), Nothing
    # g, G& ?- S$ P# ~
11.     M3.SaveAs "f:\3.mdi"
    ! A: K; R/ X5 g0 }

复制代码

运行此代码的前提条件是电脑中安装了"Microsoft Office Document Imaging"(Office2003工具组件之一)并在ACAD的VBA中引用"Microshoft Office Document Imaging 11.0 Type Library"。

157787698

非常感谢，按照您提供的代码已经实现需求，再次感谢
( Z$ B! ^' C! ?4 D- Y/ b- |; |7 f
% r5 X5 d# Q. z, K0 u; e* k3 }还有一个问题：
如何在CAD vba中关闭打开的word文档或者其他非cad文件？

woaishuijia

这取决于“word文档或者其他非cad文件”，面向“对象”编程吗，不能一概而论的，呵呵。
我只知道WORD、EXCEL、AutoCAD类库中都有“Application”对象，而且该对象都有“Quit”方法，是用来退出的。而Photoshop类库中有“PhotoshopApplication”对象，该对象也支持“Quit”方法。

157787698

非常感谢斑竹及时回复

其实我的需求还是与虚拟打印有关：
+ \8 ]2 x$ e& U! g1 X! [9 u8 Z
使用plottofile方法将有多个图的DWG图纸虚拟打印成MDI格式时，输出文件是多个打开的文件，而且是保存在默认位置的。

2 P, L2 s8 M9 d; n9 l+ O我的最终需求是输出为一个文件，而不是前面所说的好几个文件。

因此我要将它们合并然后只保留合并后的文件，并删除其他几个单图形文件。
: S& u! A* R; U; J. z
( Y! T6 R& u2 \9 D) s所以需要以下几个步骤：

" S6 f4 q# @# q$ t' d! e; x, t首先将它们关闭，然后将它们合并，然后显示打开后文件，同时删除原文件。
3 M' i6 d- _$ }8 s/ m
) q, j$ J8 j" t现在的问题是：
7 \4 F( ~4 J5 o3 ]% H
如何将打开的MDI格式文件打开和关闭？


4 U. e4 x3 r( z' Y  S# S( i! K另外：这样操作有些复杂，是不是可以通过对打印方法（plottofile）进行设置，直接打印或者转换为单个多图形的MDI文件？

woaishuijia

MODI类库是比较简单的，不像WORD、AutoCAD类库那样全面，恐怕无法用VBA面面俱到地操作它。不过我想我们可以用变通的办法实现你的目的：
一、输出的文件可以不是打开的。设置的办法是先在图形界面正常输出一个MDI文档，注意在输入文件名时把“另存为”对话框下面的“查看文档图像”复选框改为不选择状态，以后再输出为MDI文档（包括在VBA中打印）时系统就不会自动调用MSPVIEW.EXE程序打开该文档了。
二、PlotToFile方法是支持完整路径的，也就是说，输出的文件并非一定保存在默认位置，完全可以在程序中指定保存的位置和文件名。
1 W- \7 J1 p2 Y' x* h三、由于虚拟打印机和VBA程序是异步运行的，所以不应该在程序中每生成一个文件就把它与已完成的其它文件合并到一个文档，最好分开进行，以避免出错。应该把所有要输出的单图形文档在程序中指定一个目录，用序列的形式分别保存，待所有图形输出完成后，在另一个程序中用二楼的方法合并到一个文件。
! r' H3 c/ F* V1 }* D* z) M( V四、如果想要用VBA代码打开合并后的文件，可以用Shell方法，即：

1. 
   - M. ]1 X  h& S# g2 x% k1 V5 s
2. Shell "C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MSPVIEW.EXE G:\111.mdi"
   

复制代码

157787698

非常感谢
+ [2 }' }. n: c8 k3 H7 ~PlotToFile方法打印的MDI文档可以在任意位置保存，这个前期已经做到了
. J9 D: g) E5 z$ q
您的指点非常到位，再次感谢

! H( n9 A7 i8 E0 a  ~这个论坛非常不错，对新人很关照，谢谢

$ I- v# z5 {  z  M" e我想再询问一下上面提到过的一个问题：是不是可以通过对打印方法（plottofile）进行设置，直接打印或者转换为单个多图形的MDI文件或者其他不可编辑格式文件（如PDF）？

% Y  \: j0 e0 B  T" [+ w4 [9 E[ 本帖最后由 157787698 于 2009-10-21 22:19 编辑 ]

woaishuijia

一、PlotToFile方法只能输出单图形文件。ACAD软件和WORD不同，向来是每张图纸单独指印的，即便用批量打印也是如此。
8 [# J' H& g. h# s3 \二、PDF文档也是可编辑的，前提是安装Adobe Acrobat软件并引用Acrobat类库。

157787698

感谢斑竹
1 t! j& K# R& _* K" a
但是“一、输出的文件可以不是打开的。。。。。”不能实现。
6 j& m) x  w  B" \% Z0 L7 B) f
我按照您提供的设置方法进行设置，虽然可以实现每次手动打印时不再将输出文件打开，但是在程序自动虚拟打印时仍然会将输出文件打开

woaishuijia

不知道你的具体设置过程和代码，不能确定具体原因。
我调试时出现这样的情况：设置为“不查看文档图像”后，运行代码，大约30秒后，系统托盘会出现打印机图标，可以看到浏览器窗口中以前保存的同名文件被删除，1秒后，新文件被建立，托盘中打印机图标消失，再等一分钟，文件也没有被打开；然后修改打印机的默认属性（比如修改打印方向），再运行代码，托盘中出现打印机图标时，新文件就被打开了。再查看“另存为”对话框，“查看文档图像”已被改回选中状态。
3 J. c- S# d  `7 q初步感觉，只要在设置为“不查看文档图像”后，通过CAD的页面设置窗口或VBA代码设置纸张和方向等内容，而不是修改打印机属性，就可以做到输出文件后不打开。而一旦修改了打印机的属性，“查看文档图像”复选框就会恢复为默认的选中状态。

157787698

还有一个问题，关于shell的：

. f1 w0 W+ g% a$ {2 [& Z; B一旦待打开文件的路径中出现空格，则就会报错，提示无法打开；如果待打开文件路径中没有空格，则可以识别。

  M: v5 r$ G+ }" G( f2 F8 [8 x6 Q* V例如：    Shell "C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MSPVIEW.EXE  C:\Program _ Files\Support\mydrawings\xoec20091022100807.mdi"
0 v0 ~! @( G4 }0 I# ]6 n+ s
程序运行过程会出现提示：无法打开文件"C:\Program"，请检查文件名和路径。
* I& P; f8 J& j( q  ?/ \. P
! B! Q% @1 c1 b5 l有没有什么办法解决？如果无法解决，则只有要求用户设置为不含空格的路径，这将会大大降低人机友好程度

woaishuijia

用API吧
在模块的通用部分声明

1. 
   
2. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   

复制代码

在过程中使用下面的代码

1. 
   ; [6 k- n- t& \
2. ShellExecute 0, "Open", "C:\Program Files\Support\mydrawings\xoec20091022100807.mdi", 0, 0, 1
   4 T% @  N' k) A) j7 ^3 W% e

复制代码

157787698

原帖由 woaishuijia 于 2009-10-22 14:52 发表 http://www.3dportal.cn/discuz/images/common/back.gif
+ Y3 W2 M2 t4 l用API吧
+ H$ ?4 A/ A5 y' F+ l- b$ ~: v在模块的通用部分声明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameter ...

3 ]" M9 |6 \3 M4 h: O7 S" s斑竹，shellexcute代码您运行过吗？我运行时没有任何反应，我尝又试按照声明去改变各参数，还是没有反应

我用的04版CAD

woaishuijia

奇怪。WIN32API是Windows系统提供的，与ACAD无关哪，是不是操作系统有问题？
3 [) t6 ]# n+ ~我的操作系统是WINXP SP2，装有CAD2005、2008、2009、2010四个版本，都没问题。
/ W- E' z/ e* `" ~再试试下面代码
[code]
ShellExecute Me.hwnd, "Open", "C:\Program Files\Support\mydrawings\xoec20091022100807.mdi", vbNullString, vbNullString, 1
  m6 j; W) L$ m) w+ k* f; i[/code]
再检查一下文档路径是否有误，我帖子中的路径是从你11楼代码中复制来的。

157787698

我的系统是网络版XPsp2

用如下代码实现了文件打开：
( m  E  f% H1 {& l+ M
dim i as long
# R' p) y+ g. u9 Q, A* Fi = Shell("C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MSPVIEW.EXE" + " " + Chr(34)+ "C:\Program Files\Support\mydrawings\xoec20091022100807.mdi " + Chr(34), 1)


4 z, Z$ Q; r* T$ a但是如何关闭已经打开的非CAD文档还是没有实现

157787698

可不可以通过查找待关闭文件的句柄在后台进行关闭操作？

理论上应该没这么复杂，呵呵

woaishuijia

原帖由 157787698 于 2009-10-23 15:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif
可不可以通过查找待关闭文件的句柄在后台进行关闭操作？
; m# [5 m  ?8 A! l
' f& D3 p9 z; N. `+ i! E1 d& n理论上应该没这么复杂，呵呵

就是这么复杂，呵呵
我这里用API可以做到
- i' f  s3 |; [* Z4 S: D% m

1. 
   
2. Option Explicit
   
3. 'Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   + F4 O: l, e0 m0 y7 [) }7 z
4. 
   
5. Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
   ' y$ L, y1 c$ Z& d. m1 ~
6. Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
   ' S3 {5 [4 l8 z  a/ U
7. Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
   
8. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
9. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
   ( k1 Y5 o1 k5 H4 x7 Z
10. Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
    " }% z/ M# S! ]$ `7 W
11.   
    2 s* J( U5 _* ]: v
12. Private Type PROCESSENTRY32
    * k9 {+ ^! l0 j- _  W& a/ K; D
13.     dwSize   As Long
    
14.     cntUsage   As Long
    
15.     th32ProcessID   As Long
      d0 J; [  o0 c( z# o5 u" T
16.     th32DefaultHeapID   As Long
    
17.     th32ModuleID   As Long
    
18.     cntThreads   As Long
    
19.     th32ParentProcessID   As Long
    / N% D0 c1 @8 ], b
20.     pcPriClassBase   As Long
    ; r* M2 n- J8 F
21.     dwFlags   As Long
    
22.     szExeFile   As String * 1024
    
23. End Type
    
24.   
    
25. Const TH32CS_SNAPHEAPLIST = &H1
    
26. Const TH32CS_SNAPPROCESS = &H2
    
27. Const TH32CS_SNAPTHREAD = &H4
    8 @/ l0 O& |+ C' h6 g( @, M8 g5 ~
28. Const TH32CS_SNAPMODULE = &H8
    ! l! }" g( I2 }2 \& b- p9 ?
29. Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
    ; r7 g7 T& w/ j
30. Const TH32CS_INHERIT = &H80000000
    ' [* ]6 y, W. B% _) A
31. 
    
32. Sub A()
    % E5 I* L& w. ^; K
33. ' ShellExecute Me.hwnd, "Open","C:\Program Files\Support\mydrawings\xoec20091022100807.mdi" vbNullString, vbNullString, 1
    4 x% T, D7 z% x) @8 u1 F
34. Shell "C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MSPVIEW.EXE" & " " & Chr(34) & "C:\Program Files\Support\mydrawings\xoec20091022100807.mdi" & Chr(34)
    9 Y6 ?2 f/ R$ R( Y
35. End Sub
    $ R. D# A  Z5 m; L6 P9 L; ?1 h8 V
36.    
    ! W# {( m) a- p1 |3 ?4 t: L
37. Sub B()
    1 e& `  Z; V" E, s6 U6 L5 U* B5 ?% c
38.     Dim My As PROCESSENTRY32
    
39.     Dim Pid As Long
    
40.     Dim L As Long
    
41.     Dim L1 As Long
    5 l# c4 I" c" F$ R0 @
42.     Dim mName As String
    
43.     Dim I As Integer
    0 e5 A% m; x3 o8 u. S1 y* f
44.    
    . |0 X4 i) O/ D0 \# S
45.     L = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    & ]! V* ~: F5 w+ F8 t: V
46.     If L Then
      _* m  Q9 |, \" |4 ^& A  s
47.         My.dwSize = 1060
    
48.         If Process32First(L, My) Then '遍历每一个进程
    
49.             Do
    
50.                 I = InStr(1, My.szExeFile, Chr(0))
    
51.                 mName = LCase(Left(My.szExeFile, I - 1))
    
52.                 If Trim(mName) = "mspview.exe" Then '这里填你调用的程序进程名(小写)
    , u0 }$ G) y: @; v
53.                     Pid = My.th32ProcessID
    * w/ _8 Z% e6 c3 o4 u1 }! l- m
54.                     Dim mProcID     As Long
    . ^4 x! y; v) q8 `3 B  c( @+ B4 N8 d
55.                     mProcID = OpenProcess(1&, -1&, Pid)
    
56.                     TerminateProcess mProcID, 0&
    ; r6 f( I% H1 |! m0 |' `
57.                     Exit Sub
    ( ^1 N' _& ]4 R; a. [, s1 J
58.                 End If
    
59.             Loop Until Process32Next(L, My) < 1 '遍历所有进程直到返回值为False
    4 S- c& H! s4 E, x, e! c( w1 I  O7 t; D
60.         End If
    0 W# h! d5 z' V, I
61.         L1 = CloseHandle(L)
    + `, a# H! u7 `: l
62.     End If
    
63. End Sub
    

复制代码

1 }  Z( d! d; G$ F6 y. G2 X代码中过程A用来打开文档，过程B用来关闭“mspview.exe”程序。很复杂，但这是没办法的事，在代码中关闭“mspview.exe”恐怕只能用API。只是我没有用过网络版操作系统，从你前面的帖子看，可能由于系统的区别，这段代码不一定适合于你。不过网上关于用API结束进程的文章很多，应该有适合于你的。

157787698

如果关闭“MSPVIEW.EX”，就会将所有MDI文档都关闭，这样会有问题。我的要求是只关闭我指定的文件，其他由用户自己打开的MDI文档仍然保持打开状态。
2 |) M+ X* H  I( W: {+ [1 u
所以不能直接关闭“MSPVIEW.EX”。
( K, h$ u$ R3 ~9 h! J# Y
- h* D+ z- I2 r4 H5 v9 C( j可以使用API函数FindWindow和PostMessage去寻找指定的窗口，并关闭它，如下：
0 J6 W1 @7 M  @# B( P- Q! P
) g+ p+ w, Y$ [- v/ U: O' \Declare   Function   FindWindow   Lib   "user32"   Alias   "FindWindowA"   (ByVal   lpClassName   As   String, _
                 ByVal   lpWindowName   As   String) as Long     
/ O& ^8 X! ^& }& n6 w! LDeclare   Function   PostMessage   Lib   "user32"   Alias  "PostMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   _   
) ~+ y3 e# B* v1 f- ?% M                 ByVal   wParam   As   Long,   lParam   As   Any)   As   Long     
Public   Const   WM_CLOSE   =   &H10     
$ ]- z! l; Z# ?9 G+ h   
Dim   winHwnd   As   Long   
Dim   RetVal   As   Long   
winHwnd   =   FindWindow(vbNullString,   "xoec20091022100807.mdi")   
2 z& @& Q* e" l2 @+ H2 g6 D( ~If   winHwnd   <>   0   Then   
- h' h" G! N( k' r! u+ m     RetVal   =   PostMessage(winHwnd,   WM_CLOSE,   0&,   0&)   
End   If
( l9 N) s! Q9 N6 X, R3 T! H3 j

这是我在网上找的，可以关闭指定名称的任何格式文件，呵呵

157787698

感谢热心版主

) Y8 {; X5 ^' x0 O: R- `  d你真的很强，谢谢