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:
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?
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
Solved! Go to Solution.
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register