Using VB Script for aditional data to Property Set

[buinhuthuong]

Hi there,

I  am using VB Script in Formula Property Definition to add more data for an object.

As the image below, I could get some information such as Inner Structure Width, Inner Structure Length, and Structure Height with these codes.

I would like to get more information in Table 1 such as Wall Thickness, Floor Thickness.

How can I get it by editing my command code?

These are the command codes that I used in the project.

RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject("AeccXUiLand.AeccApplication.13.6")
Set obj=oCivilApp.ActiveDocument.ObjectIDToObject([ObjectID])
If obj.BoundingShape = 1 Then
Result = CStr(obj.StructureInnerDiameterOrWidth*1000)
Else
Result = Cstr(obj.StructureInnerLength*1000) + " x " + CStr(obj.StructureInnerDiameterOrWidth*1000)
End If

Thank you for your attention and have a good day.

[MikeEvansUK · Accepted solution]

Use the find by context to get data not explicitly exposed.

See below example for material.

RESULT=obj.PartDataRecord.FindByContext("Material_Type").Tag

Mike

[buinhuthuong]

Hi Mike,

Thanks for your answer,

I am still using your command code, but it has not worked.

I am a newbie working with VB Script.

For this reason,

If possible, would you please give some specific explanation?

My goal is how can I bring data in this table to Property Set.

I appreciate it, Mike

[buinhuthuong]

Have anyone would help me? 😶🙄

Have a good day all of you,

[rl_jackson · Accepted solution]

I believe what @MikeEvansUK was saying that between the "" is the variable you want exposed to the property set.

HTH

[buinhuthuong]

Hi,

 @rl_jackson @MikeEvansUK , amazing,

Thank you all for your useful solution.

I appreciate it,