Topic: Wblockclone

[quamper]

I'm trying to do something similar to what MickD was asking in this thread http://www.theswamp.org/index.php?topic=10741.0

I work in VB.Net but I think I followed along with the general idea of it, as I was pretty much on that track anyways. However that code is copying one item at a time using getentity? I was able to get it to create a file with a single object using getentity and that worked fine. But can I do this with a selection set instead of one item at a time?

It will create the dwg for me but when I open it there is nothing in it. I'm sure I'm fouled up in my logic somewhere.

Code: [Select]

Dim myEd As Editor
Dim myPSR As PromptSelectionResult
Dim mySS As SelectionSet
Dim NewDB As Database
Dim NewTransMan As DatabaseServices.TransactionManager
Dim NewTrans As Transaction
Dim NewBT As BlockTable
Dim NewBTR As BlockTableRecord

NewDB = New Database(True, True)
NewTransMan = NewDB.TransactionManager
NewTrans = NewTransMan.StartTransaction
NewBT = NewDB.BlockTableId.GetObject(OpenMode.ForWrite)
NewBTR = NewBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)

myEd = Application.DocumentManager.MdiActiveDocument.Editor
myPSR = myEd.GetSelection       
mySS = myPSR.Value
myObjIds = New ObjectIdCollection(mySS.GetObjectIds)
NewDB.WblockCloneObjects(myObjIds., NewBT.ObjectId, myMap, DuplicateRecordCloning.Replace, False)
NewTrans.Commit()
NewDB.SaveAs("c:\testing\test.dwg", DwgVersion.AC1015)

[MickD]

is this a typo??

-> NewDB.WblockCloneObjects(myObjIds., NewBT.ObjectId, myMap, DuplicateRecordCloning.Replace, False) <-- note '.' at end of myObjIds


other than that you may have to iterate the ss and add each item at a time, that's what would be happening anyway if WblockCloneObjects worked as expected.

[quamper]

Yeah that was just a typo.

I found my problem was I was using NewBT.ObjectId instead of NewBTR.ObjectId in Wblockcloneobjects.

Not sure why it wasn't erroring on that.. but it's working now!

[Kerry]

quamper,
did you determine the error when you stepped through the code and investigated the value of variables ?