How to anchor the origin (0,0,0) to the center of multiple generated images in tikz?TikZ: Cropping the Bounding BoxAlign edges with anchor other than centerHow to define the default vertical distance between nodes?Understanding TikZ border anchorEdge anchor in tikztikz and pgfdeclareshape why the text is not at the center anchor?small multiple images moving toward each other in beamertikz anchor unexpectedtikz-cd nested tikzpicture wrong center anchortikz: show 0 at the axis origin

How to find the positions of replaced elements in a list

How should I ask for a "pint" in countries that use metric?

Is it ok for parents to kiss and romance with each other while their 2- to 8-year-old child watches?

Why did Old English lose both thorn and eth?

How to anchor the origin (0,0,0) to the center of multiple generated images in tikz?

Are all diatonic chords in the diminished scale diminished?

Why is a mixture of two normally distributed variables only bimodal if their means differ by at least two times the common standard deviation?

Optimization models for portfolio optimization

How does one acquire an undead eyeball encased in a gem?

Party going through airport security at separate times?

Publishing papers seem natural to many, while I find it really hard to think novel stuff to pursue till publication. How to cope up with this?

Finding overlapping polygons in two shapefiles and deleting them in R?

Don't the events of "Forest of the Dead" contradict the fixed point in "The Wedding of River Song"?

What would +1/+2/+3 items be called in game?

This LM317 diagram doesn't make any sense to me

Four ships at the ocean with the same distance

What was this character's plan?

