Formula properties and VB Script

[anton.opanasenko]

Hi everyone,

I'm currently facing a challenge in my road project using Civil 3D, and I need some help with implementing formula properties. My project involves designing road layers with specific thicknesses, defined in the cross-section components of the road. I'm looking to transfer these thickness values to the 3D solids created from the corridors.

The process I'm following is:

I create 3D solids from the corridors.
During this creation, I automatically obtain properties from the referenced cross-sections.
My objective is to use these properties to extract the thickness values of the road layers from the cross-sections and then add these values to the properties of the corresponding 3D solids. I think the formula properties using VBA script should be the right way, but I am not really familiar with that.

Thank you in advance for your help and support!

Best regards,
Anton

[hosneyalaa]

Provide example drawing 

Can you try this

RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject("AeccXUiLand.AeccApplication.13.3")
Set obj=oCivilApp.ActiveDocument.HandleToObject("[Handle]")
RESULT=obj.Volume