Dibujo-coordenadas-obtener

[Omnimusha]

Hola, me preguntaba como podría obtener las coerdenadas (XYZ). De un cuerpo cualquiera. Me imagino una especie de plano que corte el.

Cuerpo y me tire las coerdenadas de ese corte y.

Así sucesibamente hasta tener el total de las coerdenados.

Del cuerpo, por capas.

Desde ya mucahs gracias.

[marc31]

Así en plan a mano, pues cómo se hace una talla o una escultura por puntos. Con un puntometro, que consiste en un pequeño brazo articulado con una larga aguja la cual saca puntos de referencia en el modelo que son trasladados al bloque para esculpir, o tallár.

En plan rudimentario, podrías usar varios centímetros y unas escuadras y sargentos. http://lillogaliani.com/wp-content/u... thumbnail.jpg. http://upload.wikimedia.org/wikipedi...ng_machine.jpg.

En plan, con recursos dinero y tecnología, con un escáner 3d, o con un programa que a partir de unas precisas fotografías te de los puntos, o el modelo.

El primer scanner 3d que me ha salido en google. http://www.zcorp.com/en/products/3d-...600/spage.aspx.

[Omnimusha]

Bueno, he encontrado una. Solución parcial-. Me tira todos las coordenadas de un objeto-. Aún no he determinado que me lo haga por capas.

-Crear una esfera con el nombre sphere01.

Converttomesh $sphere01.

Cantidad = getnumverts $sphere01.

For I=1 todo cantidad do (.

Lugar = getvert $sphere01 i format % lugar t) t

[marc31]

Ah, de un cuerpo cualquiera en la realidad no, te refieres a un cuerpo geométrico, a un modelo en 3d, que está en un archivo (*.max).

Pero que quieres, ¿las coordenadas de los vértices.

[Omnimusha]

He aquí un code que puedes encontrar la cantodad de vértices como también. Sus cordenados, número de caras y los tres punto que conponen el triángulo.

De las caras para su construcción.

Tmesh = snapshotasmesh selection[1].

Out_name = ((Getdir #export)+/testmesh, dat).

Out_file = createfile out_name.

Num_verts = tmesh, numverts.

Num_faces = tmesh, numfaces.

Format %,%\nNum_verts num_faces to:out_file.

For v = 1 todo num_verts do.

Vert = getvert tmesh v.

Format %, vert to:out_file).

Format \nTo:out_file.

For f = 1 todo num_faces do.

Face = getface tmesh f.

Format %, face to:out_file).

Close out_file.

Deleete tmesh.

Edit out_name.