Property Set - PSET - Civil 3D
Автор: Eduardo Soethe Cursino - BIM na Infraestrutura
Загружено: 2023-06-19
Просмотров: 2297
CAIMENTO
RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject("AeccXUiLand.AeccApplication.13.5")
Set obj=oCivilApp.ActiveDocument.HandleToObject("[Handle]")
RESULT=obj.slope
COMPRIMENTO
RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject("AeccXUiLand.AeccApplication.13.5")
Set obj=oCivilApp.ActiveDocument.HandleToObject("[Handle]")
RESULT=obj.Length3D
DIÂMETRO
RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject("AeccXUiPipe.AeccPipeApplication.13.5")
Set obj=oCivilApp.ActiveDocument.HandleToObject("[Handle]")
RESULT=obj.InnerDiameterOrWidth
DESCRIÇÃO
RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject("AeccXUiPipe.AeccPipeApplication.13.5")
Set obj=oCivilApp.ActiveDocument.HandleToObject("[Handle]")
RESULT=obj.Description
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
![[2025] Feeling Good Mix - English Deep House, Vocal House, Nu Disco | Emotional / Intimate Mood](https://ricktube.ru/thumbnail/cxLdtvzf2sI/mqdefault.jpg)
