[求助]标注样式复制的问题

lwd899

我想在不打开图纸A的情况下把图纸A中的标注样式“a”复制到图纸B中，请问如何做？

雪山飞狐_lzh

下面的代码以前贴过的，不过感觉太麻烦了，应该有简单的办法的：）

3.         [CommandMethod("t13")]
4.         public static void Test13()
5.         {
6.             Document doc = Application.DocumentManager.MdiActiveDocument;
7.             Database dbDesc = doc.Database;
8.             Database dbSouce = new Database(false, true);
9.             dbSouce.ReadDwgFile("e:\\dimstyles.dwg", FileShare.Read, true, null);
10.             using (Transaction trSouce = dbSouce.TransactionManager.StartTransaction())
11.             {
12.                 BlockTable btSouce = trSouce.GetObject(dbSouce.BlockTableId, OpenMode.ForRead) as BlockTable;
13.                 TextStyleTable tstSouce = trSouce.GetObject(dbSouce.TextStyleTableId, OpenMode.ForRead) as TextStyleTable;
14.                 LinetypeTable ltSouce = trSouce.GetObject(dbSouce.LinetypeTableId, OpenMode.ForRead) as LinetypeTable;
15.                 DimStyleTable dstSouce = trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead) as DimStyleTable;
16.                 DimStyleTableRecord dstrSouce = trSouce.GetObject(dstSouce["MyDimStyle"], OpenMode.ForRead) as DimStyleTableRecord;
17.                 using (Transaction trDesc = dbDesc.TransactionManager.StartTransaction())
18.                 {
19.                     BlockTable btDesc = trDesc.GetObject(dbDesc.BlockTableId, OpenMode.ForRead) as BlockTable;
20.                     TextStyleTable tstDesc = trDesc.GetObject(dbDesc.TextStyleTableId, OpenMode.ForWrite) as TextStyleTable;
21.                     LinetypeTable ltDesc = trDesc.GetObject(dbDesc.LinetypeTableId, OpenMode.ForWrite) as LinetypeTable;
22.                     DimStyleTable dstDesc = trDesc.GetObject(dbDesc.DimStyleTableId, OpenMode.ForWrite) as DimStyleTable;
23.                     DimStyleTableRecord dstrDesc = new DimStyleTableRecord();
24.                     dstrDesc.CopyFrom(dstrSouce);
25.                     dstrDesc.Dimblk = GetBtrForm(dstrSouce.Dimblk, btSouce, btDesc);
26.                     dstrDesc.Dimblk1 = GetBtrForm(dstrSouce.Dimblk1, btSouce, btDesc);
27.                     dstrDesc.Dimblk2 = GetBtrForm(dstrSouce.Dimblk2, btSouce, btDesc);
28.                     dstrDesc.Dimldrblk = GetBtrForm(dstrSouce.Dimldrblk, btSouce, btDesc);
29.                     dstrDesc.Dimtxsty = GetTstrForm(trDesc, dstrSouce.Dimtxsty, tstSouce, tstDesc);
30.                     dstrDesc.Dimltex1 = GetLtrForm(trDesc, dstrSouce.Dimltex1, ltSouce, ltDesc);
31.                     dstrDesc.Dimltex2 = GetLtrForm(trDesc, dstrSouce.Dimltex2, ltSouce, ltDesc);
32.                     dstDesc.Add(dstrDesc);
33.                     trDesc.AddNewlyCreatedDBObject(dstrDesc, true);
34.                     trDesc.Commit();
35.                 }
36.                 trSouce.Commit();
37.                
38.             }
39.         }
40.         //在数据库间复制文字样式
41.         public static ObjectId GetTstrForm(Transaction tr, ObjectId rid, TextStyleTable tstSouce, TextStyleTable tstDesc)
42.         {
43.             if (rid != ObjectId.Null)
44.             {
45.                 TextStyleTableRecord tstrSouce = (TextStyleTableRecord)rid.GetObject(OpenMode.ForRead);
46.                 ObjectId idRes = GetRecordId(tstDesc, tstrSouce.Name);
47.                 if (idRes == ObjectId.Null)
48.                 {
49.                     TextStyleTableRecord tstrDesc = new TextStyleTableRecord();
50.                     tstrDesc.CopyFrom(tstrSouce);
51.                     idRes = tstDesc.Add(tstrDesc);
52.                     tr.AddNewlyCreatedDBObject(tstrDesc, true);
53.                 }
54.                 return idRes;
55.             }
56.             return ObjectId.Null;
57.         }
58.         //在数据库间复制线型
59.         public static ObjectId GetLtrForm(Transaction tr, ObjectId rid, LinetypeTable ltSouce, LinetypeTable ltDesc)
60.         {
61.             if (rid != ObjectId.Null)
62.             {
63.                 LinetypeTableRecord ltrSouce = (LinetypeTableRecord)rid.GetObject(OpenMode.ForRead);
64.                 ObjectId idRes = GetRecordId(ltDesc, ltrSouce.Name);
65.                 if (idRes == ObjectId.Null)
66.                 {
67.                     LinetypeTableRecord ltrDesc = new LinetypeTableRecord();
68.                     ltrDesc.CopyFrom(ltrSouce);
69.                     idRes = ltDesc.Add(ltrDesc);
70.                     tr.AddNewlyCreatedDBObject(ltrDesc, true);
71.                 }
72.                 return idRes;
73.             }
74.             return ObjectId.Null;
75.         }
76.         //在数据库间复制块定义
77.         public static ObjectId GetBtrForm(ObjectId rid, BlockTable btSouce, BlockTable btDesc)
78.         {
79.             if (rid != ObjectId.Null)
80.             {
81.                 BlockTableRecord btrSouce = (BlockTableRecord)rid.GetObject(OpenMode.ForRead);
82.                 ObjectId idRes = GetRecordId(btDesc, btrSouce.Name);
83.                 if (idRes == ObjectId.Null)
84.                 {
85.                     ObjectIdCollection ids = new ObjectIdCollection();
86.                     ids.Add(rid);
87.                     btSouce.Database.Wblock(
88.                         btDesc.Database,
89.                         ids,
90.                         new Point3d(),
91.                         DuplicateRecordCloning.Replace
92.                         );
93.                     idRes = GetRecordId(btDesc, btrSouce.Name);
94.                 }
95.                 return idRes;
96.             }
97.             return ObjectId.Null;
98.         }
99.         //获取符号表记录名
100.         public static ObjectId GetRecordId(SymbolTable st, string key)
101.         {
102.             if (st.Has(key))
103.             {
104.                 ObjectId idres = st[key];
105.                 if (!idres.IsErased)
106.                     return idres;
107.                 foreach (ObjectId id in st)
108.                 {
109.                     if (!id.IsErased)
110.                     {
111.                         SymbolTableRecord str =
112.                             (SymbolTableRecord)id.GetObject(OpenMode.ForRead);
113.                         if (str.Name == key)
114.                             return id;
115.                     }
116.                 }
117.                     return st[key];
118.             }
119.             return ObjectId.Null;
120.         }

        [CommandMethod("t13")]         public static void Test13()         {             Document doc = Application.DocumentManager.MdiActiveDocument;             Database dbDesc = doc.Database;             Database dbSouce = new Database(false, true);             dbSouce.ReadDwgFile("e:\\dimstyles.dwg", FileShare.Read, true, null);             using (Transaction trSouce = dbSouce.TransactionManager.StartTransaction())             {                 BlockTable btSouce = trSouce.GetObject(dbSouce.BlockTableId, OpenMode.ForRead) as BlockTable;                 TextStyleTable tstSouce = trSouce.GetObject(dbSouce.TextStyleTableId, OpenMode.ForRead) as TextStyleTable;                 LinetypeTable ltSouce = trSouce.GetObject(dbSouce.LinetypeTableId, OpenMode.ForRead) as LinetypeTable;                 DimStyleTable dstSouce = trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead) as DimStyleTable;                 DimStyleTableRecord dstrSouce = trSouce.GetObject(dstSouce["MyDimStyle"], OpenMode.ForRead) as DimStyleTableRecord;                 using (Transaction trDesc = dbDesc.TransactionManager.StartTransaction())                 {                     BlockTable btDesc = trDesc.GetObject(dbDesc.BlockTableId, OpenMode.ForRead) as BlockTable;                     TextStyleTable tstDesc = trDesc.GetObject(dbDesc.TextStyleTableId, OpenMode.ForWrite) as TextStyleTable;                     LinetypeTable ltDesc = trDesc.GetObject(dbDesc.LinetypeTableId, OpenMode.ForWrite) as LinetypeTable;                     DimStyleTable dstDesc = trDesc.GetObject(dbDesc.DimStyleTableId, OpenMode.ForWrite) as DimStyleTable;                     DimStyleTableRecord dstrDesc = new DimStyleTableRecord();                     dstrDesc.CopyFrom(dstrSouce);                     dstrDesc.Dimblk = GetBtrForm(dstrSouce.Dimblk, btSouce, btDesc);                     dstrDesc.Dimblk1 = GetBtrForm(dstrSouce.Dimblk1, btSouce, btDesc);                     dstrDesc.Dimblk2 = GetBtrForm(dstrSouce.Dimblk2, btSouce, btDesc);                     dstrDesc.Dimldrblk = GetBtrForm(dstrSouce.Dimldrblk, btSouce, btDesc);                     dstrDesc.Dimtxsty = GetTstrForm(trDesc, dstrSouce.Dimtxsty, tstSouce, tstDesc);                     dstrDesc.Dimltex1 = GetLtrForm(trDesc, dstrSouce.Dimltex1, ltSouce, ltDesc);                     dstrDesc.Dimltex2 = GetLtrForm(trDesc, dstrSouce.Dimltex2, ltSouce, ltDesc);                     dstDesc.Add(dstrDesc);                     trDesc.AddNewlyCreatedDBObject(dstrDesc, true);                     trDesc.Commit();                 }                 trSouce.Commit();                             }         }         //在数据库间复制文字样式         public static ObjectId GetTstrForm(Transaction tr, ObjectId rid, TextStyleTable tstSouce, TextStyleTable tstDesc)         {             if (rid != ObjectId.Null)             {                 TextStyleTableRecord tstrSouce = (TextStyleTableRecord)rid.GetObject(OpenMode.ForRead);                 ObjectId idRes = GetRecordId(tstDesc, tstrSouce.Name);                 if (idRes == ObjectId.Null)                 {                     TextStyleTableRecord tstrDesc = new TextStyleTableRecord();                     tstrDesc.CopyFrom(tstrSouce);                     idRes = tstDesc.Add(tstrDesc);                     tr.AddNewlyCreatedDBObject(tstrDesc, true);                 }                 return idRes;             }             return ObjectId.Null;         }         //在数据库间复制线型         public static ObjectId GetLtrForm(Transaction tr, ObjectId rid, LinetypeTable ltSouce, LinetypeTable ltDesc)         {             if (rid != ObjectId.Null)             {                 LinetypeTableRecord ltrSouce = (LinetypeTableRecord)rid.GetObject(OpenMode.ForRead);                 ObjectId idRes = GetRecordId(ltDesc, ltrSouce.Name);                 if (idRes == ObjectId.Null)                 {                     LinetypeTableRecord ltrDesc = new LinetypeTableRecord();                     ltrDesc.CopyFrom(ltrSouce);                     idRes = ltDesc.Add(ltrDesc);                     tr.AddNewlyCreatedDBObject(ltrDesc, true);                 }                 return idRes;             }             return ObjectId.Null;         }         //在数据库间复制块定义         public static ObjectId GetBtrForm(ObjectId rid, BlockTable btSouce, BlockTable btDesc)         {             if (rid != ObjectId.Null)             {                 BlockTableRecord btrSouce = (BlockTableRecord)rid.GetObject(OpenMode.ForRead);                 ObjectId idRes = GetRecordId(btDesc, btrSouce.Name);                 if (idRes == ObjectId.Null)                 {                     ObjectIdCollection ids = new ObjectIdCollection();                     ids.Add(rid);                     btSouce.Database.Wblock(                         btDesc.Database,                         ids,                         new Point3d(),                         DuplicateRecordCloning.Replace                         );                     idRes = GetRecordId(btDesc, btrSouce.Name);                 }                 return idRes;             }             return ObjectId.Null;         }         //获取符号表记录名         public static ObjectId GetRecordId(SymbolTable st, string key)         {             if (st.Has(key))             {                 ObjectId idres = st[key];                 if (!idres.IsErased)                     return idres;                 foreach (ObjectId id in st)                 {                     if (!id.IsErased)                     {                         SymbolTableRecord str =                             (SymbolTableRecord)id.GetObject(OpenMode.ForRead);                         if (str.Name == key)                             return id;                     }                 }                     return st[key];             }             return ObjectId.Null;         }

