topic Re: Erase all property sets apart from named in Civil 3D Customization Forum

Erase all property sets apart from named

michael — Wed, 30 Oct 2024 14:46:56 GMT

Hi, I'm being plagued by duplicate property sets and its driving me mad.

The problem (i think) seems to be linked somehow to Drefed pipe networks and Reference templates being used for the PSet information.

So I went down the .net route to delete these duplicates but now even though the duplicate sets are not actually tagged to a structure I cannot seem to remove/purge them unless I change the def applies to filter to None, the file becomes slower as a result and I've 300 + duplicates (one for each manhole) to remove.

I just want to scan through the entire PS tables and look for anything I don't want and erase it but I cannot seem to find a way without using an object or known objectid.

Can anyone give me a pointer as to how to find all PS definitions, check if their Applies to filter is AeccDbStructure or not then erase if the name doesn't match the master one.

Re: Erase all property sets apart from named

hippe013 — Wed, 30 Oct 2024 16:49:46 GMT

I posted this thread a while back for examples of working-with and creating property sets. You might find it helpful.

Property Sets - A Quick How To - Autodesk Community - Civil 3D

Re: Erase all property sets apart from named

MikeEvansUK — Wed, 30 Oct 2024 17:15:11 GMT

Thanks Hippe, I have read that and used the functions before.

That deals with a known name and looks it up but I need it to return all other objectid's for anything which doesn't match.

I can't seem to figure out where the container is located so I can iterate these and find the duplicates to erase.

Mike (Using AlterEgo) 🙂

Re: Erase all property sets apart from named

hippe013 — Wed, 30 Oct 2024 18:25:08 GMT

Do you already know the objects that might have a propertyset attached to it?

Dim dbObject As DBObject = tr.GetObject(selRes.ObjectId, OpenMode.ForRead) Dim ids As ObjectIdCollection = PropertyDataServices.GetPropertySetDefinitionsUsed(dbObject)

Re: Erase all property sets apart from named

MikeEvansUK — Thu, 31 Oct 2024 07:58:03 GMT

I have structures with the master def attached but all the duplicates have been detached/not attached.

it’s the duplicates which I want to delete, they won’t purge otb unless I set the applied to as none.

given there’s 300+ of them I don’t really want to do that manually (one by one).

so I need to get the defs in the main styles? Or wherever then clean from there as I cannot use an object I’d.

Re: Erase all property sets apart from named

MikeEvansUK — Thu, 31 Oct 2024 11:11:32 GMT

I have reviewed my code and I actually already had the answer elsewhere but it just needed a tweak.

Private Function GetPropertySetDefinitionIdAll(ByVal PSDObColl As ObjectIdCollection) Dim psdId As ObjectId = ObjectId.Null Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager = db.TransactionManager Using trans As Transaction = tm.StartTransaction() Try Dim psdDict As AecPropDb.DictionaryPropertySetDefinitions = New AecPropDb.DictionaryPropertySetDefinitions(db) For Each psdId In psdDict.Records If Not PSDObColl.Contains(psdId) Then PSDObColl.Add(psdId) End If Next Catch ex As CivilException End Try trans.Commit() End Using End Function

The Above code gets the objectid's for all PropertySetDefinitions in the database.

so you can set and test each one.

For Each PsId As ObjectId In PSDObColl Dim def As PropertySetDefinition = CType(tr.GetObject(PsId, OpenMode.ForWrite), PropertySetDefinition) 'Some Actions Here next

Using this I've now deleted all duplicate PSets, just not sure why they appear to make duplications in the first instance. It must be a bug, becoming duplicated by Dreffing the network in but interesting that the description which includes the path also becomes duplicated as Path Path.

Smells a bit like the _Xref_Scales issue we had and still have.

Mike