/// <summary>
/// launch the ETABS.
/// </summary>
/// <param name="ETABSfullPath"></param>
static void LaunchETABS(string ProgramPath)
{
//dimension the ETABS Object as cOAPI type
ETABSv17.cOAPI myETABSObject = null;
//create API helper object
ETABSv17.cHelper myHelper;
try
{
myHelper = new ETABSv17.Helper();
}
catch (Exception ex)
{
MessageBox.Show($"{ex.Message}--Cannot create an instance of the Helper object");
return;
}
//'create an instance of the ETABS object from the specified path
try
{
//create ETABS object
myETABSObject = myHelper.CreateObject(ProgramPath);
}
catch (Exception ex)
{
MessageBox.Show("Cannot start a new instance of the program from " + ProgramPath);
return;
}
int returnVal = myETABSObject.ApplicationStart();
//Get a reference to cSapModel to access all API classes and functions
ETABSv17.cSapModel mySapModel = default(ETABSv17.cSapModel);
mySapModel = myETABSObject.SapModel;
}
public void ETABSCode(object param)
{
// checks
#region checks
//if (!IsRequiredFileAndFolderSelected())
//{
// FromETABSCode = "select the required folder and file filrst";
// return;
//}
//else
//{
// FromETABSCode = string.Empty;
//}
#endregion
#region Original ETABS code
string result = string.Empty;
//Get a reference to cSapModel to access all API classes and functions
ETABSv17.cSapModel sapModel = default(ETABSv17.cSapModel);
ETABS1.AttachToETABSRunningInstance(ref sapModel, ref result);
if (result != "OK")
{
FromETABSCode += result;
return;
}
//Use returnVal to check if functions return successfully (ret = 0) or fail (ret = nonzero)
int returnVal = 0;
//sapModel.PointObj.
//Save model
//returnVal = sapModel.File.Save(ModelPath);
//Run analysis
//ret = sapModel.Analyze.RunAnalysis();
//Clean up variables
sapModel = null;
//Check ret value
if (returnVal == 0)
{
//MessageBox.Show("API script completed successfully.");
FromETABSCode += $"\nAPI script completed successfully.";
}
else
{
//MessageBox.Show("API script FAILED to complete.");
FromETABSCode += $"\nAPI script FAILED to complete.";
}
#endregion
}
/// <summary>
/// Attach to instances of ETABS that were started manually.
/// </summary>
/// <param name="sapModel"></param>
/// <param name="res">will hold "OK" or an error message</param>
public static void AttachToETABSRunningInstance(ref ETABSv17.cSapModel sapModel, ref string res)
{
//dimension the ETABS Object as cOAPI type
ETABSv17.cOAPI myETABSObject = null;
//attach to a running instance of ETABS
try
{
//get the active ETABS object
myETABSObject = (ETABSv17.cOAPI)System.Runtime.InteropServices.Marshal.GetActiveObject("CSI.ETABS.API.ETABSObject");
}
catch (Exception ex)
{
res = $"{ex.Message} \n or No running instance of the program found or failed to attach.";
return;
}
sapModel = myETABSObject.SapModel;
res = "OK";
}
public void Main(ref ETABSv17.cSapModel SapModel, ref ETABSv17.cPluginCallback ISapPlugin)
{
Form1 form = new Form1(ref SapModel, ref ISapPlugin);
form.Show();
}
static void ETABSCode()
{
#region Original ETABS code
//set the following flag to true to attach to an existing instance of the program
//otherwise a new instance of the program will be started
bool IsETABsInstanceRunning = true;
//set the following flag to true to manually specify the path to ETABS.exe
//this allows for a connection to a version of ETABS other than the latest installation
//otherwise the latest installed version of ETABS will be launched
bool IsPathSpecified = false;
//if the above flag is set to true, specify the path to ETABS below
// "C:\Program Files\Computers and Structures\ETABS 18\ETABS.exe"
string ProgramPath = @"C:\Program Files\Computers and Structures\ETABS 18\ETABS.exe";
//if (OpenETABS.ShowDialValue)
//{
// ProgramPath = OpenETABS.FileName;
// IsPathSpecified = true;
//}
//full path to the model
//set it to an already existing folder ("C:\\CSi_ETABS_API_Example")
//string ModelDirectory = OpenModel.DirName;
//try
//{
// System.IO.Directory.CreateDirectory(ModelDirectory);
//}
//catch (Exception ex)
//{
// //MessageBox.Show("Could not create directory: " + ModelDirectory);
// FromETABS += $"\nthe f*****g source {OpenETABS.SourceName}";
//}
// the above try catch block already handled by OpenModel.
//string ModelName = "myFirstETABS-API-examplee.edb";
//string ModelPath = Path.Combine(ModelDirectory, ModelName);//ModelDirectory + Path.DirectorySeparatorChar + ModelName;
//dimension the ETABS Object as cOAPI type
ETABSv17.cOAPI myETABSObject = null;
//Use returnVal to check if functions return successfully (ret = 0) or fail (ret = nonzero)
int returnVal = 0;
if (IsETABsInstanceRunning)
{
//attach to a running instance of ETABS
try
{
//get the active ETABS object
myETABSObject = (ETABSv17.cOAPI)System.Runtime.InteropServices.Marshal.GetActiveObject("CSI.ETABS.API.ETABSObject");
}
catch (Exception ex)
{
MessageBox.Show($"{ex.Message}--No running instance of the program found or failed to attach.");
return;
}
}
else
{
//create API helper object
ETABSv17.cHelper myHelper;
try
{
myHelper = new ETABSv17.Helper();
}
catch (Exception ex)
{
MessageBox.Show($"{ex.Message}--Cannot create an instance of the Helper object");
return;
}
if (IsPathSpecified)
{
//'create an instance of the ETABS object from the specified path
try
{
//create ETABS object
myETABSObject = myHelper.CreateObject(ProgramPath);
}
catch (Exception ex)
{
MessageBox.Show("Cannot start a new instance of the program from " + ProgramPath);
return;
}
}
else
{
//'create an instance of the ETABS object from the latest installed ETABS
try
{
//create ETABS object
myETABSObject = myHelper.CreateObjectProgID("CSI.ETABS.API.ETABSObject");
}
catch (Exception ex)
{
MessageBox.Show("Cannot start a new instance of the program.");
return;
}
}
//start ETABS application
returnVal = myETABSObject.ApplicationStart();
}
//Get a reference to cSapModel to access all API classes and functions
ETABSv17.cSapModel mySapModel = default(ETABSv17.cSapModel);
mySapModel = myETABSObject.SapModel;
////Initialize model
//returnVal = mySapModel.InitializeNewModel();
//////////////////////////////////////////////////////////////////////////////////////
////Create steel deck template model
//returnVal = mySapModel.File.NewSteelDeck(
// 1 /*num of storys*/,
// 3 /*typical story height*/,
// 1 /*bottom story heiht*/,
// 2 /*num of line x*/,
// 2 /*num of line y*/,
// 4 /*x spacing*/,
// 4 /*y spacing*/);
////////////////////////////////////////////////////////////////////////////////////////
//returnVal = mySapModel.File.NewBlank();
//Save model
//returnVal = mySapModel.File.Save(ModelPath);
//Run analysis
//ret = mySapModel.Analyze.RunAnalysis();
//Close ETABS
myETABSObject.ApplicationExit(false);
//Clean up variables
mySapModel = null;
myETABSObject = null;
//Check ret value
if (returnVal == 0)
{
//MessageBox.Show("API script completed successfully.");
//FromETABSCode += $"\nAPI script completed successfully.";
}
else
{
//MessageBox.Show("API script FAILED to complete.");
//FromETABSCode += $"\nAPI script FAILED to complete.";
}
#endregion
//FromETABSCode += $"\n\n end of ETABSCode method.";
}