如何判断plottofile方法运行结束？

157787698 · 发表于 2009-10-26 11:31:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

在使用虚拟打印方法plttofile方法过程中发现，在plttofile方法还没有执行结束程序就已经执行到后面了

在同一过程中，如果在plttofile方法后面对输出文件进行操作就会出错。

但是，如果在另外一个过程中对plttofile方法输出的文件进行操作就没有问题。

这就是说plttofile方法是还没有运行完。

问题是：如何在plttofile方法执行结束有返回值时才继续执行后面的程序？

[ 本帖最后由 157787698 于 2009-10-26 18:05 编辑 ]

157787698 · 发表于 2009-10-26 18:56:35

解决办法如下：
Private Sub Command1_Click()
   'plottofile方法
   Unload Form1
End Sub
Private Sub Form_Unload(Cancel As Integer)
   '此处写入需要运行的方法
End Sub

从运行过程看应该可以，明天去单位试一下

woaishuijia · 发表于 2009-10-27 06:43:52

检查指定的文档是否存在或许会更好一点？

157787698 · 发表于 2009-10-27 08:37:12

原帖由 woaishuijia 于 2009-10-27 06:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif( ]5 x+ U. j2 k1 N( a
检查指定的文档是否存在或许会更好一点？

文档肯定存在，只是不知道什么时候开始存在和什么时候被打开，当然在plottofile方法执行结束前是文档不存在，而在plottofile方法执行结束时，文档存在并被打开

程序如下：（变量都被定义过，FindWindow和PostMessage也被声明过）

aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) '虚拟打印为MDI格式
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi12, tempName)

RetVal11 = 1                                                                   '关闭PlotToFile输出的文档
Do While RetVal11 <> 0
   winHwnd11 = FindWindow(vbNullString, drawname11)
      If winHwnd11 <> 0 Then
         RetVal11 = PostMessage(winHwnd11, WM_CLOSE, 0&, 0&)
         RetVal11 = 0
      End If
Loop
RetVal12 = 1
Do While RetVal12 <> 0
   winHwnd12 = FindWindow(vbNullString, drawname12)
      If winHwnd12 <> 0 Then
         RetVal12 = PostMessage(winHwnd12, WM_CLOSE, 0&, 0&)
         RetVal12 = 0
      End If
Loop

Set M1 = New MODI.Document                '合并PlotToFile输出的两个文档
Set M2 = New MODI.Document
Set M5 = New MODI.Document

M1.Create pathmdi11
M2.Create pathmdi12
M5.Create
M5.Images.Add M2.Images(0), Nothing
M5.Images.Add M1.Images(0), Nothing
M5.SaveAs pathmdi
M1.Close
M2.Close
M5.Close
Kill pathmdi11                                     '删除PlotToFile输出的两个文档
Kill pathmdi12

Shell "C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MSPVIEW.EXE" + " " + Chr(34) + pathmdi + Chr(34), 1          '打开合并后的文档

程序执行过程中，如果在RetVal11 = 1和Set M1 = New MODI.Document  两行设置断点，则可以按照预想的方式完成动作——即虚拟打印输出为单个文档，然后关闭文档，然后合并文档并删除原文档，最后打开合并后文档

但是，如果不设置断点，则程序运行无法正常完成，目前出现的情况是：
1、程序死掉，需要关闭ACAD；
2、只能关闭其中一个文件，然后运行至M1.Create pathmdi11或者M1.Create pathmdi12时报错，提示文当共享冲突，然后手动关闭文关闭的那个文档后按F5则可执行结束；
3、两个文档都可以关闭，但是运行至M1.Create pathmdi11或者M1.Create pathmdi12时报错，提示文当共享冲突，需要手动按F5可执行结束。

现在想到的方法就是二楼的笨方法

157787698 · 发表于 2009-10-27 10:23:48

刚找到一个函数：Microsoft.Win32.Registry.SetValue(sMODIKey, "OpenInMODI", 0)，这是OFFICE中的

如何在CAD中应用呢？

OPENINMODI：0 输出文档不打开
1 输出文档在MODI中打开

研究中......................

woaishuijia · 发表于 2009-10-27 20:45:37

我没试你的代码，但我认为：窗口的关闭与VBA过程也是异步运行的，你用API发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。
我用下面的代码做了一下检测

