I'm trying to update some older ABS/MEP drawings to a new office standard and was hoping to do a lot of the updating auto-magically using VBA..... BUT.... I can't seem to figure out how to access the information to apply or remove an override to a particular system. I'm guess the extension dictionary plays a part in this but I don't have much experience with that so I'm reaching out for help. Can anyone point me in the right direction?
I would think that walls, doors and windows would basically be the same thing (just different names) so if you've got any snippets on how to change AEC objects, I'd like to see them if you're willing to share.
Below is what I've got so far.
Public Sub PipeSystemDefinitions()
Dim oPlumbingSysDef As AecbPlumbingSystemDef
Dim oPlumbingSysDefs As AecbPlumbingSystemDefs
Dim oDB As New AecbPlumbingDatabase
Dim oDictionary As AcadDictionary
oDB.Init ThisDrawing.Database
Set oPlumbingSysDefs = oDB.PlumbingSystemDefs
For Each oPlumbingSysDef In oPlumbingSysDefs
If oPlumbingSysDef.Name <> "Standard" Then
Debug.Print oPlumbingSysDef.Name
Set oDictionary = oPlumbingSysDef.GetExtensionDictionary
End If
Next oPlumbingSysDef
End Sub
