ShowModalDialog窗体在打印预览时出现的问题

hnzgs

'环境：VS2008+CAD2010

2. ‘启动打印窗体
   
3. <CommandMethod("ShowPrint")> Public Shared Sub ShowPrint()
   
4.         Dim frm As New FrmPrint
   
5.        Application.ShowModalDialog(frm)
   
6.     End Sub
   

‘启动打印窗体<br /> <CommandMethod("ShowPrint")> Public Shared Sub ShowPrint()<br />         Dim frm As New FrmPrint<br />        Application.ShowModalDialog(frm)<br />     End Sub<br />

用命令行方式（窗体没有运行时）调用过程一切正常

2. 
   
3. '测试函数
   
4.     <CommandMethod("cs")> Public Shared Sub CS()
   
5.         MultiSheetPreview()'过程代码见二楼、三楼
   
6.     End Sub
   

<br /> '测试函数<br />     <CommandMethod("cs")> Public Shared Sub CS()<br />         MultiSheetPreview()'过程代码见二楼、三楼<br />     End Sub<br />

但在窗体里用按钮调用的时候会出预览界面鼠标点击无反应的情况，好像无法获得焦点

2. 
   
3. '预览按钮代码
   
4.     Private Sub BtnYuLan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnYuLan.Click
   
5.         Me.Visible = False
   
6.         MultiSheetPreview()'过程代码见二楼、三楼
   
7.         Me.Visible = True
   
8.     End Sub
   

<br /> '预览按钮代码<br />     Private Sub BtnYuLan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnYuLan.Click<br />         Me.Visible = False<br />         MultiSheetPreview()'过程代码见二楼、三楼<br />         Me.Visible = True<br />     End Sub<br />

求助如何解决？

hnzgs

附Kean代码

2. 
   
3. Public Shared Sub MultiSheetPreview()
   
4. 
   
5.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
6.         Dim ed As Editor = doc.Editor
   
7.         Dim db As Database = doc.Database
   
8.         Dim layoutsToPlot As New ObjectIdCollection()
   
9.         Dim tr As Transaction = db.TransactionManager.StartTransaction()
   
10.         Using tr
    
11. 
    
12.             ' First we need to collect the layouts to
    
13.             ' plot/preview in tab order
    
14. 
    
15.             Dim layoutDict As New SortedDictionary(Of Integer, ObjectId)()
    
16.             Dim bt As BlockTable = DirectCast(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
    
17. 
    
18.             For Each btrId As ObjectId In bt
    
19.                 Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)
    
20.                 If btr.IsLayout AndAlso btr.Name.ToUpper() <> BlockTableRecord.ModelSpace.ToUpper() Then
    
21.                     ' The dictionary we're using will
    
22.                     ' sort on the tab order of the layout
    
23.                     Dim lo As Layout = DirectCast(tr.GetObject(btr.LayoutId, OpenMode.ForRead), Layout)
    
24.                     layoutDict.Add(lo.TabOrder, btrId)
    
25.                 End If
    
26.             Next
    
27. 
    
28.             ' Let's now get the layout IDs and add them to a
    
29.             ' standard ObjectIdCollection
    
30.             Dim vc As SortedDictionary(Of Integer, ObjectId).ValueCollection = layoutDict.Values
    
31.             For Each id As ObjectId In vc
    
32.                 layoutsToPlot.Add(id)
    
33.             Next
    
34.             ' Committing is cheaper than aborting
    
35.             tr.Commit()
    
36.         End Using
    
37. 
    
38.         ' PlotEngines do the previewing and plotting
    
39.         If PlotFactory.ProcessPlotState = Autodesk.AutoCAD.PlottingServices.ProcessPlotState.NotPlotting Then
    
40.             Dim layoutNum As Integer = 0
    
41.             Dim isFinished As Boolean = False
    
42.             Dim isReadyForPlot As Boolean = False
    
43.             While Not isFinished
    
44.                 ' Create the preview engine with the appropriate
    
