AutoCAD Architecture Customization
Welcome to Autodesk’s AutoCAD Architecture Customization Forums. Share your knowledge, ask questions, and explore popular AutoCAD Architecture Customization topics.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Attach Property Sets

1 REPLY 1
Reply
Message 1 of 2
Anonymous
193 Views, 1 Reply

Attach Property Sets

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

href="http://www.njaug.org">http://www.njaug.org
1 REPLY 1
Message 2 of 2
Anonymous
in reply to: Anonymous

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

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost