Mfcttrf

I am trying to rotate a rectangle to make trace and get a cylinder. My code

documentclass[border=2mm,12pt,tikz]standalone
usepackagetikz-3dplot 
begindocument
 pgfmathsetmacromyr3
 pgfmathsetmacroh4
 foreach X in 10,20,...,350 
 tdplotsetmaincoords70X
 begintikzpicture[tdplot_main_coords,scale=1,line cap=butt,line join=round]
 beginscope[canvas is xy plane at z=0]
 coordinate (O) at (0,0);
 coordinate (A) at (0,myr);

 endscope
 beginscope[canvas is xy plane at z=h]
 coordinate (O') at (0,0);
 coordinate (B) at (0,myr);
 endscope
 foreach v/position in B/below,O/below,A/below,O'/above draw[draw =black, fill=black] (v) circle (1pt) node [position=0.2mm] $v$;
 
 draw[thick] (O) -- (A) -- (B) -- (O') -- cycle; 
 endtikzpicture
enddocument 

How to get the result?

This exploits that coordinates are global. Even though we draw a new picture in each frame, the coordinates A-Z and B-Z are still known. And it is arguably simpler to draw the rectangle in the yz plane, and to use rotated coordinates.

documentclass[border=2mm,12pt,tikz]standalone
usepackagetikz-3dplot 
begindocument
 pgfmathsetmacromyr3
 pgfmathsetmacroh4
 tdplotsetmaincoords700
 foreach X [count=Z] in 0,10,...,360 
 
 begintikzpicture[tdplot_main_coords,scale=1,line cap=butt,line join=round]
 path[tdplot_screen_coords,use as bounding box] (-1.2*myr,-2) rectangle (1.2*myr,1.25*h);
 tdplotsetrotatedcoordsX00
 beginscope[tdplot_rotated_coords,canvas is yz plane at x=0]
 path (0,0) coordinate (O) 
 (myr,0) coordinate (A-Z)(myr,0) coordinate (A)
 (0,h) coordinate (O') 
 (myr,h) coordinate (B-Z) (myr,h) coordinate (B);
 endscope
 foreach v/position in B/below,O/below,A/below,O'/above 
 draw[draw =black, fill=black] (v) circle (1pt) 
 node [position=0.2mm] $v$;
 
 draw[thick] (O) -- (A-Z) -- (B-Z) -- (O') -- cycle; 
 ifnumZ>1
 draw plot[smooth,samples at=1,...,Z] (B-x); 
 ifnumZ>8
 ifnumZ>27
 draw[dashed] plot[smooth,samples at=1,...,9] (A-x); 
 draw[dashed] plot[smooth,samples at=28,...,Z] (A-x); 
 draw plot[smooth,samples at=9,...,28] (A-x); 
 draw (-myr,0,0) -- (-myr,0,h);
 draw (myr,0,0) -- (myr,0,h);
 else
 draw[dashed] plot[smooth,samples at=1,...,9] (A-x); 
 draw plot[smooth,samples at=9,...,Z] (A-x); 
 draw (-myr,0,0) -- (-myr,0,h);
 fi
 else
 draw plot[smooth,samples at=1,...,Z] (A-x); 
 fi
 fi
 endtikzpicture
enddocument