45.                 ' buttons enabled - this depends on which
    
46.                 ' layout in the list is being previewed
    
47.                 Dim flags As PreviewEngineFlags = PreviewEngineFlags.Plot
    
48.                 If layoutNum > 0 Then
    
49.                     flags = flags Or PreviewEngineFlags.PreviousSheet
    
50.                 End If
    
51.                 If layoutNum < layoutsToPlot.Count - 1 Then
    
52.                     flags = flags Or PreviewEngineFlags.NextSheet
    
53.                 End If
    
54.                 Dim pre As PlotEngine = PlotFactory.CreatePreviewEngine(CInt(flags))
    
55.                 Using pre
    
56.                     Dim stat As PreviewEndPlotStatus = MultiplePlotOrPreview(pre, True, layoutsToPlot, layoutNum, "")
    
57.                     ' We're not checking the list bounds for
    
58.                     ' next/previous as the buttons are only shown
    
59.                     ' when they can be used
    
60.                     If stat = PreviewEndPlotStatus.[Next] Then
    
61.                         layoutNum += 1
    
62.                     ElseIf stat = PreviewEndPlotStatus.Previous Then
    
63.                         layoutNum -= 1
    
64.                     ElseIf stat = PreviewEndPlotStatus.Normal OrElse stat = PreviewEndPlotStatus.Cancel Then
    
65.                         isFinished = True
    
66.                     ElseIf stat = PreviewEndPlotStatus.Plot Then
    
67.                         isFinished = True
    
68.                         isReadyForPlot = True
    
69.                     End If
    
70.                 End Using
    
71.             End While
    
72. 
    
73.             ' If the plot button was used to exit the preview...
    
74.             If isReadyForPlot Then
    
75.                 Dim ple As PlotEngine = PlotFactory.CreatePublishEngine()
    
76.                 Using ple
    
77.                     Dim stat As PreviewEndPlotStatus = MultiplePlotOrPreview(ple, False, layoutsToPlot, -1, "c:\multisheet-previewed-plot")
    
78.                 End Using
    
79.             End If
    
80.         Else
    
81.             ed.WriteMessage(vbLf & "Another plot is in progress.")
    
82.         End If
    
83. 
    
84.     End Sub
    