! E- x6 y' [7 | P( n
Sub A()4 M2 p" d7 L4 y, m
Dim H As Long, I As Long
g, k" R l* ?" Y% R9 L6 T
H = FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging" ' ? E: B7 v& O3 ~
PostMessage H, &H10, 0, 0+ C2 m+ }- w( I/ f9 t
Do Until FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging" = 0$ N/ D5 I0 l8 S: @$ U1 b! w8 ]
I = I + 1
* S- }8 ]3 M% R. ^. j8 m. e
DoEvents
% `& b! [: j7 x5 K8 G
Loop
0 T0 }2 P$ k' X
End Sub0 j! g* M; I/ [! o) f0 R

复制代码

在最后一行“End Sub”上设置断点，运行了两次，一次I＝348，一次I＝396。而且我的循环中带有“DoEvents”，每次循环都要把控制权还给系统。如果没有这一句，循环次数肯定会更多。
建议你参考这段代码，尝试一下，在发送关闭窗口的消息后，接着用循环检查窗口是否可靠关闭，确认可靠关闭后再退出循环继续向下运行，看看结果如何。另外，也建议在循环体中加上 DoEvents，否则，在mdi文档生成过程中，程序会进入循环体运行等待文档生成和打开（在我的电脑上调试时，生成一个mdi文档大约需要30秒），此时CPU占用率100%，电脑会假死，你其它什么工作也做不了。

www1974 · 发表于 2009-10-27 22:31:11

既然是虚拟打印，为啥不可以输出以后在合并呢？

157787698 · 发表于 2009-10-28 08:30:39

原帖由 woaishuijia 于 2009-10-27 20:45 发表 http://www.3dportal.cn/discuz/images/common/back.gif# W8 R! j* @* D: h) N0 X! K% L+ h
我没试你的代码，但我认为：窗口的关闭与VBA过程也是异步运行的，你用API发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。1 ^% _8 W/ ]- V
我用下面的代码做了一下检测/ Y7 ]4 n0 q8 b$ D- D) f

. Q4 K0 m" d7 Q8 q1 }& gSub A()
# o$ q e1 M% R8 c* T0 ?1 z+ [7 u6 x Dim H A ...

谢谢斑竹
窗口的关闭与VBA过程确实是异步运行的，但是如果用sendmessage换掉postmessage则可以保证同步运行
sendmessage要求得到返回值以后才继续执行，postmessage则不是

157787698 · 发表于 2009-10-28 08:32:42

原帖由 www1974 于 2009-10-27 22:31 发表 http://www.3dportal.cn/discuz/images/common/back.gif
- j# W3 n8 e6 e5 F1 \( }既然是虚拟打印，为啥不可以输出以后在合并呢？

我做的这个面向公司层面的所有技术评审人员，他们每天都要处理大量的图纸，但是我们又不希望他们得到可编辑图纸

输出以后再合并会浪费大量的人力资源，并且会招致很多客户的抱怨

157787698 · 发表于 2009-10-28 12:27:53

测试发现：
只有最后一次plottofile输出的文件不能被关闭，如果加入一条空打印，就可以完成我要完成的任务，如下：
.........
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) ' 虚拟打印为MDI格式
.........
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi12, tempName)
........
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi123333, tempName) ' 空打印，但仍然会输出文件，而且该文件是无用的

157787698 · 发表于 2009-11-2 18:32:12

原帖由 157787698 于 2009-10-28 12:27 发表 http://www.3dportal.cn/discuz/images/common/back.gif' m) I+ I4 |0 A O: q& V
测试发现：
6 O- E% b4 V5 _$ }8 I" B, t2 ? 只有最后一次plottofile输出的文件不能被关闭，如果加入一条空打印，就可以完成我要完成的任务，如下：
+ Q& y/ b* d* ] K .........
/ G: g& h& Q( r, `: x8 ] aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) ' 虚拟 ...

不需于空打印，只需要空设置就可以了

问题解决，斑竹请关闭

		自动登录	找回密码
密码			注册

通知

[已解决] 如何判断plottofile方法运行结束？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

回复 2# 157787698 的帖子

回复 4# 157787698 的帖子

浏览过的版块