Function eleType

SRC/tcl/commands.cpp:7257–7283

}

int
eleType(ClientData clientData, Tcl_Interp* interp, int argc, TCL_Char** argv)
{
    if (argc < 2) {
        opserr << "WARNING want - eleType eleTag?\n";
        return TCL_ERROR;
    }

    int tag;

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

    char buffer[80];
    Element* theElement = theDomain.getElement(tag);
    if (theElement == 0) {
        opserr << "WARNING eleType ele " << tag << " not found" << endln;
        return TCL_ERROR;
    }
    const char* type = theElement->getClassType();
    sprintf(buffer, "%s", type);
    Tcl_AppendResult(interp, buffer, NULL);

    return TCL_OK;
}

int 
eleNodes(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)