KEMBAR78
ETABS OAPI: Create and Save New Model | PDF | Computer Programming | Operating System Technology
Scribd
Upload
672 views1 page

ETABS OAPI: Create and Save New Model

This document provides an example Visual Basic script for creating a new model in ETABS using the object application programming interface (OAPI). The script initializes a new ETABS OAPI object, starts an ETABS session, initializes a new blank model with specified units, creates a new blank file, allows performing additional actions on the model, saves the model to a file path, exits the ETABS session, and clears the OAPI objects. The script demonstrates the basic process for programmatically generating a new ETABS model file using the OAPI.

Uploaded by

Henry Hoyos
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
672 views1 page

ETABS OAPI: Create and Save New Model

This document provides an example Visual Basic script for creating a new model in ETABS using the object application programming interface (OAPI). The script initializes a new ETABS OAPI object, starts an ETABS session, initializes a new blank model with specified units, creates a new blank file, allows performing additional actions on the model, saves the model to a file path, exits the ETABS session, and clears the OAPI objects. The script demonstrates the basic process for programmatically generating a new ETABS model file using the OAPI.

Uploaded by

Henry Hoyos
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

https://structuresbycode.wordpress.

com/2013/08/27/etabs-oapi-how-to-get-started/

Sub template_New_model()

' EXAMPLE: Creating a new model and save it

Dim ret As Long ' return value from OAPI calls

Dim filename As String

filename = "C:\test.edb"

Dim myEtabs As ETABS2013.cOAPI ' the OAPI class has methods related to high level
program stuff, like .applicationStart()

Dim myModel As ETABS2013.cSapModel ' the SapModel class is where most things we are
interested in reside

' Create the OAPI object

Set myEtabs = CreateObject("CSI.ETABS.API.ETABSObject") ' Create the OAPI object

' Start ETABS

myEtabs.ApplicationStart

' Assign the resulting SAP model

myModel = myEtabs.SapModel

' Initialise a new model

myModel.InitializeNewModel (eUnits_kN_m_C) ' Initialize a new model with units)

' Create a new model file

ret = myEtabs.SapModel.file.NewBlank ' actually create the blank file

' DO STUFF

'Save the file

ret = myEtabs.SapModel.file.Save(filename) ' save the model

' close ETABS

ret = myEtabs.ApplicationExit(False) ' exit ETABS

Set myModel = Nothing

Set myEtabs = Nothing

End Sub

You might also like