Function TclSectionTester_setSection

SRC/modelbuilder/tcl/TclSectionTester.cpp:117–158

//

int
TclSectionTester_setSection(ClientData clientData, Tcl_Interp *interp, int argc,   
			    TCL_Char **argv)
{
  count = 1;
  // ensure the destructor has not been called - 
  if (theTclBuilder == 0) {
    opserr << "WARNING builder has been destroyed\n";
    return TCL_ERROR;
  }

  // check number of arguments in command line
  if (argc < 2) {
    opserr << "WARNING bad command - want: sectionTest secID?\n";
    return TCL_ERROR;
  }    

  // get the matID form command line
  int sectionID;
  if (Tcl_GetInt(interp, argv[1], &sectionID) != TCL_OK) {
    opserr << "WARNING could not read sectionID: sectionTest sectionID?\n";
    return TCL_ERROR;
  }

  // delete the old testing material
  if (theTestingSection !=0) {
    delete theTestingSection;
    theTestingSection = 0;
  }

  // get the material from the modelbuilder with sectionID 
  // and set the testing material to point to a copy of it
  SectionForceDeformation *theOrigMaterial = theTclBuilder->getSection(sectionID);
  if (theOrigMaterial == 0) {
    opserr << "WARNING no material found with sectionID\n";
    return TCL_ERROR;
  }  else {
    theTestingSection = theOrigMaterial->getCopy();
  }

  return TCL_OK;
}


int