Public Function SetValueFromPropertySetByName(ByVal psetname As String, ByVal pname As String, ByVal dbobj As Autodesk.AutoCAD.DatabaseServices.DBObject, ByVal NewValue As Object) As Boolean
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim findany As Boolean = False
Dim setIds As ObjectIdCollection = Autodesk.Aec.PropertyData.DatabaseServices.PropertyDataServices.GetPropertySets(dbobj)
Try
Using tr As Transaction = db.TransactionManager.StartTransaction
Dim psId As ObjectId
For Each psId In setIds 'setids is all property sets
Dim pset As Autodesk.Aec.PropertyData.DatabaseServices.PropertySet = tr.GetObject(psId, OpenMode.ForWrite, False, False) ' As AecPropDb.PropertySet
If pset.PropertySetDefinitionName = psetname Then
Dim pid As Integer 'have to create this object to place the PropertyNameToId somewhere
pid = pset.PropertyNameToId(pname) 'propertynametoid gives the id for the psetdef
ed.WriteMessage(vbCrLf & " Property ID " & pid & " Property Name " & pset.PropertyIdToName(pid) & vbCrLf)
Using acLckDoc As DocumentLock = doc.LockDocument() '
pset.SetAt(pid, NewValue)
End Using
findany = True
'esential findany changes the value of the function
End If
Next
tr.Commit()
End Using
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage("error in SetValueFromPropertySetByName: " + ex.ToString + vbCrLf)
Return findany
End Try
Return findany
End Function