如何判断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! J1 V! f" ^$ E0 p n1 R4 h D
检查指定的文档是否存在或许会更好一点？

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

5 w5 w2 n5 A B+ f, Z4 S5 N( v' k
Sub A()
3 Q6 m9 i" |# R" w6 ?: m1 f& W" B4 U
Dim H As Long, I As Long3 H+ t' `6 k4 R- d. l8 a
H = FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging"
' f+ F: P; X8 g4 Q" E5 r
PostMessage H, &H10, 0, 0+ F! R a/ Z# N! }2 S. d7 o! h
Do Until FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging" = 02 H6 v' ^& C0 V
I = I + 1$ b6 O" T; t1 m
DoEvents
6 O8 C r1 x2 R* \7 |3 S7 P+ K
Loop
/ b4 I4 k" ^7 c8 R, @, \
End Sub
7 g; v: E+ k! f6 J$ T9 N' _

复制代码

在最后一行“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
: n, S  p  H, K我没试你的代码，但我认为：窗口的关闭与VBA过程也是异步运行的，你用API发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。
  p0 ~& S, E  Y6 b7 ?" V: Z我用下面的代码做了一下检测
9 O! i  M0 t8 q% J: H) g
- f6 e$ M7 E/ z9 B9 ISub A()
6 O# v" Q- ^" y4 d- b 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
2 D$ f- e4 S+ r9 z4 H既然是虚拟打印，为啥不可以输出以后在合并呢？

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

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

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
. F i0 q7 v* z9 J测试发现：3 q7 B8 q5 Q9 Y9 K
只有最后一次plottofile输出的文件不能被关闭，如果加入一条空打印，就可以完成我要完成的任务，如下：. f) i* P; [, D# K: q0 G9 [ B9 d
.........; o. r2 l. T' d6 p4 c1 u# M
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) ' 虚拟 ...

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

问题解决，斑竹请关闭

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

通知

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

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

回复 2# 157787698 的帖子

回复 4# 157787698 的帖子

浏览过的版块