Adding PSD's to a 3D Solid

[caddman6425nah]

I guess some background is needed. I needed to create an arched Beam, I tried to arch a structural member have found out that structural members only curve. I needed a steel beam that arched select created a 3 D solid. Now my only problem is that I need to attach PSD's to the 3 D solid. The problem is, that I'm having a hard time attaching the PSD for the length of the beam and the height location. I'm also trying to attach a PSD that determines the style of beam. I had the dcl with a list box that has all the styles listed. I want to pick the style in the dialog box and use that in the style PSD. So my question is this, how would I go about formulating a PSD, when the properties don't even exist. I'm thinking of useing OBJECTID, but I really don't know how I would write the syntax. Something like this? Set acadApp = GetObject(,"AutoCAD.Application") 'ACADVER values: 'ACD-A2008 = "17.1s (LMS Tech)" 'ACD-A2009 = "17.2s (LMS Tech)" 'ACA2010 = "18.0 (LMS Tech)" 'ACA2011 = "18.1 (LMS Tech)" acadVerString = acadApp.ActiveDocument.GetVariable("ACADVER") 'Set ACD-A application string, based on version running: Select Case acadVerString Case "17.1s (LMS Tech)" aecBaseVer = "AecX.AecBaseApplication.5.5" Case "17.2s (LMS Tech)" aecBaseVer = "AecX.AecBaseApplication.5.7" Case "18.0 (LMS Tech)" aecBaseVer = "AecX.AecBaseApplication.6.0" Case "18.1 (LMS Tech)" aecBaseVer = "AecX.AecBaseApplication.6.5" Case "18.2 (LMS Tech)" aecBaseVer = "AecX.AecBaseApplication.6.7" Case Else aecBaseVer = "Unknown" End Select If aecBaseVer = "Unknown" Then RESULT = "Unknown Version" Else Set aecBase = acadApp.GetInterfaceObject(aecBaseVer) aecBase.Init acadApp Set bmObj = acadApp.ActiveDocument.ObjectIDToObject( [ObjectID] ) Set utilObj = aecBase.ActiveDocument.Utility wallLocation = utilObj.ConvertToVariantArray(bmObj.Location) RESULT = BeamLocation End If Not sure how this would work, or even if it would. Took from a different circumstance.