Hi All,
This is related to my other post found here (but I think it's a differnt problem):
http://forums.autodesk.com/t5/NET/Wblock-to-new-file-insertion-point-problem/td-p/3252602
I am using DeepCloneObjects to create a new block from existing objects (in this case a rectangle (polyline)). It seems pretty straight forward and everything seems to be working with one expection that is not evident until you create a wblock out of the newly created block.
If I use my code (see below) to create a new block (blockTableRecord) from an existing polyline, everything looks good when you actually insert it into the drawing. The insertion point appears in the correct position (selected position in code), etc... BUT... if you wblock the inserted block out to a new file, you will notice upon opening the wblocked file that the point selected as the insertion point (with the code) is not at 0,0,0 as you would expect. It seems to use the insertion point picked from the blocks original location.
If you use the same selected object and create the block manually, pick the same insertion point as you did with the code, then wblock the newly create block out to a file and open it, you will see that the insertion point is at the correct location (0,0,0).
I am either missing something important (which is probably the case) or this is a bug in the API. Please help... this is driving me nuts!
Thanks!
<CommandMethod("TESTBLOCKCREATION")> _
Public Sub TESTBLOCKCREATION()
'' Get the current document and database
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database
Dim acEd As Editor = DocumentManager.MdiActiveDocument.Editor
'' Start a transaction
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
Try
Dim acPrmpt As New EditorInput.PromptSelectionOptions
acPrmpt.AllowDuplicates = False
acPrmpt.SinglePickInSpace = True
acPrmpt.SingleOnly = True
acPrmpt.AllowSubSelections = False
acPrmpt.RejectObjectsFromNonCurrentSpace = True
acPrmpt.MessageForAdding = (vbLf & "Select polyline:")
Dim acTypdVal(0) As TypedValue
acTypdVal(0) = New DatabaseServices.TypedValue(0, "LWPOLYLINE")
Dim myFilterPl As New EditorInput.SelectionFilter(acTypdVal)
Dim acPrmpt_res As PromptSelectionResult
acPrmpt_res = acEd.GetSelection(acPrmpt, myFilterPl)
'' If selection is ok, then continue
If acPrmpt_res.Status = PromptStatus.OK Then
Dim objIds As ObjectId() = acPrmpt_res.Value.GetObjectIds()
If objIds.Length = 0 Then
Return
End If
Dim ppo As New PromptPointOptions(vbLf & "Pick block insertion point: ")
Dim ppo_res As PromptPointResult = acEd.GetPoint(ppo)
If ppo_res.Status <> PromptStatus.OK Then
Return
End If
Dim insPnt As Point3d = ppo_res.Value
Dim acBlkTbl As BlockTable = DirectCast(acCurDb.BlockTableId.GetObject(OpenMode.ForWrite), BlockTable)
Dim blkName As String = "TESTBLOCK"
Dim objIdColl As New ObjectIdCollection()
For Each objId As ObjectId In objIds
objIdColl.Add(objId)
Next
Dim newBtr As New BlockTableRecord()
acBlkTbl.Add(newBtr)
newBtr.Name = blkName
newBtr.Origin = insPnt
newBtr.BlockScaling = BlockScaling.Uniform
newBtr.Explodable = True
acTrans.AddNewlyCreatedDBObject(newBtr, True)
Dim map As New IdMapping()
acCurDb.DeepCloneObjects(objIdColl, newBtr.ObjectId, map, False)
Dim coll As New ObjectIdCollection()
For Each pair As IdPair In map
If pair.IsPrimary Then
Dim Ent As Entity = DirectCast(acTrans.GetObject(pair.Value, OpenMode.ForWrite), Entity)
If Ent IsNot Nothing Then
If (TypeOf (Ent) Is AttributeDefinition) Then
Dim attDef As AttributeDefinition = DirectCast(Ent, AttributeDefinition)
attDef.LockPositionInBlock = True
End If
coll.Add(Ent.ObjectId)
End If
End If
Next
newBtr.AssumeOwnershipOf(coll)
End If
Catch ex As Autodesk.AutoCAD.Runtime.Exception
MsgBox("An error has occured. Please contact your system administrator." & vbCr & _
ex.Message & vbCr & ex.StackTrace)
End Try
acTrans.Commit()
End Using
End Sub
