如何编写代码实现从外部输入块，并插入到当前文件中？

sieben

介之推 发表于 2013-4-1 16:01
你好，sieben。
你的第二个函数调试通了以后，编译不出问题，我这样调用你的InsertDwg()函数，运行时出错了 ...

我也不明所以，不过应该不是你所说的那一行出错，你的代码或许太简洁了。

清风明月名字

上面是什么程序语言啊？不象VBA

介之推

sieben 发表于 2013-4-1 18:48
我也不明所以，不过应该不是你所说的那一行出错，你的代码或许太简洁了。

你好，我调试了，确实是那一行代码出错了。
完整的代码入下：

2. public ObjectId InsertDwg(string fileName, ref string blockName)
   
3.         {
   
4. 
   
5.             try
   
6.             {
   
7.                 /*
   
8.                 if (!replace)
   
9.                 {
   
10.                     ObjectId blockId = sn.GetRecordId(sc.db.BlockTableId, blockName);
    
11.                     if (blockId != ObjectId.Null)
    
12.                         return blockId;
    
13.                 }
    
14.                 //*/
    
15.                 if (fileName == "" || !File.Exists(fileName))
    
16.                 {
    
17.                     Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
18.                     //se.WriteMessage(ex);
    
19.                     se.WriteMessage("File not found");
    
20.                     return ObjectId.Null;
    
21.                 }
    
22.                 if (!fileName.ToLower().EndsWith(".dwg"))
    
23.                 {
    
24.                     Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
25.                     //se.WriteMessage(ex);
    
26.                     se.WriteMessage("Not dwg file");
    
27.                     return ObjectId.Null;
    
28.                 }                  
    
29.             }
    
30.             catch (System.Exception ex)
    
31.             {
    
32.                 Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
33.                 //se.WriteMessage(ex);
    
34.                 se.WriteMessage(ex.StackTrace);
    
35.                 return ObjectId.Null;
    
36.             }
    
37.             Database newDB = new Database(false, false);
    
38.             bool newDBHasDispose = false;
    
39.             try
    
40.             {
    
41.                 Database myDb = HostApplicationServices.WorkingDatabase;
    
42. 
    
43.                 if (blockName == "")
    
44.                 {
    
45.                     FileInfo fileInfo = new FileInfo(fileName);
    
46.                     blockName = fileInfo.Name.Substring(0, fileInfo.Name.Length - 4);
    
47.                 }
    
48.                 //newDB.ReadDwgFile(fileName, System.IO.FileShare.Read, true, fileName);
    
49.                 newDB.ReadDwgFile(fileName, System.IO.FileShare.Read, true, null);
    
50.                 if (newDB.Insbase.GetAsVector().Length > 0.00001)
    
51.                 {
    
52.                     if (newDB.Insbase.X >= newDB.Extmin.X && newDB.Insbase.X <= newDB.Extmax.X
    
53.                       && newDB.Insbase.Y >= newDB.Extmin.Y && newDB.Insbase.Y <= newDB.Extmax.Y)
    
54.                     {
    
55.                         //Insbase位于图形范围,不进行移动,有可能不符合预期
    
56.                         //return sc.db.Insert(blockName, newDB, true);
    
57.                         return myDb.Insert(blockName, newDB, true);
    
58.                     }
    
59.                     else
    
60.                     {
    
61.                         if (newDB.Extmin.X > newDB.Extmax.X)
    
62.                         {
    
63.                             //图形范围Extmin Extmax未初始化,不进行移动,有可能不符合预期
    
64.                             //return sc.db.Insert(blockName, newDB, true);
    
65.                             return myDb.Insert(blockName, newDB, true);
    
66.                         }
    
67.                         else
    
68.                         {
    
69.                             Matrix3d tMat = Matrix3d.Displacement(newDB.Insbase.GetAsVector().Negate());
    
70.                             newDB.Insbase = Point3d.Origin;
    
71.                             //ObjectId blockId = sc.db.Insert(blockName, newDB, true);
    
72.                             ObjectId blockId = myDb.Insert(blockName, newDB, true);
    
73.                             if (0 >= newDB.Extmin.X && 0 <= newDB.Extmax.X && 0 >= newDB.Extmin.Y && 0 <= newDB.Extmax.Y)
    
74.                             {
    
75.                                 //坐标原点位于图形范围,不进行移动,有可能不符合预期
    
76.                                 return blockId;
    
77.                             }
    
78.                             else
    
79.                             {
    
80.                                 //Insbase不位于图形范围 坐标原点也不位于图形范围,将图形从Insbase移到原点,有可能不符合预期
    
81.                                 //using (Transaction ctrans = sc.db.TransactionManager.StartTransaction())
    
82.                                 using(Transaction ctrans = myDb.TransactionManager.StartTransaction())
    
83.                                 {
    
84.                                     BlockTableRecord cbtr = (BlockTableRecord)ctrans.GetObject(blockId, OpenMode.ForWrite);
    
85.                                     foreach (ObjectId tId in cbtr)
    
86.                                     {
    
87.                                         Entity ent = (Entity)ctrans.GetObject(tId, OpenMode.ForWrite);
    
88.                                         ent.TransformBy(tMat);
    
89.                                     }
    
90.                                     ctrans.Commit();
    
91.                                 }
    
92.                                 return blockId;
    
93.                             }
    
94.                         }
    
95. 
    
96.                     }
    
97.                 }
    
98.                 else
    
99.                 {
    
100.                     //Insbase位于原点,不用做任何处理
     
101.                     //return sc.db.Insert(blockName, newDB, true);
     
102.                     return myDb.Insert(blockName, newDB, true);         //这行出错了,错误信息：eSelfReference
     
103.                 }
     
104.             }
     
105.             catch (System.Exception ex)
     
106.             {
     
107.                 Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
     
108.                 //se.WriteMessage(ex);
     
109.                 se.WriteMessage(ex.StackTrace + "\n" + ex.Message + "\n" + ex.TargetSite);
     
110.                 return ObjectId.Null;
     
111.             }
     
112.             finally
     
113.             {
     
114.                 if (!newDBHasDispose)
     
115.                     newDB.Dispose();
     
116.             }
     
117.         }

