Ejemplo n.º 1
0
        /// <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;
        }
Ejemplo n.º 2
0
        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
        }
Ejemplo n.º 3
0
        /// <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";
        }
Ejemplo n.º 4
0
        public void Main(ref ETABSv17.cSapModel SapModel, ref ETABSv17.cPluginCallback ISapPlugin)
        {
            Form1 form = new Form1(ref SapModel, ref ISapPlugin);

            form.Show();
        }
Ejemplo n.º 5
0
        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.";
        }