Пользовательские наборы характеристик для TIN-поверхности Civil 3D
Всем привет!
RESULT="--"
On Error Resume Next
Set oApp = GetObject(, "AutoCAD.Application")
Set oCivilApp = oApp.GetInterfaceObject("[_Данные свойств - Пользовательские:Версия Land]") ' 2021
Set obj = oCivilApp.ActiveDocument.HandleToObject("[_Данные свойств - Пользовательские:Обработка]")
RESULT = obj.Statistics.Area3D & " м.кв."
Подставляя в формулу определенную характеристику, выделенную красным жирным (Area3D) можно получить набор характеристик под ваши требования.
Данные характеристики (свойства) я взял по ссылке ниже:
IAeccTinSurfaceStatistics Interface
Эти свойства TIN-поверхности Civil 3D также можно увидеть перейдя в Свойства поверхности во вкладку Статистка →
Самое главное, теперь данные свойства можно увидеть через Палитру свойств AutoCAD на вкладке Дополнительно в разделе НАБОРЫ ХАРАКТЕРИСТИК →
А в последствии, увидеть данные свойства на русском языке в Navisworks →
Скачать набор характеристик можете по ссылке:
https://1drv.ms/u/s!AqZrweHw11Jogp5_QCSLdh0UvBpuWw?e=WZ9eZS
Комментарии
Отправить комментарий