如何判断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. v: n3 g1 j) V
检查指定的文档是否存在或许会更好一点？

文档肯定存在，只是不知道什么时候开始存在和什么时候被打开，当然在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发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。
我用下面的代码做了一下检测

8 z& h" u9 D0 c+ S, j: H
Sub A()
& ?" W' Q) }. A: r$ k) Z
Dim H As Long, I As Long
7 o) g& m6 N" L4 o4 ~
H = FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging"
7 N* s0 L% o1 m7 U' c
PostMessage H, &H10, 0, 0. R- K/ d5 M4 b. _7 _. @
Do Until FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging" = 0
! h; i% T+ z2 k" |% s( a% ]
I = I + 1
) T4 W# ~. i- s( { Z$ q- B
DoEvents
' O- `& M4 g+ w3 h# P; [5 v
Loop }2 Q1 e/ l+ s5 z
End Sub. L# z* p; b& y2 g: V' _2 Y

复制代码

在最后一行“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. u' m0 Z% z; d
我没试你的代码，但我认为：窗口的关闭与VBA过程也是异步运行的，你用API发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。4 j# q: J+ c2 l) J
我用下面的代码做了一下检测
0 |: W2 Y* O, u' b
% @" q6 K# Y9 d) fSub A()1 `$ K, c& ~: ~8 y( D( e
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
) M/ w* r. Q7 c: B, W; C既然是虚拟打印，为啥不可以输出以后在合并呢？

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

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

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, G* s8 U/ B% Y5 `3 ^* }4 f3 G
测试发现： E% t3 f) A7 ]' z4 p+ E! i2 u- l
只有最后一次plottofile输出的文件不能被关闭，如果加入一条空打印，就可以完成我要完成的任务，如下：
' H) Z K, @0 f5 d& J ........." y; [9 v. [0 M. w9 n% [# Y7 A' o3 D9 B
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) ' 虚拟 ...

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

问题解决，斑竹请关闭

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

通知

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

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

回复 2# 157787698 的帖子

回复 4# 157787698 的帖子

浏览过的版块