Gustavini,
Debes definir tu área primero, siguiendo la documentación de la API de SAP2000 V14 en código VBA sería algo más o menos así:
Debes definir tu área primero, siguiendo la documentación de la API de SAP2000 V14 en código VBA sería algo más o menos así:
Código:
'set new area property Dim espesor As Double espesor = 15 ret = SapModel.PropArea.SetShell_1("NOMBRE_SECCION", 1, True, "MATERIAL", 0, espesor, espesor)'se define el área y se le asigna la propiedad'add area object by points Dim Point() As String Dim Name As String Redim Point(3) Point(0) = "1" Point(1) = "4" Point(2) = "5" Point(3) = "2" ret = SapModel.AreaObj.AddByPoint(4, Point, Name,"NOMBRE_SECCION") Estadísticas: Publicado por Zingiestemu73 — Mié Jun 12, 2024 3:43 pm