Try this. Remember to set your references.
Sub test()
Dim AecDoc As New AecArchBaseDocument
Dim ScheduleApp As New AecScheduleApplication
Set AecDoc = AecArchBaseApplication.ActiveDocument
AecDoc.Init ActiveDocument
Dim oEnt As AcadEntity
Dim oSched
Dim cpsd As AecSchedulePropertySetDef
Dim cPSDs As AecSchedulePropertySetDefs
Set cPSDs = ScheduleApp.PropertySetDefs(ThisDrawing.Database)
For Each oEnt In ThisDrawing.ModelSpace
Dim PropSets As AecSchedulePropertySets
If TypeOf oEnt Is AecsMember Then
Set PropSets = ScheduleApp.PropertySets(oEnt)
If PropSets("YourPropertyName") Is Nothing Then
PropSets.Add cPSDs("YourPropertyName")
End If
End If
Next oEnt
On Error Resume Next
Set AecDoc = Nothing
Set ScheduleApp = Nothing
End Sub
--
Rob Starz
Stardsign cad solutions
www.stardsign.com
ADTcadPacX4 now available for ADT 2004
www.stardsign.com/adtcadpacx.htm
"Thomas Maleski" wrote in message
news:9F248B185C049857CADB058517039966@in.WebX.maYIadrTaRb...
Is there a way to attach a property set definition to all the Structural
Member Styles all at once?
--
Thomas Maleski
New Jersey Autodesk User Group
http://www.njaug.org