Phantom Block References
Hi,
Without seeing any code or example of drawing, it is impossible to do anything but hazardous speculation.
In order for us to help you, please post a code snippet showing how you count the blocks and an example drawing that causes the phenomenon you describe.
Hi,
You can easily avoid what describe @ActivistInvestor concerning nesting blocks by using a filtered selection set.
Here's a C# example (sorry, I don't use VB) to count inserted block references.
[CommandMethod("BlockCount")]
public void BlockCount()
{
var doc = Application.DocumentManager.MdiActiveDocument;
var db = doc.Database;
var ed = doc.Editor;
var psr = ed.SelectAll(new SelectionFilter(new[] { new TypedValue(0, "INSERT") }));
if (psr.Status != PromptStatus.OK)
return;
using (var tr = db.TransactionManager.StartTransaction())
{
var count = psr.Value
.Cast<SelectedObject>()
.Select(so => (BlockReference)tr.GetObject(so.ObjectId, OpenMode.ForRead))
.GroupBy(br => ((BlockTableRecord)tr.GetObject(br.DynamicBlockTableRecord, OpenMode.ForRead)).Name)
.Select(g => new { Name = g.Key, Count = g.Count() });
foreach (var item in count)
{
ed.WriteMessage("\n{0}: {1}", item.Name, item.Count);
}
tr.Commit();
}
}
The output with your drawing:
KP3E: 1 ViewPortTitle: 2 NorthArrow: 2 ScaleBar: 2 X-FloorNotes: 2 X-Tblock: 2 SG_SheetBlock2013: 2 KP3W: 1 KEYNOTE: 27 ARROWHEAD: 6 FA_Speaker: 60 FA_IsolatorIDNet: 2 FA_AOM: 8 FA_Transponder: 1 FA_SmokeLED: 4 FA_ControlRelay: 12 FA_SmokeCO: 54 FA_Strobe: 5 FA_SpeakerStrobe: 15 FA_WSO: 1 FA_AIM: 13 FA_DamperFireSmoke: 6 FA_Smoke: 16 FA_DoorHolder: 3 LEVEL 04 FLOOR PLAN: 1
To avoid nested blocks, you can check if the block reference owner is a layout.
Here's a little C# example.
[CommandMethod("CMD")]
public void Cmd()
{
var doc = Application.DocumentManager.MdiActiveDocument;
var ed = doc.Editor;
var ofd = new System.Windows.Forms.OpenFileDialog()
{
Filter = "dwg files (*.dwg)|*.dwg",
FilterIndex = 1,
InitialDirectory = System.IO.Path.GetDirectoryName(doc.Name),
Multiselect = true,
Title = "Select .dwg Files to Query"
};
var result = ofd.ShowDialog();
if (result != System.Windows.Forms.DialogResult.OK)
return;
foreach (string filename in ofd.FileNames)
{
ed.WriteMessage("\n\n" + filename);
using (var db = new Database(false, true))
{
db.ReadDwgFile(filename, FileOpenMode.OpenForReadAndAllShare, false, null);
using (var tr = db.TransactionManager.StartTransaction())
{
var bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
foreach (ObjectId btrId in bt)
{
var btr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
if (!(btr.IsAnonymous || btr.IsLayout || btr.IsDependent || btr.IsFromExternalReference || btr.IsFromOverlayReference))
{
int cnt = CountReferences(btr, tr);
if (cnt > 0)
ed.WriteMessage("\n{0}: {1}", btr.Name, CountReferences(btr, tr));
}
}
tr.Commit();
}
}
}
}
private int CountReferences(BlockTableRecord btr, Transaction tr)
{
int cnt = CountReferencesInSpaces(btr, tr);
if (btr.IsDynamicBlock)
foreach (ObjectId btrId in btr.GetAnonymousBlockIds())
{
var anonymousBtr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
cnt += CountReferencesInSpaces(anonymousBtr, tr);
}
return cnt;
}
private int CountReferencesInSpaces(BlockTableRecord btr, Transaction tr)
{
int cnt = 0;
foreach (ObjectId brId in btr.GetBlockReferenceIds(true, true))
{
var br = (BlockReference)tr.GetObject(brId, OpenMode.ForRead);
var owner = (BlockTableRecord)tr.GetObject(br.OwnerId, OpenMode.ForRead);
if (owner.IsLayout)
cnt++;
}
return cnt;
}
Output with your file:
C:\Temp\SampleDrawing.dwg SG_SheetBlock2013: 2 FA_SmokeCO: 54 FA_Speaker: 60 FA_AIM: 13 FA_DamperFireSmoke: 6 FA_ControlRelay: 12 FA_Smoke: 16 FA_SpeakerStrobe: 15 FA_Strobe: 5 FA_DoorHolder: 3 KEYNOTE: 27 KP3E: 1 FA_AOM: 8 ViewPortTitle: 2 ScaleBar: 2 NorthArrow: 2 KP3W: 1 FA_WSO: 1 FA_Transponder: 1 FA_SmokeLED: 4 ARROWHEAD: 6 FA_IsolatorIDNet: 2
Try to replace your GetBRefIds method with the following one.
C#
public ObjectIdCollection GetBRefIDs(Database db, string blkName)
{
var ids = new ObjectIdCollection();
using (var tr = db.TransactionManager.StartOpenCloseTransaction())
{
var bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
if (!bt.Has(blkName))
return null;
var btr = (BlockTableRecord)tr.GetObject(bt[blkName], OpenMode.ForRead);
GetReferencesInSpaces(btr, tr, ids);
if (btr.IsDynamicBlock)
{
foreach (ObjectId btrId in btr.GetAnonymousBlockIds())
{
var anonymousBtr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
GetReferencesInSpaces(anonymousBtr, tr, ids);
}
}
tr.Commit();
}
return ids;
}
private void GetReferencesInSpaces(BlockTableRecord btr, Transaction tr, ObjectIdCollection ids)
{
foreach (ObjectId brId in btr.GetBlockReferenceIds(true, true))
{
var br = (BlockReference)tr.GetObject(brId, OpenMode.ForRead);
var owner = (BlockTableRecord)tr.GetObject(br.OwnerId, OpenMode.ForRead);
if (owner.IsLayout)
ids.Add(br.ObjectId);
}
}
VB (converted with telerik, not tested)
Public Function GetBRefIDs(ByVal db As Database, ByVal blkName As String) As ObjectIdCollection
Dim ids = New ObjectIdCollection()
Using tr = db.TransactionManager.StartOpenCloseTransaction()
Dim bt = CType(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
If Not bt.Has(blkName) Then Return Nothing
Dim btr = CType(tr.GetObject(bt(blkName), OpenMode.ForRead), BlockTableRecord)
GetReferencesInSpaces(btr, tr, ids)
If btr.IsDynamicBlock Then
For Each btrId As ObjectId In btr.GetAnonymousBlockIds()
Dim anonymousBtr = CType(tr.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)
GetReferencesInSpaces(anonymousBtr, tr, ids)
Next
End If
tr.Commit()
End Using
Return ids
End Function
Private Sub GetReferencesInSpaces(ByVal btr As BlockTableRecord, ByVal tr As Transaction, ByVal ids As ObjectIdCollection)
For Each brId As ObjectId In btr.GetBlockReferenceIds(True, True)
Dim br = CType(tr.GetObject(brId, OpenMode.ForRead), BlockReference)
Dim owner = CType(tr.GetObject(br.OwnerId, OpenMode.ForRead), BlockTableRecord)
If owner.IsLayout Then ids.Add(br.ObjectId)
Next
End Sub
'=======================================================
'Service provided by Telerik (www.telerik.com)
'Conversion powered by Refactoring Essentials.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================