AutoCAD Architecture Customization

AutoCAD Architecture Customization

Reply
*Maleski, Thomas
Message 1 of 2 (57 Views)

Attach Property Sets

57 Views, 1 Replies
11-28-2003 04:11 AM
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
*Starz, Rob
Message 2 of 2 (57 Views)

Re: Attach Property Sets

11-28-2003 04:51 AM in reply to: *Maleski, Thomas
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
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.