Argthtjtr

Please I want modify the following code by adding a new command as marks{7,6,4,3} to get

documentclass{article}

usepackage{amsmath}

usepackage{enumerate}

usepackage{graphics} 

usepackage{tikz}

usetikzlibrary{positioning}





tikzstyle{NP}=[rectangle,  

draw=blue!80,

rounded corners=1pt, 

inner sep=12pt,

inner ysep=4pt,

draw, fill=black!0,

text width=2cm,

minimum height=.9cm]





newcommand{TS}[1]{ 

    begin{tikzpicture}

    node[rectangle,draw=blue!80,rounded corners=1pt,inner sep=60pt,  inner ysep=16pt, minimum height=6cm, text width=10cm,align=center,] 

    {

        begin{enumerate}

        itemsep.1em

        item

        foreach x in {1, ...,#1}{item{ 

                begin{tikzpicture}

                node[NP, fill=black!05](abc){bfseries   x};

                node[NP,   right=of abc]{};

                end{tikzpicture}

        }}%

    end{enumerate}

};

end{tikzpicture}

}



begin{document}

%marks{7,6,4,3}

TS{4}  

end{document} 

documentclass[tikz,border=2mm]{standalone} 

usetikzlibrary{positioning}



newcommand{ts}[1]{

begin{tikzpicture}[box/.style={draw, rounded corners, minimum width=15mm, minimum height=6mm}]

foreach i [count=ni] in {#1}{

    node[box] at (0,-ni) (lni) {ni};

    node[box, text=red, font=bfseries, right= 3mm of lni] (rni) {i};}

end{tikzpicture}}



begin{document}



ts{7,3,4,6}



ts{2,3,4}



ts{5,6,8,9,10}



end{document}

The basic idea for this comes from this post. Please note that you need the listofitems package, which you can be downloaded here. I just wanted to extend the definition of TS in such a way that the second argument can be read by readlist. Then you just create a list called mark which can be accessed over a index.

documentclass{article}

usepackage{amsmath}

usepackage{enumerate}

usepackage{graphics} 

usepackage{tikz}

usetikzlibrary{positioning}

usepackage{listofitems}





tikzstyle{NP}=[rectangle,  

draw=blue!80,

rounded corners=1pt, 

inner sep=12pt,

inner ysep=4pt,

draw, fill=black!0,

text width=2cm,

minimum height=.9cm]



newcommand{TS}[2]{%

    readlist*mark{#2}

    begin{tikzpicture}

    node[rectangle,draw=blue!80,rounded corners=1pt,inner sep=60pt,  inner ysep=16pt, text width=10cm,align=center] 

    {

        begin{enumerate}

        itemsep.1em

        item

        foreach x in {1, ...,#1}{item{ 

                begin{tikzpicture}

                node[NP, fill=black!05](abc){bfseries   x};

                node[NP, right=of abc]{mark[x]};

                end{tikzpicture}

        }}%

        end{enumerate}

};

end{tikzpicture}

}



begin{document}

TS{4}{7,6,4,3}  

end{document}