新建布局视口显示

hnzgs

代码如下：

2.   '锁定文档
   
3.         Using acLckDoc As DocumentLock = doc.LockDocument
   
4. 
   
5.             '全部显示
   
6.             Autodesk.AutoCAD.Internal.Utils.ZoomAuto(1, 1, 1, 1, 1)
   
7. 
   
8.             Using trans As Transaction = db.TransactionManager.StartTransaction()
   
9. 
   
10.                 Dim lm As LayoutManager = LayoutManager.Current
    
11. 
    
12.                 Dim layName As String = GenerateLayoutName()
    
13. 
    
14.                 '创建新布局
    
15.                 Dim layoutId As ObjectId = lm.CreateLayout(layName)
    
16. 
    
17.                 '设置为当前布局
    
18.                 lm.CurrentLayout = layName
    
19. 
    
20.                 Dim acLayout As Layout = TryCast(trans.GetObject(layoutId, OpenMode.ForRead), Layout)
    
21. 
    
22. 
    
23.                 Dim pi As PlotInfo = New PlotInfo()
    
24.                 pi.Layout = acLayout.ObjectId
    
25. 
    
26.                 Dim ps As PlotSettings = New PlotSettings(acLayout.ModelType)
    
27.                 ps.CopyFrom(acLayout)
    
28. 
    
29.                 Dim psv As PlotSettingsValidator = PlotSettingsValidator.Current
    
30.                 With psv
    
31. 
    
32.                     '设置打印设备和纸张
    
33.                     .SetPlotConfigurationName(ps, "Adobe PDF", "A4")
    
34. 
    
35.                     '设置打印单位
    
36.                     .SetPlotPaperUnits(ps, PlotPaperUnit.Millimeters)
    
37. 
    
38.                     '设置打印比例
    
39.                     .SetUseStandardScale(ps, True)
    
40.                     .SetStdScaleType(ps, StdScaleType.ScaleToFit)
    
41. 
    
42.                     ''设置打印区域
    
43.                     .SetPlotType(ps, Autodesk.AutoCAD.DatabaseServices.PlotType.Extents)
    
44. 
    
45.                     '设置横向打印
    
46.                     .SetPlotRotation(ps, PlotRotation.Degrees090)
    
47. 
    
48.                     ' 设置是否居中打印
    
49.                     .SetPlotCentered(ps, True)
    
50.                 End With
    
51. 
    
52.                 '将布局由只读改为读写模式
    
53.                 acLayout.UpgradeOpen()
    
54. 
    
55.                 '置为当前布局
    
56.                 acLayout.CopyFrom(ps)
    
57. 
    
58.               
    
59.                 acLayout.DowngradeOpen()
    
60.               
    
61.                 '保存新对象到数据库中
    
62.                 trans.Commit()
    
63.             End Using
    
64.             '重生成一下，否则显示不正确
    
65.             doc.Editor.Regen()
    