lwd899

由于我最近一直忙，没有时间来论坛学习，今天进来一看，没有想到版主这么早就回复了，很是感动，只是版主，我用的vb.net，c#不会啊，您有vb.net的代码吗？

lwd899

我改成了vb.net的，但是还是有问题，请帮忙看看：

3. 'VB.NET
4. Imports System.IO
5. 'CAD
6. Imports Autodesk.AutoCAD.ApplicationServices
7. Imports Autodesk.AutoCAD.DatabaseServices
8. Imports Autodesk.AutoCAD.EditorInput
9. Imports Autodesk.AutoCAD.Geometry
10. Imports Autodesk.AutoCAD.Runtime
11. Public Class CopyCls
12.     <CommandMethod("netcopy")> Public Shared Sub Test13()
13.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
14.         Dim dbDesc As Database = doc.Database
15.         Dim dbSouce As New Database(False, True)
16.         dbSouce.ReadDwgFile("C:\1.dwg", FileShare.Read, True, Nothing)
17.         Using trSouce As Transaction = dbSouce.TransactionManager.StartTransaction()
18.             Dim btSouce As BlockTable = TryCast(trSouce.GetObject(dbSouce.BlockTableId, OpenMode.ForRead), BlockTable)
19.             Dim tstSouce As TextStyleTable = TryCast(trSouce.GetObject(dbSouce.TextStyleTableId, OpenMode.ForRead), TextStyleTable)
20.             Dim ltSouce As LinetypeTable = TryCast(trSouce.GetObject(dbSouce.LinetypeTableId, OpenMode.ForRead), LinetypeTable)
21.             Dim dstSouce As DimStyleTable = TryCast(trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead), DimStyleTable)
22.             Dim dstrSouce As DimStyleTableRecord = TryCast(trSouce.GetObject(dstSouce("1"), OpenMode.ForRead), DimStyleTableRecord)
23.             Using trDesc As Transaction = dbDesc.TransactionManager.StartTransaction()            '在这里就出错了
24.                 Dim btDesc As BlockTable = TryCast(trDesc.GetObject(dbDesc.BlockTableId, OpenMode.ForRead), BlockTable)
25.                 Dim tstDesc As TextStyleTable = TryCast(trDesc.GetObject(dbDesc.TextStyleTableId, OpenMode.ForWrite), TextStyleTable)
26.                 Dim ltDesc As LinetypeTable = TryCast(trDesc.GetObject(dbDesc.LinetypeTableId, OpenMode.ForWrite), LinetypeTable)
27.                 Dim dstDesc As DimStyleTable = TryCast(trDesc.GetObject(dbDesc.DimStyleTableId, OpenMode.ForWrite), DimStyleTable)
28.                 Dim dstrDesc As New DimStyleTableRecord()
29.                 dstrDesc.CopyFrom(dstrSouce)
30.                 dstrDesc.Dimblk = GetBtrForm(dstrSouce.Dimblk, btSouce, btDesc)
31.                 dstrDesc.Dimblk1 = GetBtrForm(dstrSouce.Dimblk1, btSouce, btDesc)
32.                 dstrDesc.Dimblk2 = GetBtrForm(dstrSouce.Dimblk2, btSouce, btDesc)
33.                 dstrDesc.Dimldrblk = GetBtrForm(dstrSouce.Dimldrblk, btSouce, btDesc)
34.                 dstrDesc.Dimtxsty = GetTstrForm(trDesc, dstrSouce.Dimtxsty, tstSouce, tstDesc)
35.                 dstrDesc.Dimltex1 = GetLtrForm(trDesc, dstrSouce.Dimltex1, ltSouce, ltDesc)
36.                 dstrDesc.Dimltex2 = GetLtrForm(trDesc, dstrSouce.Dimltex2, ltSouce, ltDesc)
37.                 dstDesc.Add(dstrDesc)
38.                 trDesc.AddNewlyCreatedDBObject(dstrDesc, True)
39.                 trDesc.Commit()
40.             End Using
41.             trSouce.Commit()
42.         End Using
43.     End Sub
44.     Public Shared Function GetTstrForm(ByVal tr As Transaction, ByVal rid As ObjectId, ByVal tstSouce As TextStyleTable, ByVal tstDesc As TextStyleTable) As ObjectId
45.         If rid <> ObjectId.Null Then
46.             Dim tstrSouce As TextStyleTableRecord = DirectCast(rid.GetObject(OpenMode.ForRead), TextStyleTableRecord)
47.             Dim idRes As ObjectId = GetRecordId(tstDesc, tstrSouce.Name)
48.             If idRes = ObjectId.Null Then
49.                 Dim tstrDesc As New TextStyleTableRecord()
50.                 tstrDesc.CopyFrom(tstrSouce)
51.                 idRes = tstDesc.Add(tstrDesc)
52.                 tr.AddNewlyCreatedDBObject(tstrDesc, True)
53.             End If
54.             Return idRes
55.         End If
56.         Return ObjectId.Null
57.     End Function
58.     Public Shared Function GetLtrForm(ByVal tr As Transaction, ByVal rid As ObjectId, ByVal ltSouce As LinetypeTable, ByVal ltDesc As LinetypeTable) As ObjectId
59.         If rid <> ObjectId.Null Then
60.             Dim ltrSouce As LinetypeTableRecord = DirectCast(rid.GetObject(OpenMode.ForRead), LinetypeTableRecord)
61.             Dim idRes As ObjectId = GetRecordId(ltDesc, ltrSouce.Name)
62.             If idRes = ObjectId.Null Then
63.                 Dim ltrDesc As New LinetypeTableRecord()
64.                 ltrDesc.CopyFrom(ltrSouce)
65.                 idRes = ltDesc.Add(ltrDesc)
66.                 tr.AddNewlyCreatedDBObject(ltrDesc, True)
67.             End If
68.             Return idRes
69.         End If
70.         Return ObjectId.Null
71.     End Function
72.     Public Shared Function GetBtrForm(ByVal rid As ObjectId, ByVal btSouce As BlockTable, ByVal btDesc As BlockTable) As ObjectId
73.         If rid <> ObjectId.Null Then
74.             Dim btrSouce As BlockTableRecord = DirectCast(rid.GetObject(OpenMode.ForRead), BlockTableRecord)
75.             Dim idRes As ObjectId = GetRecordId(btDesc, btrSouce.Name)
76.             If idRes = ObjectId.Null Then
77.                 Dim ids As New ObjectIdCollection()
78.                 ids.Add(rid)
79.                 btSouce.Database.Wblock(btDesc.Database, ids, New Point3d(), DuplicateRecordCloning.Replace)
80.                 idRes = GetRecordId(btDesc, btrSouce.Name)
81.             End If
82.             Return idRes
83.         End If
84.         Return ObjectId.Null
85.     End Function
86.     Public Shared Function GetRecordId(ByVal st As SymbolTable, ByVal key As String) As ObjectId
87.         If st.Has(key) Then
88.             Dim idres As ObjectId = st(key)
89.             If Not idres.IsErased Then
90.                 Return idres
91.             End If
92.             For Each id As ObjectId In st
93.                 If Not id.IsErased Then
94.                     Dim str As SymbolTableRecord = DirectCast(id.GetObject(OpenMode.ForRead), SymbolTableRecord)
95.                     If str.Name = key Then
96.                         Return id
97.                     End If
98.                 End If
99.             Next
100.             Return st(key)
101.         End If
102.         Return ObjectId.Null
103.     End Function
104. End Class

