如何判断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
0 c/ @6 ?6 D# }2 y, e( F: n2 N3 f5 P检查指定的文档是否存在或许会更好一点？

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

; j' }+ d9 j/ \! E7 w; P. a& i
Sub A()* `* t+ I0 h# L& A
Dim H As Long, I As Long
/ i, g2 Q6 l* a
H = FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging"
% |, Z3 Z: x# i) J6 o
PostMessage H, &H10, 0, 0
* J0 L& T9 `+ `' s) o
Do Until FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging" = 0
" q4 p6 R8 k: ~6 w
I = I + 1
. h- y/ Z: q$ a* q" {" h
DoEvents
/ W% P* H" e7 \) c7 Q
Loop
+ E7 o5 B! \* J$ z' q) @: u3 W8 B
End Sub4 ^+ P" z& r& [7 l

复制代码

在最后一行“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.gif5 L; q; r5 p$ a' f) G- V
我没试你的代码，但我认为：窗口的关闭与VBA过程也是异步运行的，你用API发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。
" s) m4 {" }0 c" y我用下面的代码做了一下检测! H1 _% d! D! o
0 S0 S9 l0 i& z# ~+ \. g
Sub A()/ V* @7 K2 M3 Q; i2 v0 T2 Q
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, }9 L9 G3 Q4 O5 d) h. O
既然是虚拟打印，为啥不可以输出以后在合并呢？

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

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

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' H( U9 Y9 i/ E. t _& L
测试发现：
* f" Y) k' Q6 t4 F- Y2 u$ S9 ?4 X 只有最后一次plottofile输出的文件不能被关闭，如果加入一条空打印，就可以完成我要完成的任务，如下：
: U2 J8 x4 @8 G .........6 L% D2 `( T2 Q. Y4 O
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) ' 虚拟 ...

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

问题解决，斑竹请关闭

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

通知

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

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

回复 2# 157787698 的帖子

回复 4# 157787698 的帖子