66.         End Using

  '锁定文档<br />         Using acLckDoc As DocumentLock = doc.LockDocument<br /> <br />             '全部显示<br />             Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Internal.Utils.ZoomAuto(1, 1, 1, 1, 1)<br /> <br />             Using trans As Transaction = db.TransactionManager.StartTransaction()<br /> <br />                 Dim lm As LayoutManager = LayoutManager.Current<br /> <br />                 Dim layName As String = GenerateLayoutName()<br /> <br />                 '创建新布局<br />                 Dim layoutId As ObjectId = lm.CreateLayout(layName)<br /> <br />                 '设置为当前布局<br />                 lm.CurrentLayout = layName<br /> <br />                 Dim acLayout As Layout = TryCast(trans.GetObject(layoutId, OpenMode.ForRead), Layout)<br /> <br /> <br />                 Dim pi As PlotInfo = New PlotInfo()<br />                 pi.Layout = acLayout.ObjectId<br /> <br />                 Dim ps As PlotSettings = New PlotSettings(acLayout.ModelType)<br />                 ps.CopyFrom(acLayout)<br /> <br />                 Dim psv As PlotSettingsValidator = PlotSettingsValidator.Current<br />                 With psv<br /> <br />                     '设置打印设备和纸张<br />                     .SetPlotConfigurationName(ps, "Adobe PDF", "A4")<br /> <br />                     '设置打印单位<br />                     .SetPlotPaperUnits(ps, PlotPaperUnit.Millimeters)<br /> <br />                     '设置打印比例<br />                     .SetUseStandardScale(ps, True)<br />                     .SetStdScaleType(ps, StdScaleType.ScaleToFit)<br /> <br />                     ''设置打印区域<br />                     .SetPlotType(ps, Autodesk.AutoCAD.DatabaseServices.PlotType.Extents)<br /> <br />                     '设置横向打印<br />                     .SetPlotRotation(ps, PlotRotation.Degrees090)<br /> <br />                     ' 设置是否居中打印<br />                     .SetPlotCentered(ps, True)<br />                 End With<br /> <br />                 '将布局由只读改为读写模式<br />                 acLayout.UpgradeOpen()<br /> <br />                 '置为当前布局<br />                 acLayout.CopyFrom(ps)<br /> <br />               <br />                 acLayout.DowngradeOpen()<br />               <br />                 '保存新对象到数据库中<br />                 trans.Commit()<br />             End Using<br />             '重生成一下，否则显示不正确<br />             doc.Editor.Regen()<br />         End Using

直接建好后的效果不大满意，怎样才能实现附图3那种想要的效果~~谢了先！

sieben

好像没做过，看到有下面这个东西，不知道楼主有没有用过。
public void SetPlotWindowArea(Autodesk.AutoCAD.DatabaseServices.PlotSettings plotSet, Autodesk.AutoCAD.DatabaseServices.Extents2d windowArea)
    Autodesk.AutoCAD.DatabaseServices.PlotSettingsValidator 的成员
至于Extents2d windowArea哪里来，若是我可能用笨办法算，楼主不妨试试看能不能用下面这个
public Autodesk.AutoCAD.DatabaseServices.Extents3d Extents { get; }
    Autodesk.AutoCAD.DatabaseServices.Layout 的成员

hnzgs

sieben 发表于 2012-12-4 19:44
好像没做过，看到有下面这个东西，不知道楼主有没有用过。
public void SetPlotWindowArea(Autodesk.AutoC ...

多谢sieben老兄！
SetPlotWindowArea是窗选，也试过了，跟PlotType.Extents的的结果一样。

acLayout.Extents为只读属性，在PlotSettingsValidator前后均为((0,0,0),(0,0,0))

sieben

acLayout.Extents为只读属性，在PlotSettingsValidator前后均为((0,0,0),(0,0,0))
-----------------------------
或者是因为你的acLayout还没提交到数据库，我好像用过acLayout.Extents不是0

hnzgs

sieben 发表于 2012-12-5 17:05
acLayout.Extents为只读属性，在PlotSettingsValidator前后均为((0,0,0),(0,0,0))
---------------------- ...

提交后显示也是如此，奇怪了

sieben

啊？可能我记错了，你的AutoCAD什么版本？
public Autodesk.AutoCAD.DatabaseServices.Extents2d Limits { get; }
    Autodesk.AutoCAD.DatabaseServices.Layout 的成员
这个东西有没有试过？
或者
public Autodesk.AutoCAD.DatabaseServices.ObjectIdCollection GetViewports()
    Autodesk.AutoCAD.DatabaseServices.Layout 的成员
用视口Viewport来试试？

hnzgs

sieben 发表于 2012-12-7 16:13
啊？可能我记错了，你的AutoCAD什么版本？
public Autodesk.AutoCAD.DatabaseServices.Extents2d Limits { ...

谢谢老兄，我用的是CAD2010。郁闷了