Function eleType

SRC/runtime/commands/domain/element.cpp:369–397

}

int
eleType(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  Domain *the_domain = (Domain*)clientData;

  if (argc < 2) {
    opserr << OpenSees::PromptValueError << "want - eleType eleTag?\n";
    return TCL_ERROR;
  }

  int tag;
  if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "eleType eleTag? \n";
    return TCL_ERROR;
  }

  Element *theElement = the_domain->getElement(tag);

  if (theElement == nullptr) {
    opserr << OpenSees::PromptValueError << "eleType ele " << tag << " not found" << "\n";
    return TCL_ERROR;
  }
  const char *type = theElement->getClassType();

  Tcl_AppendResult(interp, type, NULL);

  return TCL_OK;
}


int