使用.NET创建一个AutoCAD线型

ObjectArx

1. using Autodesk.AutoCAD.Runtime;
   
2. using Autodesk.AutoCAD.ApplicationServices;
   
3. using Autodesk.AutoCAD.DatabaseServices;
   
4. using Autodesk.AutoCAD.Geometry;
   
5. using Autodesk.AutoCAD.EditorInput;
   
6. 
   
7. namespace Linetype
   
8. {
   
9.   public class Commands
   
10.   {
    
11.     [CommandMethod("CL")]
    
12.     public void CreateLinetype()
    
13.     {
    
14.       Document doc =
    
15.         Application.DocumentManager.MdiActiveDocument;
    
16.       Database db = doc.Database;
    
17.       Editor ed = doc.Editor;
    
18. 
    
19.       Transaction tr =
    
20.         db.TransactionManager.StartTransaction();
    
21.       using (tr)
    
22.       {
    
23.         // 获取线型表
    
24. 
    
25.         LinetypeTable lt =
    
26.           (LinetypeTable)tr.GetObject(
    
27.             db.LinetypeTableId,
    
28.             OpenMode.ForWrite
    
29.           );
    
30. 
    
31.         // 创建新的线型表记录...
    
32. 
    
33.         LinetypeTableRecord ltr =
    
34.           new LinetypeTableRecord();
    
35. 
    
36.         // ... 设置线型表记录的属性
    
37. 
    
38.         ltr.AsciiDescription = "T E S T -";
    
39.         ltr.PatternLength = 0.75;
    
40.         ltr.NumDashes = 2;
    
41.         ltr.SetDashLengthAt(0, 0.5);
    
42.         ltr.SetDashLengthAt(1,-0.25);
    
43.         ltr.Name = "TESTLINTEYPE";
    
44. 
    
45.         // 把新的线型添加到线型表
    
46. 
    
47.         ObjectId ltId = lt.Add(ltr);
    
48.         tr.AddNewlyCreatedDBObject(ltr,true);
    
49. 
    
50.         // 使用这个新线型创建一条测试直线
    
51. 
    
52.         BlockTable bt =
    
53.           (BlockTable)tr.GetObject(
    
54.             db.BlockTableId,
    
55.             OpenMode.ForRead
    
56.           );
    
57.         BlockTableRecord btr =
    
58.           (BlockTableRecord)tr.GetObject(
    
59.             bt[BlockTableRecord.ModelSpace],
    
60.             OpenMode.ForWrite
    
61.           );
    
62. 
    
63.         Line ln =
    
64.           new Line(
    
65.             new Point3d(0, 0, 0),
    
66.             new Point3d(10, 10, 0)
    
67.           );
    
68. 
    
69.         ln.SetDatabaseDefaults(db);
    
70.         ln.LinetypeId = ltId;
    
71. 
    
72.         btr.AppendEntity(ln);
    
73.         tr.AddNewlyCreatedDBObject(ln, true);
    
74. 
    
75.         tr.Commit();
    
76.       }
    
77.     }
    
78.   }
    
79. }
    

using Autodesk.AutoCAD.Runtime;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.Geometry;<br /> using Autodesk.AutoCAD.EditorInput;<br /> <br /> namespace Linetype<br /> {<br />   public class Commands<br />   {<br />     [CommandMethod("CL")]<br />     public void CreateLinetype()<br />     {<br />       Document doc =<br />         Application.DocumentManager.MdiActiveDocument;<br />       Database db = doc.Database;<br />       Editor ed = doc.Editor;<br /> <br />       Transaction tr =<br />         db.TransactionManager.StartTransaction();<br />       using (tr)<br />       {<br />         // 获取线型表<br /> <br />         LinetypeTable lt =<br />           (LinetypeTable)tr.GetObject(<br />             db.LinetypeTableId,<br />             OpenMode.ForWrite<br />           );<br /> <br />         // 创建新的线型表记录...<br /> <br />         LinetypeTableRecord ltr =<br />           new LinetypeTableRecord();<br /> <br />         // ... 设置线型表记录的属性<br /> <br />         ltr.AsciiDescription = "T E S T -";<br />         ltr.PatternLength = 0.75;<br />         ltr.NumDashes = 2;<br />         ltr.SetDashLengthAt(0, 0.5);<br />         ltr.SetDashLengthAt(1,-0.25);<br />         ltr.Name = "TESTLINTEYPE";<br /> <br />         // 把新的线型添加到线型表<br /> <br />         ObjectId ltId = lt.Add(ltr);<br />         tr.AddNewlyCreatedDBObject(ltr,true);<br /> <br />         // 使用这个新线型创建一条测试直线<br /> <br />         BlockTable bt =<br />           (BlockTable)tr.GetObject(<br />             db.BlockTableId,<br />             OpenMode.ForRead<br />           );<br />         BlockTableRecord btr =<br />           (BlockTableRecord)tr.GetObject(<br />             bt[BlockTableRecord.ModelSpace],<br />             OpenMode.ForWrite<br />           );<br /> <br />         Line ln =<br />           new Line(<br />             new Point3d(0, 0, 0),<br />             new Point3d(10, 10, 0)<br />           );<br /> <br />         ln.SetDatabaseDefaults(db);<br />         ln.LinetypeId = ltId;<br /> <br />         btr.AppendEntity(ln);<br />         tr.AddNewlyCreatedDBObject(ln, true);<br /> <br />         tr.Commit();<br />       }<br />     }<br />   }<br /> }<br />

tyjtyj19811981

用.NET开发CAD的太少了,还是用LISP的画图匠多点.

yjch

好好学习天天向上，不断学习

musuny

感谢分享，学习了