'VB.NET Imports System.IO 'CAD Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Public Class CopyCls     <CommandMethod("netcopy")> Public Shared Sub Test13()         Dim doc As Document = Application.DocumentManager.MdiActiveDocument         Dim dbDesc As Database = doc.Database         Dim dbSouce As New Database(False, True)         dbSouce.ReadDwgFile("C:\1.dwg", FileShare.Read, True, Nothing)         Using trSouce As Transaction = dbSouce.TransactionManager.StartTransaction()             Dim btSouce As BlockTable = TryCast(trSouce.GetObject(dbSouce.BlockTableId, OpenMode.ForRead), BlockTable)             Dim tstSouce As TextStyleTable = TryCast(trSouce.GetObject(dbSouce.TextStyleTableId, OpenMode.ForRead), TextStyleTable)             Dim ltSouce As LinetypeTable = TryCast(trSouce.GetObject(dbSouce.LinetypeTableId, OpenMode.ForRead), LinetypeTable)             Dim dstSouce As DimStyleTable = TryCast(trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead), DimStyleTable)             Dim dstrSouce As DimStyleTableRecord = TryCast(trSouce.GetObject(dstSouce("1"), OpenMode.ForRead), DimStyleTableRecord)             Using trDesc As Transaction = dbDesc.TransactionManager.StartTransaction()            '在这里就出错了                 Dim btDesc As BlockTable = TryCast(trDesc.GetObject(dbDesc.BlockTableId, OpenMode.ForRead), BlockTable)                 Dim tstDesc As TextStyleTable = TryCast(trDesc.GetObject(dbDesc.TextStyleTableId, OpenMode.ForWrite), TextStyleTable)                 Dim ltDesc As LinetypeTable = TryCast(trDesc.GetObject(dbDesc.LinetypeTableId, OpenMode.ForWrite), LinetypeTable)                 Dim dstDesc As DimStyleTable = TryCast(trDesc.GetObject(dbDesc.DimStyleTableId, OpenMode.ForWrite), DimStyleTable)                 Dim dstrDesc As New DimStyleTableRecord()                 dstrDesc.CopyFrom(dstrSouce)                 dstrDesc.Dimblk = GetBtrForm(dstrSouce.Dimblk, btSouce, btDesc)                 dstrDesc.Dimblk1 = GetBtrForm(dstrSouce.Dimblk1, btSouce, btDesc)                 dstrDesc.Dimblk2 = GetBtrForm(dstrSouce.Dimblk2, btSouce, btDesc)                 dstrDesc.Dimldrblk = GetBtrForm(dstrSouce.Dimldrblk, btSouce, btDesc)                 dstrDesc.Dimtxsty = GetTstrForm(trDesc, dstrSouce.Dimtxsty, tstSouce, tstDesc)                 dstrDesc.Dimltex1 = GetLtrForm(trDesc, dstrSouce.Dimltex1, ltSouce, ltDesc)                 dstrDesc.Dimltex2 = GetLtrForm(trDesc, dstrSouce.Dimltex2, ltSouce, ltDesc)                 dstDesc.Add(dstrDesc)                 trDesc.AddNewlyCreatedDBObject(dstrDesc, True)                 trDesc.Commit()             End Using             trSouce.Commit()         End Using     End Sub     Public Shared Function GetTstrForm(ByVal tr As Transaction, ByVal rid As ObjectId, ByVal tstSouce As TextStyleTable, ByVal tstDesc As TextStyleTable) As ObjectId         If rid <> ObjectId.Null Then             Dim tstrSouce As TextStyleTableRecord = DirectCast(rid.GetObject(OpenMode.ForRead), TextStyleTableRecord)             Dim idRes As ObjectId = GetRecordId(tstDesc, tstrSouce.Name)             If idRes = ObjectId.Null Then                 Dim tstrDesc As New TextStyleTableRecord()                 tstrDesc.CopyFrom(tstrSouce)                 idRes = tstDesc.Add(tstrDesc)                 tr.AddNewlyCreatedDBObject(tstrDesc, True)             End If             Return idRes         End If         Return ObjectId.Null     End Function     Public Shared Function GetLtrForm(ByVal tr As Transaction, ByVal rid As ObjectId, ByVal ltSouce As LinetypeTable, ByVal ltDesc As LinetypeTable) As ObjectId         If rid <> ObjectId.Null Then             Dim ltrSouce As LinetypeTableRecord = DirectCast(rid.GetObject(OpenMode.ForRead), LinetypeTableRecord)             Dim idRes As ObjectId = GetRecordId(ltDesc, ltrSouce.Name)             If idRes = ObjectId.Null Then                 Dim ltrDesc As New LinetypeTableRecord()                 ltrDesc.CopyFrom(ltrSouce)                 idRes = ltDesc.Add(ltrDesc)                 tr.AddNewlyCreatedDBObject(ltrDesc, True)             End If             Return idRes         End If         Return ObjectId.Null     End Function     Public Shared Function GetBtrForm(ByVal rid As ObjectId, ByVal btSouce As BlockTable, ByVal btDesc As BlockTable) As ObjectId         If rid <> ObjectId.Null Then             Dim btrSouce As BlockTableRecord = DirectCast(rid.GetObject(OpenMode.ForRead), BlockTableRecord)             Dim idRes As ObjectId = GetRecordId(btDesc, btrSouce.Name)             If idRes = ObjectId.Null Then                 Dim ids As New ObjectIdCollection()                 ids.Add(rid)                 btSouce.Database.Wblock(btDesc.Database, ids, New Point3d(), DuplicateRecordCloning.Replace)                 idRes = GetRecordId(btDesc, btrSouce.Name)             End If             Return idRes         End If         Return ObjectId.Null     End Function     Public Shared Function GetRecordId(ByVal st As SymbolTable, ByVal key As String) As ObjectId         If st.Has(key) Then             Dim idres As ObjectId = st(key)             If Not idres.IsErased Then                 Return idres             End If             For Each id As ObjectId In st                 If Not id.IsErased Then                     Dim str As SymbolTableRecord = DirectCast(id.GetObject(OpenMode.ForRead), SymbolTableRecord)                     If str.Name = key Then                         Return id                     End If                 End If             Next             Return st(key)         End If         Return ObjectId.Null     End Function End Class

