I currently use code similar to Lee Ambrosius's 2009 AU handout that shows how to set/create custom properties. It can be seen here http://adndevblog.typepad.com/autocad/2013/09/usin
I have now accumulated numerous unused custom properties in my sheet set. I haven't been able to find a way to delete these additional custom properties.
Because I use multiple subsets with multiple sheets for printing, I would rather not have to go through all the sheets, store all the custom properties I need, destroy all the existing custom properties, and then re-create just the ones I need.
Any suggestions on how to delete individual custom properties would be helpful.
MEP 2012 with VB.NET
Solved! Go to Solution.
Can you please try using "IAcSmCustomPropertyBag.SetProperty" and pass a null custom property value ?
Here is a sample code to remove a few custom properties
sheetSetMgr = New AcSmSheetSetMgr Dim iterDb As IAcSmEnumDatabase iterDb = sheetSetMgr.GetDatabaseEnumerator Dim ItemDb As IAcSmPersist ItemDb = iterDb.Next sheetdb = ItemDb LockDatabase() Dim cBag As IAcSmCustomPropertyBag cBag = sheetdb.GetSheetSet().GetCustomPropertyBag() Dim enumeratorProperty As IAcSmEnumProperty enumeratorProperty = cBag.GetPropertyEnumerator() enumeratorProperty.Reset() Dim name As String = "" Dim customPropertyValue As AcSmCustomPropertyValue = Nothing enumeratorProperty.Next(name, customPropertyValue) Dim customPropNames As System.Collections.Specialized.StringCollection customPropNames = New System.Collections.Specialized.StringCollection customPropNames.Add("Test3") customPropNames.Add("Test6") Do While Not customPropertyValue Is Nothing If customPropertyValue.GetFlags() = PropertyFlags.CUSTOM_SHEETSET_PROP And customPropNames.Contains(name) Then cBag.SetProperty(name, Nothing) End If enumeratorProperty.Next(name, customPropertyValue) Loop UnlockDatabase()
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register