<br /> Public Shared Sub MultiSheetPreview()<br /> <br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim ed As Editor = doc.Editor<br />         Dim db As Database = doc.Database<br />         Dim layoutsToPlot As New ObjectIdCollection()<br />         Dim tr As Transaction = db.TransactionManager.StartTransaction()<br />         Using tr<br /> <br />             ' First we need to collect the layouts to<br />             ' plot/preview in tab order<br /> <br />             Dim layoutDict As New SortedDictionary(Of Integer, ObjectId)()<br />             Dim bt As BlockTable = DirectCast(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)<br /> <br />             For Each btrId As ObjectId In bt<br />                 Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)<br />                 If btr.IsLayout AndAlso btr.Name.ToUpper() <> BlockTableRecord.ModelSpace.ToUpper() Then<br />                     ' The dictionary we're using will<br />                     ' sort on the tab order of the layout<br />                     Dim lo As Layout = DirectCast(tr.GetObject(btr.LayoutId, OpenMode.ForRead), Layout)<br />                     layoutDict.Add(lo.TabOrder, btrId)<br />                 End If<br />             Next<br /> <br />             ' Let's now get the layout IDs and add them to a<br />             ' standard ObjectIdCollection<br />             Dim vc As SortedDictionary(Of Integer, ObjectId).ValueCollection = layoutDict.Values<br />             For Each id As ObjectId In vc<br />                 layoutsToPlot.Add(id)<br />             Next<br />             ' Committing is cheaper than aborting<br />             tr.Commit()<br />         End Using<br /> <br />         ' PlotEngines do the previewing and plotting<br />         If PlotFactory.ProcessPlotState = Autodesk.AutoCAD.PlottingServices.ProcessPlotState.NotPlotting Then<br />             Dim layoutNum As Integer = 0<br />             Dim isFinished As Boolean = False<br />             Dim isReadyForPlot As Boolean = False<br />             While Not isFinished<br />                 ' Create the preview engine with the appropriate<br />                 ' buttons enabled - this depends on which<br />                 ' layout in the list is being previewed<br />                 Dim flags As PreviewEngineFlags = PreviewEngineFlags.Plot<br />                 If layoutNum > 0 Then<br />                     flags = flags Or PreviewEngineFlags.PreviousSheet<br />                 End If<br />                 If layoutNum < layoutsToPlot.Count - 1 Then<br />                     flags = flags Or PreviewEngineFlags.NextSheet<br />                 End If<br />                 Dim pre As PlotEngine = PlotFactory.CreatePreviewEngine(CInt(flags))<br />                 Using pre<br />                     Dim stat As PreviewEndPlotStatus = MultiplePlotOrPreview(pre, True, layoutsToPlot, layoutNum, "")<br />                     ' We're not checking the list bounds for<br />                     ' next/previous as the buttons are only shown<br />                     ' when they can be used<br />                     If stat = PreviewEndPlotStatus.[Next] Then<br />                         layoutNum += 1<br />                     ElseIf stat = PreviewEndPlotStatus.Previous Then<br />                         layoutNum -= 1<br />                     ElseIf stat = PreviewEndPlotStatus.Normal OrElse stat = PreviewEndPlotStatus.Cancel Then<br />                         isFinished = True<br />                     ElseIf stat = PreviewEndPlotStatus.Plot Then<br />                         isFinished = True<br />                         isReadyForPlot = True<br />                     End If<br />                 End Using<br />             End While<br /> <br />             ' If the plot button was used to exit the preview...<br />             If isReadyForPlot Then<br />                 Dim ple As PlotEngine = PlotFactory.CreatePublishEngine()<br />                 Using ple<br />                     Dim stat As PreviewEndPlotStatus = MultiplePlotOrPreview(ple, False, layoutsToPlot, -1, "c:\multisheet-previewed-plot")<br />                 End Using<br />             End If<br />         Else<br />             ed.WriteMessage(vbLf & "Another plot is in progress.")<br />         End If<br /> <br />     End Sub<br />

hnzgs

2. 
   
3. Private Shared Function MultiplePlotOrPreview(ByVal pe As PlotEngine, ByVal isPreview As Boolean, ByVal layoutSet As ObjectIdCollection, ByVal layoutNumIfPreview As Integer, ByVal filename As String) As PreviewEndPlotStatus
   
4.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
5.         Dim ed As Editor = doc.Editor
   
6.         Dim db As Database = doc.Database
   
7.         Dim ret As PreviewEndPlotStatus = PreviewEndPlotStatus.Cancel
   
8.         Dim layoutsToPlot As ObjectIdCollection
   
9. 
   
10.         If isPreview AndAlso layoutNumIfPreview >= 0 Then
    
11.             ' Preview is really pre-sheet, so we reduce the
    
12.             ' sheet collection to contain the one we want
    
13.             layoutsToPlot = New ObjectIdCollection()
    
14.             layoutsToPlot.Add(layoutSet(layoutNumIfPreview))
    
15.         Else
    
16.             ' If we're plotting we need all the sheets,
    
17.             ' so copy the ObjectIds across
    
18.             Dim ids As ObjectId() = New ObjectId(layoutSet.Count - 1) {}
    
19.             layoutSet.CopyTo(ids, 0)
    
20.             layoutsToPlot = New ObjectIdCollection(ids)
    
21.         End If
    
22. 
    
23.         Dim tr As Transaction = db.TransactionManager.StartTransaction()
    
24.         Using tr
    
25.             ' Create a Progress Dialog to provide info
    
26.             ' and allow thej user to cancel
    
27.             Dim ppd As New PlotProgressDialog(isPreview, layoutsToPlot.Count, True)
    
28.             Using ppd
    
