如何判断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
* W' u; q5 M7 b5 P0 |检查指定的文档是否存在或许会更好一点？

文档肯定存在，只是不知道什么时候开始存在和什么时候被打开，当然在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- U; t$ k" h0 R9 `
Sub A()" M+ c; H' q" d3 s: z2 A
Dim H As Long, I As Long
% Q$ x/ S, n! \
H = FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging"
( e( J& ` n" V. @2 p- n u
PostMessage H, &H10, 0, 03 ~9 c9 y8 d5 }. `, c, S
Do Until FindWindow(vbNullString, "F--QJY3.mdi - Microsoft Office Document Imaging" = 03 w, x2 g8 v* J" ]! Z; _
I = I + 1
9 _7 u7 J2 \& n6 x# h, H7 n- |" @9 J
DoEvents
/ H) M# ^. c2 j- Q/ k
Loop
5 L1 @# @+ a9 M" k O$ ]0 o
End Sub) g2 ~# T5 ^5 s1 y& 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
: w$ g+ O' x/ P2 B6 r1 \我没试你的代码，但我认为：窗口的关闭与VBA过程也是异步运行的，你用API发出关闭窗口的消息后直接运行后面的代码，而不是等到窗口可靠关闭，肯定会发生冲突。
/ k8 M/ V: h5 |6 M, W4 a我用下面的代码做了一下检测
$ w/ g- I; [( n4 Y
( ^* M% J) f2 |% [Sub A()
" i e# A3 O8 x9 N! D8 G Y 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 f( T8 b0 I0 A. e6 }+ B: z% P既然是虚拟打印，为啥不可以输出以后在合并呢？

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

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

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.gif1 t, d0 [" O& a1 i- Y& I) ?: @
测试发现：
& k7 T2 D1 c G4 ` 只有最后一次plottofile输出的文件不能被关闭，如果加入一条空打印，就可以完成我要完成的任务，如下：( F+ Y* \1 E1 v$ P& G
........., a+ y3 j4 r) ?3 m. v$ H
aaaaaa = ThisDrawing.Plot.PlotToFile(pathmdi11, tempName) ' 虚拟 ...

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

问题解决，斑竹请关闭

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

通知

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

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

回复 2# 157787698 的帖子

回复 4# 157787698 的帖子

浏览过的版块