Function removeObject

SRC/tcl/commands.cpp:5944–6208

extern bool OPS_removeTimeSeries(int tag);

int 
removeObject(ClientData clientData, Tcl_Interp *interp, int argc, 
	     TCL_Char **argv)
{
  // make sure at least one other argument to contain type of system
  if (argc < 2) {
    opserr << "WARNING want - remove objectType?\n";
    return TCL_ERROR;
  }    
  
  int tag;
  if ((strcmp(argv[1],"element") == 0) || (strcmp(argv[1],"ele") == 0)) {
    if (argc < 3) {
      opserr << "WARNING want - remove element eleTag?\n";
      return TCL_ERROR;
    }    
    
    if (Tcl_GetInt(interp, argv[2], &tag) != TCL_OK) {
      opserr << "WARNING remove element tag? failed to read tag: " << argv[2] << endln;
      return TCL_ERROR;
    }      
    Element *theEle = theDomain.removeElement(tag);
    if (theEle != 0) {
      // we also have to remove any elemental loads from the domain
      LoadPatternIter &theLoadPatterns = theDomain.getLoadPatterns();
      LoadPattern *thePattern;
      
      // go through all load patterns
      while ((thePattern = theLoadPatterns()) != 0) {
	ElementalLoadIter theEleLoads = thePattern->getElementalLoads();
	ElementalLoad *theLoad;
	
	// go through all elemental loads in the pattern
	while ((theLoad = theEleLoads()) != 0) {
	  
	  // remove & destroy elemental from elemental load if there
	  // note - if last element in load, remove the load and delete it
	  
	  /* *****************
	     int numLoadsLeft = theLoad->removeElement(tag);
	     if (numLoadsLeft == 0) {
	     thePattern->removeElementalLoad(theLoad->getTag());
	     delete theLoad;
	     }
	  *********************/
	}
      }
      
      // finally invoke the destructor on the element
      delete theEle;
    }
  }
  
  else if (strcmp(argv[1],"loadPattern") == 0 || strcmp(argv[1],"pattern") == 0) {
    if (argc < 3) {
      opserr << "WARNING want - remove loadPattern patternTag?\n";
      return TCL_ERROR;
    }