29.                 Dim numSheet As Integer = 1
    
30.                 For Each btrId As ObjectId In layoutsToPlot
    
31.                     Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)
    
32.                     Dim lo As Layout = DirectCast(tr.GetObject(btr.LayoutId, OpenMode.ForRead), Layout)
    
33.                     ' We need a PlotSettings object
    
34.                     ' based on the layout settings
    
35.                     ' which we then customize
    
36.                     Dim ps As New PlotSettings(lo.ModelType)
    
37.                     ps.CopyFrom(lo)
    
38.                     ' The PlotSettingsValidator helps
    
39.                     ' create a valid PlotSettings object
    
40.                     Dim psv As PlotSettingsValidator = PlotSettingsValidator.Current
    
41.                     ' We'll plot the extents, centered and
    
42.                     ' scaled to fit
    
43.                     psv.SetPlotType(ps, Autodesk.AutoCAD.DatabaseServices.PlotType.Extents)
    
44.                     psv.SetUseStandardScale(ps, True)
    
45.                     psv.SetStdScaleType(ps, StdScaleType.ScaleToFit)
    
46.                     psv.SetPlotCentered(ps, True)
    
47.                     ' We'll use the standard DWFx PC3, as
    
48.                     ' this supports multiple sheets
    
49.                     psv.SetPlotConfigurationName(ps, "DWFx ePlot (XPS Compatible).pc3", "ANSI_A_(8.50_x_11.00_Inches)")
    
50.                     ' We need a PlotInfo object
    
51.                     ' linked to the layout
    
52.                     Dim pi As New PlotInfo()
    
53.                     pi.Layout = btr.LayoutId
    
54.                     ' Make the layout we're plotting current
    
55.                     LayoutManager.Current.CurrentLayout = lo.LayoutName
    
56.                     ' We need to link the PlotInfo to the
    
57.                     ' PlotSettings and then validate it
    
58.                     pi.OverrideSettings = ps
    
59.                     Dim piv As New PlotInfoValidator()
    
60.                     piv.MediaMatchingPolicy = MatchingPolicy.MatchEnabled
    
61.                     piv.Validate(pi)
    
62.                     ' We set the sheet name per sheet
    
63. 
    
64.                     ppd.PlotMsgString(PlotMessageIndex.SheetName) = (doc.Name.Substring(doc.Name.LastIndexOf("") + 1) & " - ") + lo.LayoutName
    
65.                     If numSheet = 1 Then
    
66.                         ' All other messages get set once
    
67.                         ppd.PlotMsgString(PlotMessageIndex.DialogTitle) = "Custom Preview Progress"
    
68.                         ppd.PlotMsgString(PlotMessageIndex.CancelJobButtonMessage) = "Cancel Job"
    
69.                         ppd.PlotMsgString(PlotMessageIndex.CancelSheetButtonMessage) = "Cancel Sheet"
    
70.                         ppd.PlotMsgString(PlotMessageIndex.SheetSetProgressCaption) = "Sheet Set Progress"
    
71.                         ppd.PlotMsgString(PlotMessageIndex.SheetProgressCaption) = "Sheet Progress"
    
72. 
    
73.                         ppd.LowerPlotProgressRange = 0
    
74.                         ppd.UpperPlotProgressRange = 100
    
75.                         ppd.PlotProgressPos = 0
    
76.                         ' Let's start the plot/preview, at last
    
77.                         ppd.OnBeginPlot()
    
78.                         ppd.IsVisible = True
    
79.                         pe.BeginPlot(ppd, Nothing)
    
80.                         ' We'll be plotting a single document
    
81.                         pe.BeginDocument(pi, doc.Name, Nothing, 1, Not isPreview, filename)
    
82.                     End If
    
83. 
    
84.                     ' Which may contains multiple sheets
    
85.                     ppd.LowerSheetProgressRange = 0
    
86.                     ppd.UpperSheetProgressRange = 100
    
87.                     ppd.SheetProgressPos = 0
    
