How to get number dofs on node with TCL script

Hello everyone,

This is my first time that i make a macro TCL, i have a question : which command can i get the number of dof on one node ? for example : in my screen HM, my node's dof is 245, but i can't get this number in the 'mark' to continue my script, thank you in advance !!!