Topic: Something about Xref functions...

[T.Willey]

Here is one that will work if it does / doesn't have an xclip already.

Code: [Select]

[CommandMethod( "TestCopyXClip" )]
public void TestCopyXClip() {
PromptEntityResult per;
ObjectId tempId;
DBDictionary nFltDict;

Document Doc = acadApp.DocumentManager.MdiActiveDocument;
Database Db = Doc.Database;
Editor Ed = Doc.Editor;

using ( Transaction Trans = Db.TransactionManager.StartTransaction() ) {
per = Ed.GetEntity( "\n Select xref to copy xclip from: " );
Entity FromEnt = Trans.GetObject( per.ObjectId, OpenMode.ForRead ) as Entity;

per = Ed.GetEntity( "\n Select xref to copy xclip to: " );
Entity ToEnt = Trans.GetObject( per.ObjectId, OpenMode.ForRead ) as Entity;

DBDictionary xDictFrom = Trans.GetObject( FromEnt.ExtensionDictionary, OpenMode.ForRead ) as DBDictionary;
tempId = xDictFrom.GetAt( "ACAD_FILTER" );
DBDictionary FltDict = Trans.GetObject( tempId, OpenMode.ForRead ) as DBDictionary;
tempId = FltDict.GetAt( "SPATIAL" );
SpatialFilter SptFlt = Trans.GetObject( tempId, OpenMode.ForRead ) as SpatialFilter;

if ( ToEnt.ExtensionDictionary == ObjectId.Null ) {
ToEnt.UpgradeOpen();
ToEnt.CreateExtensionDictionary();
ToEnt.DowngradeOpen();
}
DBDictionary xDictTo = Trans.GetObject( ToEnt.ExtensionDictionary, OpenMode.ForRead ) as DBDictionary;
if ( xDictTo.Contains( "ACAD_FILTER" ) ) {
tempId = xDictTo.GetAt( "ACAD_FILTER" );
nFltDict = Trans.GetObject( tempId, OpenMode.ForWrite ) as DBDictionary;
if ( nFltDict.Contains( "SPATIAL" ) )
nFltDict.Remove( "SPATIAL" );
SpatialFilter nSptFlt = SptFlt.DeepClone( nFltDict, new IdMapping(), true ) as SpatialFilter;
nFltDict.SetAt( "SPATIAL", nSptFlt );
Trans.AddNewlyCreatedDBObject( nSptFlt, true );
}
else {
xDictTo.UpgradeOpen();
nFltDict = FltDict.DeepClone( xDictTo, new IdMapping(), true ) as DBDictionary;
xDictTo.SetAt( "ACAD_FILTER", nFltDict );
Trans.AddNewlyCreatedDBObject( nFltDict, true );
}
Db.ResolveXrefs( true, true );
//Ed.Regen();
Trans.Commit();
}
}


[Kerry]

Nice job guys.
isn't it fun working at the bleeding edge
 .. but somehow satisfyng!

[T.Willey]

Nice job guys.
isn't it fun working at the bleeding edge
 .. but somehow satisfyng!

Yea, but I was getting very frustrated when it wouldn't stick.  Stupid simple single command missing.

[Kerry]

Tim,
just a note on convention.
usually variable names begin with a lowercase letter.
while this makes absolutely no difference to the compiler, personally I find it helps when visually scanning code if this (convention) is follwed consistently.

[T.Willey]

Tim,
just a note on convention.
usually variable names begin with a lowercase letter.
while this makes absolutely no difference to the compiler, personally I find it helps when visually scanning code if this (convention) is follwed consistently.

I agree.  If this was code I was going to use I would rewrite it, or at least rename the variables.  I was just happy to get it working, so I didn't want to have to do anymore with it than I did today.   

[Bryco]

isn't it fun working at the bleeding edge

Kerry I'm surprised at how often a search for something new to me ends up at your code.
I don't know how you start with so little info and end up with the right stuff.