88.                     Dim ppi As New PlotPageInfo()
    
89.                     pe.BeginPage(ppi, pi, (numSheet = layoutsToPlot.Count), Nothing)
    
90.                     ppd.OnBeginSheet()
    
91.                     pe.BeginGenerateGraphics(Nothing)
    
92.                     ppd.SheetProgressPos = 50
    
93.                     pe.EndGenerateGraphics(Nothing)
    
94.                     ' Finish the sheet
    
95.                     Dim pepi As New PreviewEndPlotInfo()
    
96.                     pe.EndPage(pepi)
    
97.                     ret = pepi.Status
    
98.                     ppd.SheetProgressPos = 100
    
99.                     ppd.OnEndSheet()
    
100.                     numSheet += 1
     
101.                     ' Update the overall progress
     
102.                     ppd.PlotProgressPos += (100 / layoutsToPlot.Count)
     
103.                 Next
     
104. 
     
105.                 ' Finish the document
     
106.                 pe.EndDocument(Nothing)
     
107.                 ' And finish the plot
     
108.                 ppd.PlotProgressPos = 100
     
109.                 ppd.OnEndPlot()
     
110.                 pe.EndPlot(Nothing)
     
111.             End Using
     
112.         End Using
     
113. 
     
114.         Return ret
     
115. 
     
116.     End Function
     

