Código Delphi
[-]
function TForm1.Get2DPoint(X, Y, Z: Extended): TPoint;
begin
Result := Point(Round(XCen + Ratio * (X - Y * 1/sqrt(2))),
Round(YCen + Ratio * (-Z + y *1/sqrt(2))));
end;
Con esta funcion jugando con las variables internas puedes dibujar en un lienzo 2D coordenadas en 3D, cambiando el valor de las constantes y variables que se usan en la funcion se puede escalar, trasladar, y cambiar la perspectiva de manera un tanto dinámica... las variables XCen y YCen pueden ser las coordenadas del centro de tu formulario para que se dibuje a partir del centro....
Ojalá te sirva para comenzar...
http://cgarcia.blogspot.com