雪山飞狐_lzh

似乎不要那么复杂，呵呵
看来以前是想多了：）

3.         [CommandMethod("t13")]
4.         public static void Test13()
5.         {
6.             Document doc = Application.DocumentManager.MdiActiveDocument;
7.             Database dbDesc = doc.Database;
8.             Database dbSouce = new Database(false, true);
9.             dbSouce.ReadDwgFile("e:\\dimstyles.dwg", FileShare.Read, true, null);
10.             using (Transaction trSouce = dbSouce.TransactionManager.StartTransaction())
11.             {
12.                 DimStyleTable dstSouce = trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead) as DimStyleTable;
13.                 dbSouce.WblockCloneObjects
14.                 (
15.                     new ObjectIdCollection { dstSouce["MyDimStyle"] },
16.                     dbDesc.DimStyleTableId,
17.                     new IdMapping(),
18.                     DuplicateRecordCloning.UnmangleName,
19.                     false
20.                 );
21.             }
22.         }

        [CommandMethod("t13")]         public static void Test13()         {             Document doc = Application.DocumentManager.MdiActiveDocument;             Database dbDesc = doc.Database;             Database dbSouce = new Database(false, true);             dbSouce.ReadDwgFile("e:\\dimstyles.dwg", FileShare.Read, true, null);             using (Transaction trSouce = dbSouce.TransactionManager.StartTransaction())             {                 DimStyleTable dstSouce = trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead) as DimStyleTable;                 dbSouce.WblockCloneObjects                 (                     new ObjectIdCollection { dstSouce["MyDimStyle"] },                     dbDesc.DimStyleTableId,                     new IdMapping(),                     DuplicateRecordCloning.UnmangleName,                     false                 );             }         }

