如何插入一个已定义于dwg之外的块

xgr

如巳定义好一个块文件,现需插入进新建图内,看了好多贴子,都是在本图内新建一个块.与我的要求不一样,求一个通用函数,

xgr

就如insert命令,从外部选择一个图块插入,这里真冷清,没办法,c#太菜,求助高手明示一下,谢谢了.

mkhsj928

2.         public static ObjectId m_ImportBlock(string fileName, string blockName, bool bReplace)
   
3.         {
   
4.             ObjectId destId = mFun.m_GetBlockId(blockName);
   
5.             if (destId.IsNull)
   
6.             {
   
7.                 using (Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())//记住一定要先锁定文档
   
8.                 {
   
9.                     using (Database sourceDb = new Database(false, false))
   
10.                     {
    
11.                         sourceDb.ReadDwgFile(fileName.Trim(), FileShare.Read, true, null);
    
12. 
    
13.                         //destId = mCommands.m_db.Insert(blockName, sourceDb, false);//错误？！？！块自参照？？？！！！
    
14. 
    
15.                         destId = m_ImportBlock(sourceDb, blockName, bReplace);
    
16. 
    
17.                         sourceDb.CloseInput(true);
    
18.                     }
    
19.                 }
    
20.             }
    
21. 
    
22.             return destId;
    
23.         }
    
24.         public static ObjectId m_ImportBlock(Database sourceDb, string blockName, bool bReplace)
    
