I'm all tangled up here and can't see the light. Anyone know how to set the scale when the block is inserted?
Public Function MyBlock()
Dim db As Database = HostApplicationServices.WorkingDatabase()
Dim trans As Transaction = db.TransactionManager.StartTransaction()
Try
Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
Dim btr As BlockTableRecord = trans.GetObject(bt(btr.ModelSpace), OpenMode.ForWrite)
Dim br As New BlockReference(Pt1Res.Value, CreateMyBlockDefinition())
br.Rotation = angR
'br.scale = ???
MyBlockId = btr.AppendEntity(br)
trans.AddNewlyCreatedDBObject(br, True)
trans.Commit()
Finally
trans.Dispose()
End Try
Return MyBlockId
End Function