public ObjectId InsertDwg(string fileName, ref string blockName)<br />         {<br /> <br />             try<br />             {<br />                 /*<br />                 if (!replace)<br />                 {<br />                     ObjectId blockId = sn.GetRecordId(sc.db.BlockTableId, blockName);<br />                     if (blockId != ObjectId.Null)<br />                         return blockId;<br />                 }<br />                 //*/<br />                 if (fileName == "" || !File.Exists(fileName))<br />                 {<br />                     Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />                     //se.WriteMessage(ex);<br />                     se.WriteMessage("File not found");<br />                     return ObjectId.Null;<br />                 }<br />                 if (!fileName.ToLower().EndsWith(".dwg"))<br />                 {<br />                     Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />                     //se.WriteMessage(ex);<br />                     se.WriteMessage("Not dwg file");<br />                     return ObjectId.Null;<br />                 }                   <br />             }<br />             catch (System.Exception ex)<br />             {<br />                 Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />                 //se.WriteMessage(ex);<br />                 se.WriteMessage(ex.StackTrace);<br />                 return ObjectId.Null;<br />             }<br />             Database newDB = new Database(false, false);<br />             bool newDBHasDispose = false;<br />             try<br />             {<br />                 Database myDb = HostApplicationServices.WorkingDatabase;<br /> <br />                 if (blockName == "")<br />                 {<br />                     FileInfo fileInfo = new FileInfo(fileName);<br />                     blockName = fileInfo.Name.Substring(0, fileInfo.Name.Length - 4);<br />                 }<br />                 //newDB.ReadDwgFile(fileName, System.IO.FileShare.Read, true, fileName);<br />                 newDB.ReadDwgFile(fileName, System.IO.FileShare.Read, true, null);<br />                 if (newDB.Insbase.GetAsVector().Length > 0.00001)<br />                 {<br />                     if (newDB.Insbase.X >= newDB.Extmin.X && newDB.Insbase.X <= newDB.Extmax.X<br />                       && newDB.Insbase.Y >= newDB.Extmin.Y && newDB.Insbase.Y <= newDB.Extmax.Y)<br />                     {<br />                         //Insbase位于图形范围,不进行移动,有可能不符合预期<br />                         //return sc.db.Insert(blockName, newDB, true);<br />                         return myDb.Insert(blockName, newDB, true);<br />                     }<br />                     else<br />                     {<br />                         if (newDB.Extmin.X > newDB.Extmax.X)<br />                         {<br />                             //图形范围Extmin Extmax未初始化,不进行移动,有可能不符合预期<br />                             //return sc.db.Insert(blockName, newDB, true);<br />                             return myDb.Insert(blockName, newDB, true);<br />                         }<br />                         else<br />                         {<br />                             Matrix3d tMat = Matrix3d.Displacement(newDB.Insbase.GetAsVector().Negate());<br />                             newDB.Insbase = Point3d.Origin;<br />                             //ObjectId blockId = sc.db.Insert(blockName, newDB, true);<br />                             ObjectId blockId = myDb.Insert(blockName, newDB, true);<br />                             if (0 >= newDB.Extmin.X && 0 <= newDB.Extmax.X && 0 >= newDB.Extmin.Y && 0 <= newDB.Extmax.Y)<br />                             {<br />                                 //坐标原点位于图形范围,不进行移动,有可能不符合预期<br />                                 return blockId;<br />                             }<br />                             else<br />                             {<br />                                 //Insbase不位于图形范围 坐标原点也不位于图形范围,将图形从Insbase移到原点,有可能不符合预期<br />                                 //using (Transaction ctrans = sc.db.TransactionManager.StartTransaction())<br />                                 using(Transaction ctrans = myDb.TransactionManager.StartTransaction())<br />                                 {<br />                                     BlockTableRecord cbtr = (BlockTableRecord)ctrans.GetObject(blockId, OpenMode.ForWrite);<br />                                     foreach (ObjectId tId in cbtr)<br />                                     {<br />                                         Entity ent = (Entity)ctrans.GetObject(tId, OpenMode.ForWrite);<br />                                         ent.TransformBy(tMat);<br />                                     }<br />                                     ctrans.Commit();<br />                                 }<br />                                 return blockId;<br />                             }<br />                         }<br /> <br />                     }<br />                 }<br />                 else<br />                 {<br />                     //Insbase位于原点,不用做任何处理<br />                     //return sc.db.Insert(blockName, newDB, true);<br />                     return myDb.Insert(blockName, newDB, true);         //这行出错了,错误信息：eSelfReference<br />                 }<br />             }<br />             catch (System.Exception ex)<br />             {<br />                 Editor se = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />                 //se.WriteMessage(ex);<br />                 se.WriteMessage(ex.StackTrace + "\n" + ex.Message + "\n" + ex.TargetSite);<br />                 return ObjectId.Null;<br />             }<br />             finally<br />             {<br />                 if (!newDBHasDispose)<br />                     newDB.Dispose();<br />             }<br />         }

就是你给我的第二个函数，就是把几个变量名换了，其他都没有动。
调用这个函数的命令如下：

2. [CommandMethod("IB")]
   
3.         public void InsertBlock()
   
4.         {
   
5.             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
   
6.             Database db = doc.Database;
   
7.             Editor ed = doc.Editor;
   
8.             try
   
9.             {
   
10.                 using (Transaction trans = db.TransactionManager.StartTransaction())
    
11.                 {
    
12.                     //ImportBlock_DB("test.dwg", "sample");
    
13.                     string blockName = "sample"; InsertDwg("test.dwg", ref blockName);
    
14. 
    
15.                     trans.Commit();
    
16.                 }
    
17.             }
    
18.             catch (System.Exception ex)
    
19.             {               
    
20.                 ed.WriteMessage(ex.StackTrace + "\n" + ex.Message + "\n" + ex.TargetSite);
    
21.                 return;
    
22.             }
    
23.                      
    
24.         }

[CommandMethod("IB")]<br />         public void InsertBlock()<br />         {<br />             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database;<br />             Editor ed = doc.Editor;<br />             try<br />             {<br />                 using (Transaction trans = db.TransactionManager.StartTransaction())<br />                 {<br />                     //ImportBlock_DB("test.dwg", "sample");<br />                     string blockName = "sample"; InsertDwg("test.dwg", ref blockName);<br /> <br />                     trans.Commit();<br />                 }<br />             }<br />             catch (System.Exception ex)<br />             {                <br />                 ed.WriteMessage(ex.StackTrace + "\n" + ex.Message + "\n" + ex.TargetSite);<br />                 return;<br />             }<br />                       <br />         }

我用的是AutoCAD2008，难道是版本的问题？

介之推

清风明月名字 发表于 2013-4-1 18:59
上面是什么程序语言啊？不象VBA

VBA？哈哈，这个真不是VBA呢。哈哈。

sieben

你的代码太简洁了，即使调用的函数内部不出错，你的代码也是行不通的

介之推

sieben 发表于 2013-4-1 20:04
你的代码太简洁了，即使调用的函数内部不出错，你的代码也是行不通的

你好，你说的是我的调用函数[CommandMethod("IB")]InsertBlock(){...}太简单了，还是下面调用你的函数的这行代码太简洁了？

1. string blockName = "sample"; InsertDwg("test.dwg", ref blockName);
   

复制代码

如何正确调用呢？请帮帮忙！

sieben

介之推 发表于 2013-4-1 20:33
你好，你说的是我的调用函数[CommandMethod("IB")]InsertBlock(){...}太简单了，还是下面调用你的函数的这 ...

对，我就是想说你这一行代码太简单了，我怀疑你是不是在用Lisp的语法来写这个代码

sieben

另外，这句代码的前面一行和后面一行也是不必要的，甚至是致命的

介之推

sieben 发表于 2013-4-1 22:01
另外，这句代码的前面一行和后面一行也是不必要的，甚至是致命的

我没有用Lisp啊，不会用Lisp，我只有采用.NET方式开发啊。
我的调用可能太简单了，但我只会这些了。
请问如何在调用你的函数之前做好铺垫？

ScmTools

建议LZ还是在看看块表的帮助，然后再来看Sieben提供的代码啊，这样你就容易理解啦