请教有关打印设置数据的访问

对牛谈情

想用.net访问CAD的文档打印设置字典(PlotSettings)，查了一些资料，只知这些数据是存在字典里，可不知如何访问和修改，请高人指教。

另，若想在自己的对话框中调用CAD自带的打印设置对话框（如下图），并能让设置好的打印数据传回自己的对话框，用什么函数可以实现？？

谢谢

寒风

关注。。。。

qazllqaz

关注中，怎么没人回答

zlg258369

看这个

3. Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
4. Dim acCurDb As Database = acDoc.Database
5. Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
6. Dim acLayoutMgr As LayoutManager
7. acLayoutMgr = LayoutManager.Current
8. Dim acLayout As Layout
9. acLayout = acTrans.GetObject(acLayoutMgr.GetLayoutId(acLayoutMgr.CurrentLayout), _
10. OpenMode.ForRead)
11. Dim acPlInfo As PlotInfo = New PlotInfo()
12. acPlInfo.Layout = acLayout.ObjectId
14. Dim acPlSet As PlotSettings = New PlotSettings(acLayout.ModelType)
15. acPlSet.CopyFrom(acLayout)
17. Dim acPlSetVdr As PlotSettingsValidator = PlotSettingsValidator.Current
20. '' 打印比例
21. acPlSetVdr.SetUseStandardScale(acPlSet, True)
22. acPlSetVdr.SetStdScaleType(acPlSet, StdScaleType.ScaleToFit)  
24. '' 居中打印
25. acPlSetVdr.SetPlotCentered(acPlSet, True)
28. '' 打印设备和图纸
29. acPlSetVdr.SetPlotConfigurationName(acPlSet, "PublishToWeb JPG.pc3", _
30. "User-1")
31. '先GetPoint然后再GetCorner
32. Dim pPtRes As PromptPointResult
33. Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
34. pPtOpts.Message = vbLf & "请选择其中一个角点: "
35. pPtRes = acDoc.Editor.GetPoint(pPtOpts)
36. Dim PT1 As Point3d = pPtRes.Value
37. Dim pCnOpts As PromptCornerOptions = New PromptCornerOptions("请选择一个对角点:", PT1)
38. pPtRes = acDoc.Editor.GetCorner(pCnOpts)
39. Dim PT2 As Point3d = pPtRes.Value
41. '设置打印窗口
42. Dim minX As Double = System.Math.Min(PT1.X, PT2.X)
43. Dim minY As Double = System.Math.Min(PT1.Y, PT2.Y)
44. Dim maxX As Double = System.Math.Max(PT1.X, PT2.X)
45. Dim maxY As Double = System.Math.Max(PT1.Y, PT2.Y)
47. Dim E2d As Extents2d = New Extents2d(minX, minY, maxX, maxY)
50. acPlSetVdr.SetPlotWindowArea(acPlSet, E2d)
51. acPlSetVdr.SetPlotType(acPlSet, Autodesk.AutoCAD.DatabaseServices.PlotType.Window)
53. acPlInfo.OverrideSettings = acPlSet
55. Dim acPlInfoVdr As PlotInfoValidator = New PlotInfoValidator()
56. acPlInfoVdr.MediaMatchingPolicy = MatchingPolicy.MatchEnabled
57. acPlInfoVdr.Validate(acPlInfo)
59. If PlotFactory.ProcessPlotState = Autodesk.AutoCAD.PlottingServices. _
60. ProcessPlotState.NotPlotting Then
61. Using acPlEng As PlotEngine = PlotFactory.CreatePublishEngine()
63. Dim acPlProgDlg As PlotProgressDialog = New PlotProgressDialog(False, _
64. 1, _
65. True)
66. Using (acPlProgDlg)
67. acPlProgDlg.PlotMsgString(PlotMessageIndex.DialogTitle) = "打印进度"
68. acPlProgDlg.PlotMsgString(PlotMessageIndex.CancelSheetButtonMessage) = "取消打印"
69. acPlProgDlg.PlotMsgString(PlotMessageIndex.SheetProgressCaption) ="打印进度"
71. acPlProgDlg.LowerPlotProgressRange = 0
72. acPlProgDlg.UpperPlotProgressRange = 100
73. acPlProgDlg.PlotProgressPos = 0
74. acPlProgDlg.OnBeginPlot()
75. acPlProgDlg.IsVisible = True
77. acPlEng.BeginPlot(acPlProgDlg, Nothing)
79. acPlEng.BeginDocument(acPlInfo, _
80. acDoc.Name, _
81. Nothing, _
82. 1, _
83. True, _
84. "c:\PlotTest")
86. acPlProgDlg.PlotMsgString(PlotMessageIndex.Status) = _
87. "正在打印 " & acDoc.Name & _
88. " - " & acLayout.LayoutName
90. acPlProgDlg.OnBeginSheet()
91. acPlProgDlg.LowerSheetProgressRange = 0
92. acPlProgDlg.UpperSheetProgressRange = 100
93. acPlProgDlg.SheetProgressPos = 0
95. Dim acPlPageInfo As PlotPageInfo = New PlotPageInfo()
96. acPlEng.BeginPage(acPlPageInfo, _
97. acPlInfo, _
98. True, _
99. Nothing)
101. acPlEng.BeginGenerateGraphics(Nothing)
102. acPlEng.EndGenerateGraphics(Nothing)
104. acPlEng.EndPage(Nothing)
105. acPlProgDlg.SheetProgressPos = 100
106. acPlProgDlg.OnEndSheet()
108. acPlEng.EndDocument(Nothing)
110. acPlProgDlg.PlotProgressPos = 100
111. acPlProgDlg.OnEndPlot()
112. acPlEng.EndPlot(Nothing)
113. End Using
114. End Using
115. End If
116. End Using

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() Dim acLayoutMgr As LayoutManager acLayoutMgr = LayoutManager.Current Dim acLayout As Layout acLayout = acTrans.GetObject(acLayoutMgr.GetLayoutId(acLayoutMgr.CurrentLayout), _ OpenMode.ForRead) Dim acPlInfo As PlotInfo = New PlotInfo() acPlInfo.Layout = acLayout.ObjectId Dim acPlSet As PlotSettings = New PlotSettings(acLayout.ModelType) acPlSet.CopyFrom(acLayout) Dim acPlSetVdr As PlotSettingsValidator = PlotSettingsValidator.Current '' 打印比例 acPlSetVdr.SetUseStandardScale(acPlSet, True) acPlSetVdr.SetStdScaleType(acPlSet, StdScaleType.ScaleToFit)   '' 居中打印 acPlSetVdr.SetPlotCentered(acPlSet, True) '' 打印设备和图纸 acPlSetVdr.SetPlotConfigurationName(acPlSet, "PublishToWeb JPG.pc3", _ "User-1") '先GetPoint然后再GetCorner Dim pPtRes As PromptPointResult Dim pPtOpts As PromptPointOptions = New PromptPointOptions("") pPtOpts.Message = vbLf & "请选择其中一个角点: " pPtRes = acDoc.Editor.GetPoint(pPtOpts) Dim PT1 As Point3d = pPtRes.Value Dim pCnOpts As PromptCornerOptions = New PromptCornerOptions("请选择一个对角点:", PT1) pPtRes = acDoc.Editor.GetCorner(pCnOpts) Dim PT2 As Point3d = pPtRes.Value '设置打印窗口 Dim minX As Double = System.Math.Min(PT1.X, PT2.X) Dim minY As Double = System.Math.Min(PT1.Y, PT2.Y) Dim maxX As Double = System.Math.Max(PT1.X, PT2.X) Dim maxY As Double = System.Math.Max(PT1.Y, PT2.Y) Dim E2d As Extents2d = New Extents2d(minX, minY, maxX, maxY) acPlSetVdr.SetPlotWindowArea(acPlSet, E2d) acPlSetVdr.SetPlotType(acPlSet, Autodesk.AutoCAD.DatabaseServices.PlotType.Window) acPlInfo.OverrideSettings = acPlSet Dim acPlInfoVdr As PlotInfoValidator = New PlotInfoValidator() acPlInfoVdr.MediaMatchingPolicy = MatchingPolicy.MatchEnabled acPlInfoVdr.Validate(acPlInfo) If PlotFactory.ProcessPlotState = Autodesk.AutoCAD.PlottingServices. _ ProcessPlotState.NotPlotting Then Using acPlEng As PlotEngine = PlotFactory.CreatePublishEngine() Dim acPlProgDlg As PlotProgressDialog = New PlotProgressDialog(False, _ 1, _ True) Using (acPlProgDlg) acPlProgDlg.PlotMsgString(PlotMessageIndex.DialogTitle) = "打印进度" acPlProgDlg.PlotMsgString(PlotMessageIndex.CancelSheetButtonMessage) = "取消打印" acPlProgDlg.PlotMsgString(PlotMessageIndex.SheetProgressCaption) ="打印进度" acPlProgDlg.LowerPlotProgressRange = 0 acPlProgDlg.UpperPlotProgressRange = 100 acPlProgDlg.PlotProgressPos = 0 acPlProgDlg.OnBeginPlot() acPlProgDlg.IsVisible = True acPlEng.BeginPlot(acPlProgDlg, Nothing) acPlEng.BeginDocument(acPlInfo, _ acDoc.Name, _ Nothing, _ 1, _ True, _ "c:\PlotTest") acPlProgDlg.PlotMsgString(PlotMessageIndex.Status) = _ "正在打印 " & acDoc.Name & _ " - " & acLayout.LayoutName acPlProgDlg.OnBeginSheet() acPlProgDlg.LowerSheetProgressRange = 0 acPlProgDlg.UpperSheetProgressRange = 100 acPlProgDlg.SheetProgressPos = 0 Dim acPlPageInfo As PlotPageInfo = New PlotPageInfo() acPlEng.BeginPage(acPlPageInfo, _ acPlInfo, _ True, _ Nothing) acPlEng.BeginGenerateGraphics(Nothing) acPlEng.EndGenerateGraphics(Nothing) acPlEng.EndPage(Nothing) acPlProgDlg.SheetProgressPos = 100 acPlProgDlg.OnEndSheet() acPlEng.EndDocument(Nothing) acPlProgDlg.PlotProgressPos = 100 acPlProgDlg.OnEndPlot() acPlEng.EndPlot(Nothing) End Using End Using End If End Using