lwd899

改成了vb.net的代码（还不完善，请大家自己改改），供需要的人学习，感谢飞狐大哥，感谢Fneix群友：

<CommandMethod("t13")> Public Shared Sub Test13()
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim dbDesc As Database = doc.Database
        Dim dbSouce As New Database(False, True)
        dbSouce.ReadDwgFile("C:\1.dwg", FileShare.Read, True, Nothing)
        Using trSouce As Transaction = dbSouce.TransactionManager.StartTransaction()
            Dim dstSouce As DimStyleTable = TryCast(trSouce.GetObject(dbSouce.DimStyleTableId, OpenMode.ForRead), DimStyleTable)
            Dim newids As New ObjectIdCollection
            Dim iffind As Boolean = False
            For Each id As ObjectId In dstSouce
                Dim dstSouceRecord As DimStyleTableRecord = trSouce.GetObject(id, OpenMode.ForRead)
                If dstSouceRecord.Name = "100" Then
                    iffind = True
                    newids.Add(id)
                    Exit For
                End If
            Next
            If iffind = True Then
                dbSouce.WblockCloneObjects(newids, dbDesc.DimStyleTableId, New IdMapping(), DuplicateRecordCloning.UnmangleName, False)
            Else
                MsgBox("没有100")
            End If
        End Using
    End Sub