I make billions (#6)

Adjust the Table

What's it called when the bad guy gets eaten?

Who buys a weak currency?

First Entry Member State schengen visa

Write a function

My previous employer committed a severe violation of the law and is also being sued by me. How do I explain the situation to future employers?



How to anchor the origin (0,0,0) to the center of multiple generated images in tikz?


TikZ: Cropping the Bounding BoxAlign edges with anchor other than centerHow to define the default vertical distance between nodes?Understanding TikZ border anchorEdge anchor in tikztikz and pgfdeclareshape why the text is not at the center anchor?small multiple images moving toward each other in beamertikz anchor unexpectedtikz-cd nested tikzpicture wrong center anchortikz: show 0 at the axis origin






.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;








2















I have the following file to generate an animation with a separate file



documentclass[tikz, border=1cm]standalone

usepackagetkz-euclide
usetkzobjall

begindocument

foreach vari in 0,5,10,15,...,360


 begintikzpicture
 [
 scale=.5,
 x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
 rotate around z=vari
 ]

 % coordinates

 coordinate (A) at (3,-3,0);
 coordinate (B) at (3,3,0);
 coordinate (C) at (-3,3,0);
 coordinate (D) at (-3,-3,0);
 coordinate (E) at (3,-3,3);
 coordinate (F) at (3,3,3);
 coordinate (G) at (-3,3,3);
 coordinate (H) at (-3,-3,3);

 tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

 % Axes 3d

 draw[->,>=stealth] (3,0,0) -- (5,0,0);
 draw[->,>=stealth] (0,3,0) -- (0,5,0);
 draw[dashed] (0,0,0) -- (0,0,4);
 draw[dashed] (0,0,0) -- (0,3,0);
 draw[dashed] (0,0,0) -- (3,0,0);

 tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
 tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
 tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
 tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
 tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

 tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
 tkzLabelPoints[above](E,F,G,H)
 tkzLabelPoints[below](A,B,C,D)

 draw[->,>=stealth] (0,0,4) -- (0,0,7); 
 endtikzpicture 

enddocument


but my problem is that the point (0,0,0) changes place during rotation and I would like to have it in a single place throughout the entire animation. Is there a way to anchor it?



Thank you.






tikz-pgf animate







share|improve this question




























    2















    I have the following file to generate an animation with a separate file



    documentclass[tikz, border=1cm]standalone

    usepackagetkz-euclide
    usetkzobjall

    begindocument

    foreach vari in 0,5,10,15,...,360


     begintikzpicture
     [
     scale=.5,
     x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
     rotate around z=vari
     ]

     % coordinates

     coordinate (A) at (3,-3,0);
     coordinate (B) at (3,3,0);
     coordinate (C) at (-3,3,0);
     coordinate (D) at (-3,-3,0);
     coordinate (E) at (3,-3,3);
     coordinate (F) at (3,3,3);
     coordinate (G) at (-3,3,3);
     coordinate (H) at (-3,-3,3);

     tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

     % Axes 3d

     draw[->,>=stealth] (3,0,0) -- (5,0,0);
     draw[->,>=stealth] (0,3,0) -- (0,5,0);
     draw[dashed] (0,0,0) -- (0,0,4);
     draw[dashed] (0,0,0) -- (0,3,0);
     draw[dashed] (0,0,0) -- (3,0,0);

     tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
     tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
     tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
     tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
     tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

     tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
     tkzLabelPoints[above](E,F,G,H)
     tkzLabelPoints[below](A,B,C,D)

     draw[->,>=stealth] (0,0,4) -- (0,0,7); 
     endtikzpicture 

    enddocument


    but my problem is that the point (0,0,0) changes place during rotation and I would like to have it in a single place throughout the entire animation. Is there a way to anchor it?



    Thank you.






    tikz-pgf animate







    share|improve this question
























      2












      2








      2








      I have the following file to generate an animation with a separate file



      documentclass[tikz, border=1cm]standalone

      usepackagetkz-euclide
      usetkzobjall

      begindocument

      foreach vari in 0,5,10,15,...,360


       begintikzpicture
       [
       scale=.5,
       x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
       rotate around z=vari
       ]

       % coordinates

       coordinate (A) at (3,-3,0);
       coordinate (B) at (3,3,0);
       coordinate (C) at (-3,3,0);
       coordinate (D) at (-3,-3,0);
       coordinate (E) at (3,-3,3);
       coordinate (F) at (3,3,3);
       coordinate (G) at (-3,3,3);
       coordinate (H) at (-3,-3,3);

       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

       % Axes 3d

       draw[->,>=stealth] (3,0,0) -- (5,0,0);
       draw[->,>=stealth] (0,3,0) -- (0,5,0);
       draw[dashed] (0,0,0) -- (0,0,4);
       draw[dashed] (0,0,0) -- (0,3,0);
       draw[dashed] (0,0,0) -- (3,0,0);

       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

       tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
       tkzLabelPoints[above](E,F,G,H)
       tkzLabelPoints[below](A,B,C,D)

       draw[->,>=stealth] (0,0,4) -- (0,0,7); 
       endtikzpicture 

      enddocument


      but my problem is that the point (0,0,0) changes place during rotation and I would like to have it in a single place throughout the entire animation. Is there a way to anchor it?



      Thank you.






      tikz-pgf animate







      share|improve this question














      I have the following file to generate an animation with a separate file



      documentclass[tikz, border=1cm]standalone

      usepackagetkz-euclide
      usetkzobjall

      begindocument

      foreach vari in 0,5,10,15,...,360


       begintikzpicture
       [
       scale=.5,
       x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
       rotate around z=vari
       ]

       % coordinates

       coordinate (A) at (3,-3,0);
       coordinate (B) at (3,3,0);
       coordinate (C) at (-3,3,0);
       coordinate (D) at (-3,-3,0);
       coordinate (E) at (3,-3,3);
       coordinate (F) at (3,3,3);
       coordinate (G) at (-3,3,3);
       coordinate (H) at (-3,-3,3);

       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

       % Axes 3d

       draw[->,>=stealth] (3,0,0) -- (5,0,0);
       draw[->,>=stealth] (0,3,0) -- (0,5,0);
       draw[dashed] (0,0,0) -- (0,0,4);
       draw[dashed] (0,0,0) -- (0,3,0);
       draw[dashed] (0,0,0) -- (3,0,0);

       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
       tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

       tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
       tkzLabelPoints[above](E,F,G,H)
       tkzLabelPoints[below](A,B,C,D)

       draw[->,>=stealth] (0,0,4) -- (0,0,7); 
       endtikzpicture 

      enddocument


      but my problem is that the point (0,0,0) changes place during rotation and I would like to have it in a single place throughout the entire animation. Is there a way to anchor it?



      Thank you.






      tikz-pgf animate




      tikz-pgf animate






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 9 hours ago









      Concept7Concept7

      1237 bronze badges




      1237 bronze badges




















          1 Answer
          1






          active

          oldest

          votes


















          3














          It is not the point (0,0,0) that changes but the bounding box. To prevent this from happening, you can set a bounding box yourself, e.g. by saying 



           path[use as bounding box] (-4,-1.45) rectangle (4,4);


          This yields



          documentclass[tikz, border=1cm]standalone

          usepackagetkz-euclide
          usetkzobjall

          begindocument

          foreach vari in 0,5,10,15,...,360


           begintikzpicture
           path[use as bounding box] (-4,-1.45) rectangle (4,4);
           beginscope
           [
           scale=.5,
           x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
           rotate around z=vari
           ]

           % coordinates
           coordinate (A) at (3,-3,0);
           coordinate (B) at (3,3,0);
           coordinate (C) at (-3,3,0);
           coordinate (D) at (-3,-3,0);
           coordinate (E) at (3,-3,3);
           coordinate (F) at (3,3,3);
           coordinate (G) at (-3,3,3);
           coordinate (H) at (-3,-3,3);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

           % Axes 3d

           draw[->,>=stealth] (3,0,0) -- (5,0,0);
           draw[->,>=stealth] (0,3,0) -- (0,5,0);
           draw[dashed] (0,0,0) -- (0,0,4);
           draw[dashed] (0,0,0) -- (0,3,0);
           draw[dashed] (0,0,0) -- (3,0,0);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

           tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
           tkzLabelPoints[above](E,F,G,H)
           tkzLabelPoints[below](A,B,C,D)

           draw[->,>=stealth] (0,0,4) -- (0,0,7); 
           endscope 
           endtikzpicture 

          enddocument


          enter image description here



          However, I would recommend tikz-3dplot for that. It allows you to do orthographic projections, and makes it more easy to distinguish hidden from foreground faces. I also use [a routine to determine the minimal bounding box that fits all frames.



          documentclass[tikz,border=3.14mm]standalone
          usepackagetikz-3dplot
          newcounterx
          newcountery
          newcounterz
          tikzsetplane/.style n args=3insert path=%
          #1 -- ++ #2 -- ++ #3 -- ++ ($-1*#2$) -- cycle,
          xy plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,pgfkeysvalueof/tikz/3d block/y length,0),
          xz plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          yz plane/.style=plane=#1(0,pgfkeysvalueof/tikz/3d block/y length,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          get projections/.style=insert path=%
          let p1=(1,0,0),p2=(0,1,0) in 
          [/utils/exec=pgfmathtruncatemacroxprojsign(x1)xdefxprojxproj
          pgfmathtruncatemacroyprojsign(x2)xdefyprojyproj
          pgfmathtruncatemacrozprojsign(cos(tdplotmaintheta))xdefzprojzproj],
          pics/3d block/.style=code=
          tikzset3d block/.cd,#1
          path[get projections];
          ifnumzproj=-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumzproj>-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ,
          3d block/.cd,
          xy face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          xz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          yz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          every face/.style=draw,very thick,
          x length/.initial=1,
          y length/.initial=1,
          z length/.initial=1,
          /tikz/retrieve bounding box/.style=insert path=
           let p1=(current bounding box.south west),
           p2=(current bounding box.north east)
           in pgfextra%
           pgfmathsetmacroxminmin(x1,xmin)
           pgfmathsetmacroxmaxmax(x2,xmax)
           pgfmathsetmacroyminmin(y1,ymin)
           pgfmathsetmacroymaxmax(y2,ymax)
           xdefxminxmin pt
           xdefxmaxxmax pt 
           xdefyminymin pt
           xdefymaxymax pt 
           %typeoutxmin,xmax,ymin,ymax 
           
          pgfmathsetmacroxmin0
          pgfmathsetmacroxmax0
          pgfmathsetmacroymin0
          pgfmathsetmacroymax0
          begindocument
          foreach vari in 0,5,10,15,...,360
          tdplotsetmaincoords70vari % the first argument cannot be larger than 90
          begintikzpicture[line join=round,tdplot_main_coords,>=stealth]
           ifdefinedfigbbrelax
           path figbb;
           fi
           coordinate (A) at (3,-3,-1.5);
           coordinate (B) at (3,3,-1.5);
           coordinate (C) at (-3,3,-1.5);
           coordinate (D) at (-3,-3,-1.5);
           coordinate (E) at (3,-3,1.5);
           coordinate (F) at (3,3,1.5);
           coordinate (G) at (-3,3,1.5);
           coordinate (H) at (-3,-3,1.5); 
           foreach X in A,B,C,D
           path (X) node[below]X;
           draw[dashed] (3,0,-1.5) -- (0,0,-1.5) -- (0,3,-1.5)
           (0,0,-1.5) -- (0,0,1.5);
           draw[thick,->] (3,0,-1.5) -- (5,0,-1.5);
           draw[thick,->] (0,3,-1.5) -- (0,5,-1.5);
           pic3d block=x length=6,y length=6,z length=3;
           draw[thick,->] (0,0,1.5) -- (0,0,4);
           foreach X in E,F,G,H
           path (X) node[above]X;
           path[retrieve bounding box];
          endtikzpicture
          makeatletter 
          edeffigbb(xmin,ymin) rectangle (xmax,ymax)
          immediatewrite@mainauxxdefstringfigbbfigbbrelax
          makeatother
          enddocument


          enter image description here






          share|improve this answer

























          • Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

            – Concept7
            8 hours ago






          • 2





            @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

            – marmot
            8 hours ago






          • 1





            @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

            – marmot
            8 hours ago













          Your Answer








          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "85"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );













          draft saved

          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f499021%2fhow-to-anchor-the-origin-0-0-0-to-the-center-of-multiple-generated-images-in-t%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          3














          It is not the point (0,0,0) that changes but the bounding box. To prevent this from happening, you can set a bounding box yourself, e.g. by saying 



           path[use as bounding box] (-4,-1.45) rectangle (4,4);


          This yields



          documentclass[tikz, border=1cm]standalone

          usepackagetkz-euclide
          usetkzobjall

          begindocument

          foreach vari in 0,5,10,15,...,360


           begintikzpicture
           path[use as bounding box] (-4,-1.45) rectangle (4,4);
           beginscope
           [
           scale=.5,
           x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
           rotate around z=vari
           ]

           % coordinates
           coordinate (A) at (3,-3,0);
           coordinate (B) at (3,3,0);
           coordinate (C) at (-3,3,0);
           coordinate (D) at (-3,-3,0);
           coordinate (E) at (3,-3,3);
           coordinate (F) at (3,3,3);
           coordinate (G) at (-3,3,3);
           coordinate (H) at (-3,-3,3);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

           % Axes 3d

           draw[->,>=stealth] (3,0,0) -- (5,0,0);
           draw[->,>=stealth] (0,3,0) -- (0,5,0);
           draw[dashed] (0,0,0) -- (0,0,4);
           draw[dashed] (0,0,0) -- (0,3,0);
           draw[dashed] (0,0,0) -- (3,0,0);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

           tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
           tkzLabelPoints[above](E,F,G,H)
           tkzLabelPoints[below](A,B,C,D)

           draw[->,>=stealth] (0,0,4) -- (0,0,7); 
           endscope 
           endtikzpicture 

          enddocument


          enter image description here



          However, I would recommend tikz-3dplot for that. It allows you to do orthographic projections, and makes it more easy to distinguish hidden from foreground faces. I also use [a routine to determine the minimal bounding box that fits all frames.



          documentclass[tikz,border=3.14mm]standalone
          usepackagetikz-3dplot
          newcounterx
          newcountery
          newcounterz
          tikzsetplane/.style n args=3insert path=%
          #1 -- ++ #2 -- ++ #3 -- ++ ($-1*#2$) -- cycle,
          xy plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,pgfkeysvalueof/tikz/3d block/y length,0),
          xz plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          yz plane/.style=plane=#1(0,pgfkeysvalueof/tikz/3d block/y length,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          get projections/.style=insert path=%
          let p1=(1,0,0),p2=(0,1,0) in 
          [/utils/exec=pgfmathtruncatemacroxprojsign(x1)xdefxprojxproj
          pgfmathtruncatemacroyprojsign(x2)xdefyprojyproj
          pgfmathtruncatemacrozprojsign(cos(tdplotmaintheta))xdefzprojzproj],
          pics/3d block/.style=code=
          tikzset3d block/.cd,#1
          path[get projections];
          ifnumzproj=-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumzproj>-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ,
          3d block/.cd,
          xy face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          xz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          yz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          every face/.style=draw,very thick,
          x length/.initial=1,
          y length/.initial=1,
          z length/.initial=1,
          /tikz/retrieve bounding box/.style=insert path=
           let p1=(current bounding box.south west),
           p2=(current bounding box.north east)
           in pgfextra%
           pgfmathsetmacroxminmin(x1,xmin)
           pgfmathsetmacroxmaxmax(x2,xmax)
           pgfmathsetmacroyminmin(y1,ymin)
           pgfmathsetmacroymaxmax(y2,ymax)
           xdefxminxmin pt
           xdefxmaxxmax pt 
           xdefyminymin pt
           xdefymaxymax pt 
           %typeoutxmin,xmax,ymin,ymax 
           
          pgfmathsetmacroxmin0
          pgfmathsetmacroxmax0
          pgfmathsetmacroymin0
          pgfmathsetmacroymax0
          begindocument
          foreach vari in 0,5,10,15,...,360
          tdplotsetmaincoords70vari % the first argument cannot be larger than 90
          begintikzpicture[line join=round,tdplot_main_coords,>=stealth]
           ifdefinedfigbbrelax
           path figbb;
           fi
           coordinate (A) at (3,-3,-1.5);
           coordinate (B) at (3,3,-1.5);
           coordinate (C) at (-3,3,-1.5);
           coordinate (D) at (-3,-3,-1.5);
           coordinate (E) at (3,-3,1.5);
           coordinate (F) at (3,3,1.5);
           coordinate (G) at (-3,3,1.5);
           coordinate (H) at (-3,-3,1.5); 
           foreach X in A,B,C,D
           path (X) node[below]X;
           draw[dashed] (3,0,-1.5) -- (0,0,-1.5) -- (0,3,-1.5)
           (0,0,-1.5) -- (0,0,1.5);
           draw[thick,->] (3,0,-1.5) -- (5,0,-1.5);
           draw[thick,->] (0,3,-1.5) -- (0,5,-1.5);
           pic3d block=x length=6,y length=6,z length=3;
           draw[thick,->] (0,0,1.5) -- (0,0,4);
           foreach X in E,F,G,H
           path (X) node[above]X;
           path[retrieve bounding box];
          endtikzpicture
          makeatletter 
          edeffigbb(xmin,ymin) rectangle (xmax,ymax)
          immediatewrite@mainauxxdefstringfigbbfigbbrelax
          makeatother
          enddocument


          enter image description here






          share|improve this answer

























          • Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

            – Concept7
            8 hours ago






          • 2





            @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

            – marmot
            8 hours ago






          • 1





            @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

            – marmot
            8 hours ago















          3














          It is not the point (0,0,0) that changes but the bounding box. To prevent this from happening, you can set a bounding box yourself, e.g. by saying 



           path[use as bounding box] (-4,-1.45) rectangle (4,4);


          This yields



          documentclass[tikz, border=1cm]standalone

          usepackagetkz-euclide
          usetkzobjall

          begindocument

          foreach vari in 0,5,10,15,...,360


           begintikzpicture
           path[use as bounding box] (-4,-1.45) rectangle (4,4);
           beginscope
           [
           scale=.5,
           x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
           rotate around z=vari
           ]

           % coordinates
           coordinate (A) at (3,-3,0);
           coordinate (B) at (3,3,0);
           coordinate (C) at (-3,3,0);
           coordinate (D) at (-3,-3,0);
           coordinate (E) at (3,-3,3);
           coordinate (F) at (3,3,3);
           coordinate (G) at (-3,3,3);
           coordinate (H) at (-3,-3,3);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

           % Axes 3d

           draw[->,>=stealth] (3,0,0) -- (5,0,0);
           draw[->,>=stealth] (0,3,0) -- (0,5,0);
           draw[dashed] (0,0,0) -- (0,0,4);
           draw[dashed] (0,0,0) -- (0,3,0);
           draw[dashed] (0,0,0) -- (3,0,0);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

           tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
           tkzLabelPoints[above](E,F,G,H)
           tkzLabelPoints[below](A,B,C,D)

           draw[->,>=stealth] (0,0,4) -- (0,0,7); 
           endscope 
           endtikzpicture 

          enddocument


          enter image description here



          However, I would recommend tikz-3dplot for that. It allows you to do orthographic projections, and makes it more easy to distinguish hidden from foreground faces. I also use [a routine to determine the minimal bounding box that fits all frames.



          documentclass[tikz,border=3.14mm]standalone
          usepackagetikz-3dplot
          newcounterx
          newcountery
          newcounterz
          tikzsetplane/.style n args=3insert path=%
          #1 -- ++ #2 -- ++ #3 -- ++ ($-1*#2$) -- cycle,
          xy plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,pgfkeysvalueof/tikz/3d block/y length,0),
          xz plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          yz plane/.style=plane=#1(0,pgfkeysvalueof/tikz/3d block/y length,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          get projections/.style=insert path=%
          let p1=(1,0,0),p2=(0,1,0) in 
          [/utils/exec=pgfmathtruncatemacroxprojsign(x1)xdefxprojxproj
          pgfmathtruncatemacroyprojsign(x2)xdefyprojyproj
          pgfmathtruncatemacrozprojsign(cos(tdplotmaintheta))xdefzprojzproj],
          pics/3d block/.style=code=
          tikzset3d block/.cd,#1
          path[get projections];
          ifnumzproj=-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumzproj>-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ,
          3d block/.cd,
          xy face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          xz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          yz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          every face/.style=draw,very thick,
          x length/.initial=1,
          y length/.initial=1,
          z length/.initial=1,
          /tikz/retrieve bounding box/.style=insert path=
           let p1=(current bounding box.south west),
           p2=(current bounding box.north east)
           in pgfextra%
           pgfmathsetmacroxminmin(x1,xmin)
           pgfmathsetmacroxmaxmax(x2,xmax)
           pgfmathsetmacroyminmin(y1,ymin)
           pgfmathsetmacroymaxmax(y2,ymax)
           xdefxminxmin pt
           xdefxmaxxmax pt 
           xdefyminymin pt
           xdefymaxymax pt 
           %typeoutxmin,xmax,ymin,ymax 
           
          pgfmathsetmacroxmin0
          pgfmathsetmacroxmax0
          pgfmathsetmacroymin0
          pgfmathsetmacroymax0
          begindocument
          foreach vari in 0,5,10,15,...,360
          tdplotsetmaincoords70vari % the first argument cannot be larger than 90
          begintikzpicture[line join=round,tdplot_main_coords,>=stealth]
           ifdefinedfigbbrelax
           path figbb;
           fi
           coordinate (A) at (3,-3,-1.5);
           coordinate (B) at (3,3,-1.5);
           coordinate (C) at (-3,3,-1.5);
           coordinate (D) at (-3,-3,-1.5);
           coordinate (E) at (3,-3,1.5);
           coordinate (F) at (3,3,1.5);
           coordinate (G) at (-3,3,1.5);
           coordinate (H) at (-3,-3,1.5); 
           foreach X in A,B,C,D
           path (X) node[below]X;
           draw[dashed] (3,0,-1.5) -- (0,0,-1.5) -- (0,3,-1.5)
           (0,0,-1.5) -- (0,0,1.5);
           draw[thick,->] (3,0,-1.5) -- (5,0,-1.5);
           draw[thick,->] (0,3,-1.5) -- (0,5,-1.5);
           pic3d block=x length=6,y length=6,z length=3;
           draw[thick,->] (0,0,1.5) -- (0,0,4);
           foreach X in E,F,G,H
           path (X) node[above]X;
           path[retrieve bounding box];
          endtikzpicture
          makeatletter 
          edeffigbb(xmin,ymin) rectangle (xmax,ymax)
          immediatewrite@mainauxxdefstringfigbbfigbbrelax
          makeatother
          enddocument


          enter image description here






          share|improve this answer

























          • Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

            – Concept7
            8 hours ago






          • 2





            @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

            – marmot
            8 hours ago






          • 1





            @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

            – marmot
            8 hours ago













          3












          3








          3







          It is not the point (0,0,0) that changes but the bounding box. To prevent this from happening, you can set a bounding box yourself, e.g. by saying 



           path[use as bounding box] (-4,-1.45) rectangle (4,4);


          This yields



          documentclass[tikz, border=1cm]standalone

          usepackagetkz-euclide
          usetkzobjall

          begindocument

          foreach vari in 0,5,10,15,...,360


           begintikzpicture
           path[use as bounding box] (-4,-1.45) rectangle (4,4);
           beginscope
           [
           scale=.5,
           x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
           rotate around z=vari
           ]

           % coordinates
           coordinate (A) at (3,-3,0);
           coordinate (B) at (3,3,0);
           coordinate (C) at (-3,3,0);
           coordinate (D) at (-3,-3,0);
           coordinate (E) at (3,-3,3);
           coordinate (F) at (3,3,3);
           coordinate (G) at (-3,3,3);
           coordinate (H) at (-3,-3,3);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

           % Axes 3d

           draw[->,>=stealth] (3,0,0) -- (5,0,0);
           draw[->,>=stealth] (0,3,0) -- (0,5,0);
           draw[dashed] (0,0,0) -- (0,0,4);
           draw[dashed] (0,0,0) -- (0,3,0);
           draw[dashed] (0,0,0) -- (3,0,0);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

           tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
           tkzLabelPoints[above](E,F,G,H)
           tkzLabelPoints[below](A,B,C,D)

           draw[->,>=stealth] (0,0,4) -- (0,0,7); 
           endscope 
           endtikzpicture 

          enddocument


          enter image description here



          However, I would recommend tikz-3dplot for that. It allows you to do orthographic projections, and makes it more easy to distinguish hidden from foreground faces. I also use [a routine to determine the minimal bounding box that fits all frames.



          documentclass[tikz,border=3.14mm]standalone
          usepackagetikz-3dplot
          newcounterx
          newcountery
          newcounterz
          tikzsetplane/.style n args=3insert path=%
          #1 -- ++ #2 -- ++ #3 -- ++ ($-1*#2$) -- cycle,
          xy plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,pgfkeysvalueof/tikz/3d block/y length,0),
          xz plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          yz plane/.style=plane=#1(0,pgfkeysvalueof/tikz/3d block/y length,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          get projections/.style=insert path=%
          let p1=(1,0,0),p2=(0,1,0) in 
          [/utils/exec=pgfmathtruncatemacroxprojsign(x1)xdefxprojxproj
          pgfmathtruncatemacroyprojsign(x2)xdefyprojyproj
          pgfmathtruncatemacrozprojsign(cos(tdplotmaintheta))xdefzprojzproj],
          pics/3d block/.style=code=
          tikzset3d block/.cd,#1
          path[get projections];
          ifnumzproj=-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumzproj>-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ,
          3d block/.cd,
          xy face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          xz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          yz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          every face/.style=draw,very thick,
          x length/.initial=1,
          y length/.initial=1,
          z length/.initial=1,
          /tikz/retrieve bounding box/.style=insert path=
           let p1=(current bounding box.south west),
           p2=(current bounding box.north east)
           in pgfextra%
           pgfmathsetmacroxminmin(x1,xmin)
           pgfmathsetmacroxmaxmax(x2,xmax)
           pgfmathsetmacroyminmin(y1,ymin)
           pgfmathsetmacroymaxmax(y2,ymax)
           xdefxminxmin pt
           xdefxmaxxmax pt 
           xdefyminymin pt
           xdefymaxymax pt 
           %typeoutxmin,xmax,ymin,ymax 
           
          pgfmathsetmacroxmin0
          pgfmathsetmacroxmax0
          pgfmathsetmacroymin0
          pgfmathsetmacroymax0
          begindocument
          foreach vari in 0,5,10,15,...,360
          tdplotsetmaincoords70vari % the first argument cannot be larger than 90
          begintikzpicture[line join=round,tdplot_main_coords,>=stealth]
           ifdefinedfigbbrelax
           path figbb;
           fi
           coordinate (A) at (3,-3,-1.5);
           coordinate (B) at (3,3,-1.5);
           coordinate (C) at (-3,3,-1.5);
           coordinate (D) at (-3,-3,-1.5);
           coordinate (E) at (3,-3,1.5);
           coordinate (F) at (3,3,1.5);
           coordinate (G) at (-3,3,1.5);
           coordinate (H) at (-3,-3,1.5); 
           foreach X in A,B,C,D
           path (X) node[below]X;
           draw[dashed] (3,0,-1.5) -- (0,0,-1.5) -- (0,3,-1.5)
           (0,0,-1.5) -- (0,0,1.5);
           draw[thick,->] (3,0,-1.5) -- (5,0,-1.5);
           draw[thick,->] (0,3,-1.5) -- (0,5,-1.5);
           pic3d block=x length=6,y length=6,z length=3;
           draw[thick,->] (0,0,1.5) -- (0,0,4);
           foreach X in E,F,G,H
           path (X) node[above]X;
           path[retrieve bounding box];
          endtikzpicture
          makeatletter 
          edeffigbb(xmin,ymin) rectangle (xmax,ymax)
          immediatewrite@mainauxxdefstringfigbbfigbbrelax
          makeatother
          enddocument


          enter image description here






          share|improve this answer















          It is not the point (0,0,0) that changes but the bounding box. To prevent this from happening, you can set a bounding box yourself, e.g. by saying 



           path[use as bounding box] (-4,-1.45) rectangle (4,4);


          This yields



          documentclass[tikz, border=1cm]standalone

          usepackagetkz-euclide
          usetkzobjall

          begindocument

          foreach vari in 0,5,10,15,...,360


           begintikzpicture
           path[use as bounding box] (-4,-1.45) rectangle (4,4);
           beginscope
           [
           scale=.5,
           x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),
           rotate around z=vari
           ]

           % coordinates
           coordinate (A) at (3,-3,0);
           coordinate (B) at (3,3,0);
           coordinate (C) at (-3,3,0);
           coordinate (D) at (-3,-3,0);
           coordinate (E) at (3,-3,3);
           coordinate (F) at (3,3,3);
           coordinate (G) at (-3,3,3);
           coordinate (H) at (-3,-3,3);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](C,D,H,G)

           % Axes 3d

           draw[->,>=stealth] (3,0,0) -- (5,0,0);
           draw[->,>=stealth] (0,3,0) -- (0,5,0);
           draw[dashed] (0,0,0) -- (0,0,4);
           draw[dashed] (0,0,0) -- (0,3,0);
           draw[dashed] (0,0,0) -- (3,0,0);

           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,C,D)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](B,C,G,F)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,D,H,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](A,B,F,E)
           tkzDrawPolygon[fill=blue!20,opacity=.5,rounded corners=.1pt](G,H,E,F)

           tkzDrawSegments[ultra thick](A,B B,C C,G G,H H,E E,F E,A F,B F,G)
           tkzLabelPoints[above](E,F,G,H)
           tkzLabelPoints[below](A,B,C,D)

           draw[->,>=stealth] (0,0,4) -- (0,0,7); 
           endscope 
           endtikzpicture 

          enddocument


          enter image description here



          However, I would recommend tikz-3dplot for that. It allows you to do orthographic projections, and makes it more easy to distinguish hidden from foreground faces. I also use [a routine to determine the minimal bounding box that fits all frames.



          documentclass[tikz,border=3.14mm]standalone
          usepackagetikz-3dplot
          newcounterx
          newcountery
          newcounterz
          tikzsetplane/.style n args=3insert path=%
          #1 -- ++ #2 -- ++ #3 -- ++ ($-1*#2$) -- cycle,
          xy plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,pgfkeysvalueof/tikz/3d block/y length,0),
          xz plane/.style=plane=#1(pgfkeysvalueof/tikz/3d block/x length,0,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          yz plane/.style=plane=#1(0,pgfkeysvalueof/tikz/3d block/y length,0)(0,0,pgfkeysvalueof/tikz/3d block/z length),
          get projections/.style=insert path=%
          let p1=(1,0,0),p2=(0,1,0) in 
          [/utils/exec=pgfmathtruncatemacroxprojsign(x1)xdefxprojxproj
          pgfmathtruncatemacroyprojsign(x2)xdefyprojyproj
          pgfmathtruncatemacrozprojsign(cos(tdplotmaintheta))xdefzprojzproj],
          pics/3d block/.style=code=
          tikzset3d block/.cd,#1
          path[get projections];
          ifnumzproj=-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumyproj=1
           path[3d block/every face,3d block/yz face,yz plane=
           (pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/yz face,yz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumxproj=1
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xz face,xz plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ifnumzproj>-1
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           pgfkeysvalueof/tikz/3d block/z length/2)]; 
          else
           path[3d block/every face,3d block/xy face,xy plane=
           (-pgfkeysvalueof/tikz/3d block/x length/2,
           -pgfkeysvalueof/tikz/3d block/y length/2,
           -pgfkeysvalueof/tikz/3d block/z length/2)]; 
          fi
          ,
          3d block/.cd,
          xy face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          xz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          yz face/.style=fill=blue!20,opacity=.5,rounded corners=.1pt,
          every face/.style=draw,very thick,
          x length/.initial=1,
          y length/.initial=1,
          z length/.initial=1,
          /tikz/retrieve bounding box/.style=insert path=
           let p1=(current bounding box.south west),
           p2=(current bounding box.north east)
           in pgfextra%
           pgfmathsetmacroxminmin(x1,xmin)
           pgfmathsetmacroxmaxmax(x2,xmax)
           pgfmathsetmacroyminmin(y1,ymin)
           pgfmathsetmacroymaxmax(y2,ymax)
           xdefxminxmin pt
           xdefxmaxxmax pt 
           xdefyminymin pt
           xdefymaxymax pt 
           %typeoutxmin,xmax,ymin,ymax 
           
          pgfmathsetmacroxmin0
          pgfmathsetmacroxmax0
          pgfmathsetmacroymin0
          pgfmathsetmacroymax0
          begindocument
          foreach vari in 0,5,10,15,...,360
          tdplotsetmaincoords70vari % the first argument cannot be larger than 90
          begintikzpicture[line join=round,tdplot_main_coords,>=stealth]
           ifdefinedfigbbrelax
           path figbb;
           fi
           coordinate (A) at (3,-3,-1.5);
           coordinate (B) at (3,3,-1.5);
           coordinate (C) at (-3,3,-1.5);
           coordinate (D) at (-3,-3,-1.5);
           coordinate (E) at (3,-3,1.5);
           coordinate (F) at (3,3,1.5);
           coordinate (G) at (-3,3,1.5);
           coordinate (H) at (-3,-3,1.5); 
           foreach X in A,B,C,D
           path (X) node[below]X;
           draw[dashed] (3,0,-1.5) -- (0,0,-1.5) -- (0,3,-1.5)
           (0,0,-1.5) -- (0,0,1.5);
           draw[thick,->] (3,0,-1.5) -- (5,0,-1.5);
           draw[thick,->] (0,3,-1.5) -- (0,5,-1.5);
           pic3d block=x length=6,y length=6,z length=3;
           draw[thick,->] (0,0,1.5) -- (0,0,4);
           foreach X in E,F,G,H
           path (X) node[above]X;
           path[retrieve bounding box];
          endtikzpicture
          makeatletter 
          edeffigbb(xmin,ymin) rectangle (xmax,ymax)
          immediatewrite@mainauxxdefstringfigbbfigbbrelax
          makeatother
          enddocument


          enter image description here







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 8 hours ago

























          answered 8 hours ago









          marmotmarmot

          143k6 gold badges187 silver badges345 bronze badges




          143k6 gold badges187 silver badges345 bronze badges












          • Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

            – Concept7
            8 hours ago






          • 2





            @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

            – marmot
            8 hours ago






          • 1





            @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

            – marmot
            8 hours ago

















          • Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

            – Concept7
            8 hours ago






          • 2





            @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

            – marmot
            8 hours ago






          • 1





            @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

            – marmot
            8 hours ago
















          Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

          – Concept7
          8 hours ago





          Do you mean load tikz-3dplot instead of tikz package? Is there a possible significant reduction in code complexity? I haven't looked into tikz-3dplot package so I don't know the commands available in it.

          – Concept7
          8 hours ago




          2




          2





          @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

          – marmot
          8 hours ago





          @Concept7 The tikz-3dplot package loads tikz and allows you to set the view angles and then does an orthographic projection. That is, it will replace ` x=(-1cm,-.25cm),y=(1cm,-.25cm),z=(0cm,1cm),` by something entirely fixed by the view angles.

          – marmot
          8 hours ago




          1




          1





          @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

          – marmot
          8 hours ago





          @Concept7 I added a tikz-3dplot version. True, one needs more preparations, but you can adjust the view more easily and can also more easily distinguish between foreground and background faces.

          – marmot
          8 hours ago

















          draft saved

          draft discarded
















































          Thanks for contributing an answer to TeX - LaTeX Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid …


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f499021%2fhow-to-anchor-the-origin-0-0-0-to-the-center-of-multiple-generated-images-in-t%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          -

          Popular posts from this blog

          Canceling a color specificationRandomly assigning color to Graphics3D objects?Default color for Filling in Mathematica 9Coloring specific elements of sets with a prime modified order in an array plotHow to pick a color differing significantly from the colors already in a given color list?Detection of the text colorColor numbers based on their valueCan color schemes for use with ColorData include opacity specification?My dynamic color schemes

          Image
          Would it be easier to colonise a living world or a dead world? Postal services in Italy - Poste Italiane vs. Friendpost vs. GPS What is /dev/null and why can't I use hx on it? Why are engines with carburetors hard to start in cold weather? How to make a gift without seeming creepy? Without exposing his identity, did Roy help his parents with money so that they can afford to stay in their home? Does the Creighton Method of Natural Family Planning have a failure rate of 3.2% or less? How do I break the broom in Untitled Goose Game? Had there been instances of national states banning harmful imports before the mid-19th C Opium Wars? D&D Monsters and Copyright Is sleeping on the groud in cold weather better than on an air mattress? Transiting through Switzerland by coach with lots of cash quadratic equations on 2 by 2 matrices Always Lubricate Skewers? I pay for a service, but I miss the broadcast Iron-age tools, is there a way to extract heavy metals ...
          Read more

          Invision Community Contents History See also References External links Navigation menuProprietaryinvisioncommunity.comIPS Community ForumsIPS Community Forumsthis blog entry"License Changes, IP.Board 3.4, and the Future""Interview -- Matt Mecham of Ibforums""CEO Invision Power Board, Matt Mecham Is a Liar, Thief!"IPB License Explanation 1.3, 1.3.1, 2.0, and 2.1ArchivedSecurity Fixes, Updates And Enhancements For IPB 1.3.1Archived"New Demo Accounts - Invision Power Services"the original"New Default Skin"the original"Invision Power Board 3.0.0 and Applications Released"the original"Archived copy"the original"Perpetual licenses being done away with""Release Notes - Invision Power Services""Introducing: IPS Community Suite 4!"Invision Community Release Notes

          Image
          Internet forum softwarePHP software Internet communityPHPMySQLdatabase management systemInternet forumCharles WarnerMatt MechamJarvis Entertainment GroupIkonboardInvisionFreeAjaxIPS Community ForumsIPS Community Forumsthis blog entry Invision Community From Wikipedia, the free encyclopedia Jump to navigation Jump to search Invision Community Developer(s) Invision Power Services Stable release 4.4.6 / August 19, 2019 ; 34 days ago  ( 2019-08-19 ) Platform PHP / MySQL Type Forum software License Proprietary Website invisioncommunity.com Invision Community (previously known as IPS Community Suite ) is primarily an Internet community software produced by Invision Power Services, Inc. It is written in PHP and uses MySQL as a database management system. Invision Power Services sell applications that each can be bought and installed separately in addition to the Suite, the most widely known being the Internet forum software Invision Power Boar...
          Read more

          199年 目錄 大件事 到箇年出世嗰人 到箇年死嗰人 節慶、風俗習慣 導覽選單

          Image
          199年 平年 199年 出自維基百科 跳至導覽 跳至搜尋 世紀： 1世紀 2世紀 3世紀 年代： 160年代 170年代 180年代 190年代 200年代 210年代 220年代 年： 194年 195年 196年 197年 198年 199年 200年 201年 202年 203年 204年 干支年： 己卯年 （ 兔年 ） 年號： 199年 係平年。 目錄 1 大件事 2 到箇年出世嗰人 3 到箇年死嗰人 4 節慶、風俗習慣 大件事 199...
          Read more