AutoCAD Architecture Customization

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

Attach Property Sets

52 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 (52 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

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Announcements
Welcome to the new Autodesk Community!
If this is your first visit, click here to get started and make the most of the Community. Let us know what you think of the new experience in the Community Feedback Forum.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community