<br /> Private Shared Function MultiplePlotOrPreview(ByVal pe As PlotEngine, ByVal isPreview As Boolean, ByVal layoutSet As ObjectIdCollection, ByVal layoutNumIfPreview As Integer, ByVal filename As String) As PreviewEndPlotStatus<br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim ed As Editor = doc.Editor<br />         Dim db As Database = doc.Database<br />         Dim ret As PreviewEndPlotStatus = PreviewEndPlotStatus.Cancel<br />         Dim layoutsToPlot As ObjectIdCollection<br /> <br />         If isPreview AndAlso layoutNumIfPreview >= 0 Then<br />             ' Preview is really pre-sheet, so we reduce the<br />             ' sheet collection to contain the one we want<br />             layoutsToPlot = New ObjectIdCollection()<br />             layoutsToPlot.Add(layoutSet(layoutNumIfPreview))<br />         Else<br />             ' If we're plotting we need all the sheets,<br />             ' so copy the ObjectIds across<br />             Dim ids As ObjectId() = New ObjectId(layoutSet.Count - 1) {}<br />             layoutSet.CopyTo(ids, 0)<br />             layoutsToPlot = New ObjectIdCollection(ids)<br />         End If<br /> <br />         Dim tr As Transaction = db.TransactionManager.StartTransaction()<br />         Using tr<br />             ' Create a Progress Dialog to provide info<br />             ' and allow thej user to cancel<br />             Dim ppd As New PlotProgressDialog(isPreview, layoutsToPlot.Count, True)<br />             Using ppd<br />                 Dim numSheet As Integer = 1<br />                 For Each btrId As ObjectId In layoutsToPlot<br />                     Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)<br />                     Dim lo As Layout = DirectCast(tr.GetObject(btr.LayoutId, OpenMode.ForRead), Layout)<br />                     ' We need a PlotSettings object<br />                     ' based on the layout settings<br />                     ' which we then customize<br />                     Dim ps As New PlotSettings(lo.ModelType)<br />                     ps.CopyFrom(lo)<br />                     ' The PlotSettingsValidator helps<br />                     ' create a valid PlotSettings object<br />                     Dim psv As PlotSettingsValidator = PlotSettingsValidator.Current<br />                     ' We'll plot the extents, centered and <br />                     ' scaled to fit<br />                     psv.SetPlotType(ps, Autodesk.AutoCAD.DatabaseServices.PlotType.Extents)<br />                     psv.SetUseStandardScale(ps, True)<br />                     psv.SetStdScaleType(ps, StdScaleType.ScaleToFit)<br />                     psv.SetPlotCentered(ps, True)<br />                     ' We'll use the standard DWFx PC3, as<br />                     ' this supports multiple sheets<br />                     psv.SetPlotConfigurationName(ps, "DWFx ePlot (XPS Compatible).pc3", "ANSI_A_(8.50_x_11.00_Inches)")<br />                     ' We need a PlotInfo object<br />                     ' linked to the layout<br />                     Dim pi As New PlotInfo()<br />                     pi.Layout = btr.LayoutId<br />                     ' Make the layout we're plotting current<br />                     LayoutManager.Current.CurrentLayout = lo.LayoutName<br />                     ' We need to link the PlotInfo to the<br />                     ' PlotSettings and then validate it<br />                     pi.OverrideSettings = ps<br />                     Dim piv As New PlotInfoValidator()<br />                     piv.MediaMatchingPolicy = MatchingPolicy.MatchEnabled<br />                     piv.Validate(pi)<br />                     ' We set the sheet name per sheet<br /> <br />                     ppd.PlotMsgString(PlotMessageIndex.SheetName) = (doc.Name.Substring(doc.Name.LastIndexOf("") + 1) & " - ") + lo.LayoutName<br />                     If numSheet = 1 Then<br />                         ' All other messages get set once<br />                         ppd.PlotMsgString(PlotMessageIndex.DialogTitle) = "Custom Preview Progress"<br />                         ppd.PlotMsgString(PlotMessageIndex.CancelJobButtonMessage) = "Cancel Job"<br />                         ppd.PlotMsgString(PlotMessageIndex.CancelSheetButtonMessage) = "Cancel Sheet"<br />                         ppd.PlotMsgString(PlotMessageIndex.SheetSetProgressCaption) = "Sheet Set Progress"<br />                         ppd.PlotMsgString(PlotMessageIndex.SheetProgressCaption) = "Sheet Progress"<br /> <br />                         ppd.LowerPlotProgressRange = 0<br />                         ppd.UpperPlotProgressRange = 100<br />                         ppd.PlotProgressPos = 0<br />                         ' Let's start the plot/preview, at last<br />                         ppd.OnBeginPlot()<br />                         ppd.IsVisible = True<br />                         pe.BeginPlot(ppd, Nothing)<br />                         ' We'll be plotting a single document<br />                         pe.BeginDocument(pi, doc.Name, Nothing, 1, Not isPreview, filename)<br />                     End If<br /> <br />                     ' Which may contains multiple sheets<br />                     ppd.LowerSheetProgressRange = 0<br />                     ppd.UpperSheetProgressRange = 100<br />                     ppd.SheetProgressPos = 0<br />                     Dim ppi As New PlotPageInfo()<br />                     pe.BeginPage(ppi, pi, (numSheet = layoutsToPlot.Count), Nothing)<br />                     ppd.OnBeginSheet()<br />                     pe.BeginGenerateGraphics(Nothing)<br />                     ppd.SheetProgressPos = 50<br />                     pe.EndGenerateGraphics(Nothing)<br />                     ' Finish the sheet<br />                     Dim pepi As New PreviewEndPlotInfo()<br />                     pe.EndPage(pepi)<br />                     ret = pepi.Status<br />                     ppd.SheetProgressPos = 100<br />                     ppd.OnEndSheet()<br />                     numSheet += 1<br />                     ' Update the overall progress<br />                     ppd.PlotProgressPos += (100 / layoutsToPlot.Count)<br />                 Next<br /> <br />                 ' Finish the document<br />                 pe.EndDocument(Nothing)<br />                 ' And finish the plot<br />                 ppd.PlotProgressPos = 100<br />                 ppd.OnEndPlot()<br />                 pe.EndPlot(Nothing)<br />             End Using<br />         End Using<br /> <br />         Return ret<br /> <br />     End Function<br />

羊羊羊

ShowModalDialog窗体在打印预览时出现的问题

羊羊羊

有答案了吗

羊羊羊

搞定了，采用StartUserInteraction 就可以了