.NET
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

HOW TO COPY A LAYOUT FROM ANOTHER DRAWING?

1 REPLY 1
Reply
Message 1 of 2
dan.popescu
475 Views, 1 Reply

HOW TO COPY A LAYOUT FROM ANOTHER DRAWING?

I want to transfer a layout from an existing drawing.

But i have an error:

epermanentlyerased

 

fails at:

"

DB_template.WblockCloneObjects(Id_colection, Database1.LayoutDictionaryId,

New IdMapping(), DuplicateRecordCloning.Replace, False)

"

 

I read about wblockclone in this forum but I couldn't get it to work.

Can somebody help me?

 

 

PrivateSub test() 

TryDim Current_drawing AsDocument = Application.DocumentManager.MdiActiveDocument

 

Dim Drawing_Template_location AsString= "c:\drawing_template.dwg" 

Dim DB_template AsNewDatabase

 

Dim Numele_template_layout AsString= "Template_layout" 

Dim Id_Layout_t AsObjectId

 

Dim Id1 AsObjectId

 

Using Lock1 AsDocumentLock = Current_drawing.LockDocument

 

Dim Database1 AsDatabase = Current_drawing.Database

 

Dim TransManag1 AsAutodesk.AutoCAD.DatabaseServices.TransactionManager = Database1.TransactionManager

 

Using Trans1 AsTransaction = Database1.TransactionManager.StartTransaction

 

Using Trans2 AsTransaction = DB_template.TransactionManager.StartTransaction

DB_template.ReadDwgFile(Drawing_Template_location, FileOpenMode.OpenForReadAndAllShare,True, "")

Id1 = DB_template.LayoutDictionaryId

Dim Layoutdict As DBDictionary = Trans2.GetObject(Id1, OpenMode.ForRead, False, False)

 

ForEach entry As DBDictionaryEntry InLayoutdict

 

If entry.Key = Numele_template_layout Then

Id_Layout_t = entry.Value

ExitForEndIfNextIf Id_Layout_t <> ObjectId.Null Then

Dim Id_colection AsNewObjectIdCollection

Id_colection.Add(Id_Layout_t)

DB_template.WblockCloneObjects(Id_colection, Database1.LayoutDictionaryId,

New IdMapping(), DuplicateRecordCloning.Replace, False)

Trans1.Commit()

EndIf

EndUsing

EndUsing

EndUsing 

Catch ex AsException

MsgBox(ex.Message)

EndTry

EndSub

1 REPLY 1
Message 2 of 2
jeff
in reply to: dan.popescu

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk DevCon in Munich May 28-29th


Autodesk Design & Make Report

”Boost