Dia 1 - CAD College

Public Function InsertBlock(ByVal DatabaseIn As Database, _
ByVal BTRToAddTo As String,ByVal InsPt As Geometry.Point3d, _
ByVal BlockName As String,ByVal XScale As Double,ByVal YScale As Double,_
ByVal ZScale As Double) As DatabaseServices.ObjectId
Using myTrans As Transaction=DatabaseIn.TransactionManager.StartTransaction
Dim myBlockTable As BlockTable= _
DatabaseIn.BlockTableId.GetObject(OpenMode.ForRead)
If myBlockTable.Has(BlockName) = False Then
Return Nothing
1
End If
If myBlockTable.Has(BTRToAddTo) = False Then
Return Nothing
End If
Dim myBlockDef As BlockTableRecord = _
myBlockTable(BlockName).GetObject(OpenMode.ForRead)
Dim myBlockTableRecord As BlockTableRecord = _
myBlockTable(BTRToAddTo).GetObject(OpenMode.ForWrite)
Dim myBlockRef As New BlockReference(InsPt, myBlockDef.Id)
myBlockRef.ScaleFactors = New Geometry.Scale3d(XScale, YScale, ZScale)
myBlockTableRecord.AppendEntity(myBlockRef)
myTrans.AddNewlyCreatedDBObject(myBlockRef, True)
Dim myAttColl As DatabaseServices.AttributeCollection = _
myBlockRef.AttributeCollection
For Each myEntID As ObjectId In myBlockDef
Dim myEnt As Entity = myEntID.GetObject(OpenMode.ForRead)
If TypeOf myEnt Is DatabaseServices.AttributeDefinition Then
Dim myAttDef As DatabaseServices.AttributeDefinition = myEnt
Dim myAttRef As New DatabaseServices.AttributeReference
myAttRef.SetAttributeFromBlock(myAttDef, myBlockRef.BlockTransform)
myAttColl.AppendAttribute(myAttRef)
myTrans.AddNewlyCreatedDBObject(myAttRef, True)
End If
Next
myTrans.Commit()
Return myBlockRef.Id
End Using
End Function
1- We are able to specifying the BlockTableRecord which we want to insert the block in the
ModelSpace, PaperSpace, or even another BlockDefinition (see page 40)
2- We loops through each entity in a Block Definition, looking for an AttributeDefinition entity.
If we find an AttributeDefinition, we create a new AttributeReference based on the Definition
and append the AttributeReference to the AttributeCollection of the BlockReference.
But what dose this main, is it Maine that Attribute like akind of Block in Block, I think it’s like
that.
What important to me is BlockReference which is in another word Block name and the
AttributeReference they are not the same and that affect on the SelectionFilter Criterium.
In the next page a practicl exampel.
16/12/2010 EDCAD1.0 HBO-Traject 2010 48
2