Jason, thanks for that. I tried your script, and after a lot of tweaking came up with this one.
PROCEDURE Rotate3;
BEGIN
Beginxtrd(0,6); {draw shape}
Rect(0,0,2,1);
EndXtrd;
Duplicate(6,0);
Rotate3d(-90,0,0);
Duplicate(6,0);
Rotate3d(0,0,90);
END;
RUN(Rotate3);
This seems to always rotate the first shape, but duplicates the duplicate, so I think I am not selecting the right object to rotate. When I work out how to do that I may have got it sorted.
Then I tried this, to duplicate and rotate the selected object in the drawing.
PROCEDURE Rotate4;
BEGIN
Duplicate(6,0);
Rotate3d(-90,0,0);
Duplicate(6,0);
Rotate3d(0,0,90);
END;
RUN(Rotate4);
This doesn't rotate any shape, but duplicates the original OK
All I was trying to do was generate 3rd angle views of an object in my drawing. Perhaps as a non-programmer I should have stuck to the simple method. :-)
Steve