Hi,
I am working on a program in AutoCAD 2008 to populate the Custom property
sheet fields with attribute tag names and values read from a title block.
The problem that I am having is when the attribute tag names are written to
the Custom property sheet "Name" fields they are written in lower-case even
though they are defined in the block as upper-case. I have tried forcing the
attribute tag names to upper-case which has no affect.
So, I am at a loss. Does anyone have any ideas?
Below is my work in progress program. I have also included a screen capture
of the Custom property sheet after it has been populated.
namespace Engineering
{
public class EngineeringCommands
{
[CommandMethod("UPS")]
public static void UpdatePropertySheet()
{
Database db = HostApplicationServices.WorkingDatabase;
DatabaseSummaryInfo dbSummaryInfo;
DatabaseSummaryInfoBuilder dbSummaryInfoBuilder =
new DatabaseSummaryInfoBuilder();
using (Transaction tr =
db.TransactionManager.StartTransaction())
{
BlockTable bt =
tr.GetObject(db.BlockTableId, OpenMode.ForRead)
as BlockTable;
string titleBlock = "22X34";
if (bt.Has(titleBlock))
{
BlockTableRecord btr =
tr.GetObject(bt[titleBlock], OpenMode.ForRead)
as BlockTableRecord;
if (btr != null)
{
ObjectIdCollection objIdCol =
btr.GetBlockReferenceIds(true, true);
if (objIdCol.Count == 1)
{
BlockReference br =
tr.GetObject(objIdCol[0], OpenMode.ForRead)
as BlockReference;
if (br != null)
{
foreach (ObjectId attId in
br.AttributeCollection)
{
AttributeReference ar =
tr.GetObject(attId,
OpenMode.ForRead)
as AttributeReference;
dbSummaryInfoBuilder.CustomProperties.Add(ar.Tag,
ar.TextString);
// For AutoCAD 2009, delete the
statement
// above and uncomment the statement
below.
//dbSummaryInfoBuilder.CustomPropertyTable.Add(ar.Tag,
ar.TextString);
}
dbSummaryInfo =
dbSummaryInfoBuilder.ToDatabaseSummaryInfo();
HostApplicationServices.WorkingDatabase.SummaryInfo
= dbSummaryInfo;
}
}
}
}
tr.Commit();
}
}
}
}
