如何新建布局？

guodonglin

如何新建布局？用VB.net，谢谢。

carrot1983

回复 guodonglin 的帖子

2. using System;
   
3. using System.Collections.Generic;
   
4. using Autodesk.AutoCAD.DatabaseServices;
   
5. using Autodesk.AutoCAD.ApplicationServices;
   
6. using Autodesk.AutoCAD.Runtime;
   
7. 
   
8. namespace cs20110512a
   
9. {
   
10.         /// <summary>
    
11.         /// Description of MyClass.
    
12.         /// </summary>
    
13.         public class MyClass
    
14.         {
    
15.                 [CommandMethod("test")]
    
16.                 public void CreateLayout()
    
17.                 {
    
18.                         Document doc = Application.DocumentManager.MdiActiveDocument;
    
19.                         Database db = doc.Database;
    
20.                        
    
21.                         using (Transaction tr = db.TransactionManager.StartTransaction())
    
22.                         {
    
23.                                 try
    
24.                                 {
    
25.                                         LayoutManager lm = LayoutManager.Current;
    
26.                                         ObjectId layoutId = lm.CreateLayout("新的布局");
    
27.                                         lm.CurrentLayout = "新的布局";
    
28.                                         Layout layout = tr.GetObject(layoutId, OpenMode.ForRead) as Layout;
    
29.                                 }
    
30.                                 catch
    
31.                                 {
    
32.                                         throw;
    
33.                                 }
    
34.                                 tr.Commit();
    
35.                         }
    
36.                 }
    
37.         }
    
38. }

using System;<br /> using System.Collections.Generic;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.Runtime;<br /> <br /> namespace cs20110512a<br /> {<br />         /// <summary><br />         /// Description of MyClass.<br />         /// </summary><br />         public class MyClass<br />         {<br />                 [CommandMethod("test")]<br />                 public void CreateLayout()<br />                 {<br />                         Document doc = Application.DocumentManager.MdiActiveDocument;<br />                         Database db = doc.Database;<br />                         <br />                         using (Transaction tr = db.TransactionManager.StartTransaction())<br />                         {<br />                                 try<br />                                 {<br />                                         LayoutManager lm = LayoutManager.Current;<br />                                         ObjectId layoutId = lm.CreateLayout("新的布局");<br />                                         lm.CurrentLayout = "新的布局";<br />                                         Layout layout = tr.GetObject(layoutId, OpenMode.ForRead) as Layout;<br />                                 }<br />                                 catch<br />                                 {<br />                                         throw;<br />                                 }<br />                                 tr.Commit();<br />                         }<br />                 }<br />         }<br /> }

carrot1983

但是不知道如何判断，当前已经是否存在某个布局？

carrot1983

回复 carrot1983 的帖子

2. '
   
3. ' 由SharpDevelop创建。
   
4. ' 用户： cjw
   
5. ' 日期: 2011-5-12
   
6. ' 时间: 9:14
   
7. '
   
8. ' 要改变这种模板请点击 工具|选项|代码编写|编辑标准头文件
   
9. '
   
10. Imports System
    
11. Imports System.Collections.Generic
    
12. Imports Autodesk.AutoCAD.DatabaseServices
    
13. Imports Autodesk.AutoCAD.ApplicationServices
    
14. Imports Autodesk.AutoCAD.Runtime
    
15. 
    
16. Namespace vb20110512a
    
17.         ''' <summary>
    
18.         ''' Description of NewClass.
    
19.         ''' </summary>
    
20.         Public Class [NewClass]
    
21.                 <CommandMethod("test")> _
    
22.                 Public Sub CreateLayout()
    
23.                         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
    
24.                         Dim db As Database = doc.Database
    
25. 
    
26.                         Using tr As Transaction = db.TransactionManager.StartTransaction()
    
27.                                 Try
    
28.                                         Dim lm As LayoutManager = LayoutManager.Current
    
29.                                         Dim layoutId As ObjectId = lm.CreateLayout("新的布局")
    
30.                                         lm.CurrentLayout = "新的布局"
    
31.                                         Dim layout As Layout = TryCast(tr.GetObject(layoutId, OpenMode.ForRead), Layout)
    
32.                                 Catch
    
33.                                         Throw
    
34.                                 End Try
    
35.                                 tr.Commit()
    
36.                         End Using
    
37.                 End Sub
    
38.         End Class
    
39. End Namespace
    
40. 
    

'<br /> ' 由SharpDevelop创建。<br /> ' 用户： cjw<br /> ' 日期: 2011-5-12<br /> ' 时间: 9:14<br /> ' <br /> ' 要改变这种模板请点击 工具|选项|代码编写|编辑标准头文件<br /> '<br /> Imports System<br /> Imports System.Collections.Generic<br /> Imports Autodesk.AutoCAD.DatabaseServices<br /> Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.Runtime<br /> <br /> Namespace vb20110512a<br />         ''' <summary><br />         ''' Description of NewClass.<br />         ''' </summary><br />         Public Class [NewClass]<br />                 <CommandMethod("test")> _<br />                 Public Sub CreateLayout()<br />                         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />                         Dim db As Database = doc.Database<br /> <br />                         Using tr As Transaction = db.TransactionManager.StartTransaction()<br />                                 Try<br />                                         Dim lm As LayoutManager = LayoutManager.Current<br />                                         Dim layoutId As ObjectId = lm.CreateLayout("新的布局")<br />                                         lm.CurrentLayout = "新的布局"<br />                                         Dim layout As Layout = TryCast(tr.GetObject(layoutId, OpenMode.ForRead), Layout)<br />                                 Catch<br />                                         Throw<br />                                 End Try<br />                                 tr.Commit()<br />                         End Using<br />                 End Sub<br />         End Class<br /> End Namespace<br /> <br />

guodonglin

谢谢。但是
Dim layout As Layout = TryCast(tr.GetObject(layoutId, OpenMode.ForRead), Layout)显示

类型“Autodesk.AutoCAD.DatabaseServices.DBObject”的值无法转换为lassLibrary1.Layout”。

bjlba0

请问如何“来自样本”创建新布局