I am using AutoCAD 2014 and VB.NET 2010. I am trying to get the value of a custom property and cannot seem to do so.
The old command I used for AutoCAD 2010 was:
ThisDrawing.SummaryInfo.GetCustomByKey(strParameter, strValue)
But this does not work anymore. So I created this sub but it does not seem to work either. Any clues to what I am doing wrong?
Public
Sub subFindCustomParam(ByVal strUserParameter AsString)
Dim infoDB AsDatabase =Application.DocumentManager.MdiActiveDocument.Database
Dim infoBuilder AsDatabaseSummaryInfoBuilder = NewDatabaseSummaryInfoBuilder(infoDB.SummaryInfo)
Dim infodict AsDBDictionary = infoBuilder.CustomPropertyTable
ForEach infoentry As DictionaryEntry In infodict
If strUserParameter = infoentry.Key Then
CurrentParameterValue = infoentry.Value
bolCustomPropertyFound =True
Exit For
EndIf
Next
EndSub