25.         {
    
26.             ObjectId destId = ObjectId.Null;
    
27.             using (Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())
    
28.             {
    
29.                 using (Transaction sourceTr = sourceDb.TransactionManager.StartTransaction())
    
30.                 {
    
31.                     BlockTable sourceBt = sourceTr.GetObject(sourceDb.BlockTableId, OpenMode.ForRead) as BlockTable;
    
32. 
    
33.                     if (sourceBt.Has(blockName))
    
34.                     {
    
35.                         ObjectId sourceId = sourceBt[blockName];
    
36. 
    
37.                         IdMapping idmap = new IdMapping();
    
38.                         sourceDb.WblockCloneObjects(
    
39.                             new ObjectIdCollection(new ObjectId[] { sourceId }),
    
40.                             HostApplicationServices.WorkingDatabase.BlockTableId,
    
41.                             idmap,
    
42.                             bReplace == true ? DuplicateRecordCloning.Replace : DuplicateRecordCloning.MangleName,
    
43.                             false);
    
44. 
    
45.                         destId = idmap[sourceId].Value;
    
46.                     }
    
47. 
    
48.                     sourceTr.Commit();
    
49.                 }
    
50.             }
    
51. 
    
52.             return destId;
    
53.         }
    

        public static ObjectId m_ImportBlock(string fileName, string blockName, bool bReplace)<br />         {<br />             ObjectId destId = mFun.m_GetBlockId(blockName);<br />             if (destId.IsNull)<br />             {<br />                 using (Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())//记住一定要先锁定文档<br />                 {<br />                     using (Database sourceDb = new Database(false, false))<br />                     {<br />                         sourceDb.ReadDwgFile(fileName.Trim(), FileShare.Read, true, null);<br /> <br />                         //destId = mCommands.m_db.Insert(blockName, sourceDb, false);//错误？！？！块自参照？？？！！！<br /> <br />                         destId = m_ImportBlock(sourceDb, blockName, bReplace);<br /> <br />                         sourceDb.CloseInput(true);<br />                     }<br />                 }<br />             }<br /> <br />             return destId;<br />         }<br />         public static ObjectId m_ImportBlock(Database sourceDb, string blockName, bool bReplace)<br />         {<br />             ObjectId destId = ObjectId.Null;<br />             using (Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())<br />             {<br />                 using (Transaction sourceTr = sourceDb.TransactionManager.StartTransaction())<br />                 {<br />                     BlockTable sourceBt = sourceTr.GetObject(sourceDb.BlockTableId, OpenMode.ForRead) as BlockTable;<br /> <br />                     if (sourceBt.Has(blockName))<br />                     {<br />                         ObjectId sourceId = sourceBt[blockName];<br /> <br />                         IdMapping idmap = new IdMapping();<br />                         sourceDb.WblockCloneObjects(<br />                             new ObjectIdCollection(new ObjectId[] { sourceId }),<br />                             HostApplicationServices.WorkingDatabase.BlockTableId,<br />                             idmap,<br />                             bReplace == true ? DuplicateRecordCloning.Replace : DuplicateRecordCloning.MangleName,<br />                             false);<br /> <br />                         destId = idmap[sourceId].Value;<br />                     }<br /> <br />                     sourceTr.Commit();<br />                 }<br />             }<br /> <br />             return destId;<br />         }<br />

xgr

就如insert命令,从外部选择一个图块插入,这里真冷清,没办法,c#太菜,求助高手明示一下,谢谢了.

xgr

mkhsj928 发表于 2012-8-27 12:02

发现三个错误
1 当前下文中不存在名称"mFun";
2 “WblockCloneObjects”方法没有任何重载采用五个参数;
3 无法将带[]的索引应于"Autodesk.Autocad.DatabaseServices.Idmapping"

mkhsj928

xgr 发表于 2012-8-27 17:02
发现三个错误
1 当前下文中不存在名称"mFun";
2 “WblockCloneObjects”方法没有任何重载采用五个参数 ...

1."ObjectId destId = mFun.m_GetBlockId(blockName);
             if (destId.IsNull)"——可以不要，作用是检查当前图形中是否已存在同名块.
2."WblockCloneObjects"出现错误？你的CAD版本是不是低了？
3.怀疑你的CAD版本低了，请用08以上版本

xgr

是否可以换个版本
我是CAD2006+VS2010+NET3.5
没办法，有些软件必须用CAD2006

mkhsj928

主要是WblockCloneObjects这个函数了，你用06版重新编译，看看06版的这个函数的参数，修改试试看
电脑里面没06版了，所以不好改

single-yu

我用的就是CAD2006+VS2005，一直都用的很正常，你试试我的这个代码：
我的程序是这样的，在外部建个DWG文件作为模板，每次调用它插入到图形中，并作修改！

1.                         '开始当前文档的事务处理
   
2.                         Using trans As Transaction = curDb.TransactionManager.StartTransaction
   
3.                             '新建临时数据库来读取点之记模板
   
4.                             Dim tempDb As New Database(False, True)
   
5.                             '新建数据库来生成点之记
   
6.                             Dim db As New Database(False, True)
   
7.                             '使用多边形框来选择范围内的实体
   
8.                             Dim resSel As PromptSelectionResult = ed.SelectCrossingPolygon(ptColl)
   
9.                             Dim sSet As SelectionSet = resSel.Value
   
10.                             Dim Ids As ObjectIdCollection = New ObjectIdCollection(sSet.GetObjectIds)
    
11.                             Ids.Add(pLine.ObjectId)
    
12.                             db = curDb.Wblock(Ids, curDb.Ucsorg)
    
13. 
    
14.                             '读取点之记模板
    
15.                             Dim fileName As String = "C:\Program Files\AcadTool\测量工具箱\TP.dwg" '模板文件的位置
    
16.                             If System.IO.File.Exists(fileName) Then
    
17.                                 tempDb.ReadDwgFile(fileName, System.IO.FileShare.Read, True, Nothing)
    
18.                                 tempDb.CloseInput(True)
    
19.                                 '插入点之记模板文件到数据库
    
20.                                 db.Insert(System.IO.Path.GetFileNameWithoutExtension(fileName), tempDb, True)
    
21. 
    
22.                                 '开始点之记数据库的事务处理
    
23.                                 Using atrans As Transaction = db.TransactionManager.StartTransaction
    
24.                                     Dim bt As BlockTable = atrans.GetObject(db.BlockTableId, OpenMode.ForWrite)
    
25. 
    
26.                                     If bt.Has("TP") = False Then
    
27.                                         Return
    
28.                                     End If
    
29. 
    
30.                                     Dim block As BlockTableRecord = atrans.GetObject(bt.Item("TP"), OpenMode.ForWrite)
    
31. 
    
32.                                     '字体样式
    
33.                                     Dim tst As TextStyleTable = TryCast(atrans.GetObject(db.TextStyleTableId, OpenMode.ForWrite), TextStyleTable)
    
34. 
    
35.                                     '添加TP点点名
    
36.                                     Dim tpName As New DBText
    
37.                                     '在点之记中加入作业员
    
38.                                     Dim workmanText As New DBText
    
39.                                     '在点之记中加入检查员
    
40.                                     Dim checkmanText As New DBText
    
41.                                     '在点之记中加入说明
    
42.                                     Dim typeText As New MText
    
43. 
    
44. 
    
45.                                     tpName.TextString = "TP" & num.ToString
    
46.                                     tpName.Position = New Point3d(-30, -69, 0)
    
47.                                     tpName.Height = 4
    
48.                                     tpName.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId
    
49. 
    
50.                                     workmanText.TextString = pointMarkPalette.textboxWorkMan.Text
    
51.                                     workmanText.Position = New Point3d(-55.65, -100.32, 0)
    
52.                                     workmanText.Height = 4
    
53.                                     workmanText.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId
    
54. 
    
55.                                     checkmanText.TextString = pointMarkPalette.textboxCheckMan.Text
    
56.                                     checkmanText.Position = New Point3d(-2.86, -100.32, 0)
    
57.                                     checkmanText.Height = 4
    
58.                                     checkmanText.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId
    
59. 
    
60.                                     typeText.Contents = "1、实地砸有" & pointMarkPalette.typeCbo.Text & ",并涂有红油漆。"
    
61.                                     typeText.Location = New Point3d(-49.235, -137.553, 0)
    
62.                                     typeText.TextHeight = 4
    
63.                                     typeText.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId
    
64. 
    
65. 
    
66.                                     block.AppendEntity(tpName)
    
67.                                     block.AppendEntity(workmanText)
    
68.                                     block.AppendEntity(checkmanText)
    
69.                                     block.AppendEntity(typeText)
    
70. 
    
71.                                     atrans.AddNewlyCreatedDBObject(tpName, True)
    
72.                                     atrans.AddNewlyCreatedDBObject(workmanText, True)
    
73.                                     atrans.AddNewlyCreatedDBObject(checkmanText, True)
    
74.                                     atrans.AddNewlyCreatedDBObject(typeText, True)
    
75. 
    
76.                                     Dim blockref As BlockReference = New BlockReference(pt, bt.Item("TP"))
    
77.                                     '点之记根据比例尺缩小或者放大
    
78.                                     blockref.ScaleFactors = New Scale3d(ScaleFlector)
    
79.                                     blockref.Rotation = 0
    
80.                                     Dim btr As BlockTableRecord = atrans.GetObject(bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
    
81. 
    
82.                                     btr.AppendEntity(blockref)
    
83.                                     atrans.AddNewlyCreatedDBObject(blockref, True)
    
84.                                     atrans.Commit()
    
85.                                 End Using
    
86. 
    
87.                             End If
    
88.                             '把临时存取模板的数据库销毁
    
89.                             tempDb.Dispose()
    
90.                             '保存各个点之记
    
91.                             db.SaveAs(pointMarkPalette.saveFileName & "TP" & num.ToString & ".dwg", DwgVersion.Current)
    
92.                             '提交事务处理
    
93.                             trans.Commit()
    
94.                         End Using
    

                        '开始当前文档的事务处理<br />                         Using trans As Transaction = curDb.TransactionManager.StartTransaction<br />                             '新建临时数据库来读取点之记模板<br />                             Dim tempDb As New Database(False, True)<br />                             '新建数据库来生成点之记<br />                             Dim db As New Database(False, True)<br />                             '使用多边形框来选择范围内的实体<br />                             Dim resSel As PromptSelectionResult = ed.SelectCrossingPolygon(ptColl)<br />                             Dim sSet As SelectionSet = resSel.Value<br />                             Dim Ids As ObjectIdCollection = New ObjectIdCollection(sSet.GetObjectIds)<br />                             Ids.Add(pLine.ObjectId)<br />                             db = curDb.Wblock(Ids, curDb.Ucsorg)<br /> <br />                             '读取点之记模板<br />                             Dim fileName As String = "C:\Program Files\AcadTool\测量工具箱\TP.dwg" '模板文件的位置<br />                             If System.IO.File.Exists(fileName) Then<br />                                 tempDb.ReadDwgFile(fileName, System.IO.FileShare.Read, True, Nothing)<br />                                 tempDb.CloseInput(True)<br />                                 '插入点之记模板文件到数据库<br />                                 db.Insert(System.IO.Path.GetFileNameWithoutExtension(fileName), tempDb, True)<br /> <br />                                 '开始点之记数据库的事务处理<br />                                 Using atrans As Transaction = db.TransactionManager.StartTransaction<br />                                     Dim bt As BlockTable = atrans.GetObject(db.BlockTableId, OpenMode.ForWrite)<br /> <br />                                     If bt.Has("TP") = False Then<br />                                         Return<br />                                     End If<br /> <br />                                     Dim block As BlockTableRecord = atrans.GetObject(bt.Item("TP"), OpenMode.ForWrite)<br /> <br />                                     '字体样式<br />                                     Dim tst As TextStyleTable = TryCast(atrans.GetObject(db.TextStyleTableId, OpenMode.ForWrite), TextStyleTable)<br /> <br />                                     '添加TP点点名<br />                                     Dim tpName As New DBText<br />                                     '在点之记中加入作业员<br />                                     Dim workmanText As New DBText<br />                                     '在点之记中加入检查员<br />                                     Dim checkmanText As New DBText<br />                                     '在点之记中加入说明<br />                                     Dim typeText As New MText<br /> <br /> <br />                                     tpName.TextString = "TP" & num.ToString<br />                                     tpName.Position = New Point3d(-30, -69, 0)<br />                                     tpName.Height = 4<br />                                     tpName.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId<br /> <br />                                     workmanText.TextString = pointMarkPalette.textboxWorkMan.Text<br />                                     workmanText.Position = New Point3d(-55.65, -100.32, 0)<br />                                     workmanText.Height = 4<br />                                     workmanText.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId<br /> <br />                                     checkmanText.TextString = pointMarkPalette.textboxCheckMan.Text<br />                                     checkmanText.Position = New Point3d(-2.86, -100.32, 0)<br />                                     checkmanText.Height = 4<br />                                     checkmanText.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId<br /> <br />                                     typeText.Contents = "1、实地砸有" & pointMarkPalette.typeCbo.Text & ",并涂有红油漆。"<br />                                     typeText.Location = New Point3d(-49.235, -137.553, 0)<br />                                     typeText.TextHeight = 4<br />                                     typeText.TextStyle = atrans.GetObject(tst.Item("宋体"), OpenMode.ForWrite).ObjectId<br /> <br /> <br />                                     block.AppendEntity(tpName)<br />                                     block.AppendEntity(workmanText)<br />                                     block.AppendEntity(checkmanText)<br />                                     block.AppendEntity(typeText)<br /> <br />                                     atrans.AddNewlyCreatedDBObject(tpName, True)<br />                                     atrans.AddNewlyCreatedDBObject(workmanText, True)<br />                                     atrans.AddNewlyCreatedDBObject(checkmanText, True)<br />                                     atrans.AddNewlyCreatedDBObject(typeText, True)<br /> <br />                                     Dim blockref As BlockReference = New BlockReference(pt, bt.Item("TP"))<br />                                     '点之记根据比例尺缩小或者放大<br />                                     blockref.ScaleFactors = New Scale3d(ScaleFlector)<br />                                     blockref.Rotation = 0<br />                                     Dim btr As BlockTableRecord = atrans.GetObject(bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)<br /> <br />                                     btr.AppendEntity(blockref)<br />                                     atrans.AddNewlyCreatedDBObject(blockref, True)<br />                                     atrans.Commit()<br />                                 End Using<br /> <br />                             End If<br />                             '把临时存取模板的数据库销毁<br />                             tempDb.Dispose()<br />                             '保存各个点之记<br />                             db.SaveAs(pointMarkPalette.saveFileName & "TP" & num.ToString & ".dwg", DwgVersion.Current)<br />                             '提交事务处理<br />                             trans.Commit()<br />                         End Using<br />

虽然你用的是C#，主要体会里面的方法就行了，我一直都用这个方法！

xgr

好久没来啦，解决了，谢谢大家参与！