Mi nuevo script: crear camino para vehículos

[Miguel-Arte-3D-1990]

Hola a todos, estoy tratando de hacer un camino para vehículos. Pero, no encuentro la manera como activar los splineops. Startattach y splineops. Attachmultiple. Ok.

La idea de este script va creando líneas en 100 en 100 por ejemplo.

Cuando le doy click al botón crear Dist, su primer línea aparece su distancia a 100 y.

Luego le pongo 200 y aparase el siguiente línea a partir del 100 hasta 200 y a si sucesivamente.

Y espero su ayuda como activar splineops. Startattach o splineops, attachmultiple para crear una sola línea.

Etc. Y luego estaré explicando sobre este nuevo script : crear camino para vehículos. Ok-d. Saludos a todos y espero su ayuda gracias. -.d.

Les dejo este ut b.

Rollout pru crear camino.

Groupbox a pos:[10,10] width:180 height:145 tspinner Dist distancia range:[0,999,100] pos:[32,32] tbutton crd crear ton crd pressed do t(t p1 = point () p2 = point () p1.name = p1 p2.name = p2 t p1 = $p1 p2 = $p2 -p1, pues = [0,0,0] p2, pues = [dist, value,0,0] t PA = point() pa, cross = of pa, box = on pa, name = a t pb = point() pb, cross = of pb, box = on pb, name = b t pa, pivot = p1.pos alignobject PA centerobject PA t pb, pivot = p2.pos alignobject pb centerobject pb t pc = point() PC, name = c PC, pues = [dist, value,0,0] t Fn lineaentredospuntos pointa pointb =
(tlinea = splineshape pos: pointa taddnewspline línea taddknot línea 1 #corner #line pointa taddknot línea 1 #corner #line pointb tupdateshape línea tlinea).

Linea = lineaentredospuntos pa, pues pb, pos.

P1.pivot = PC, pos.

Alignobject p1.

Centerobject p1).
).

Createdialog pru 200 400.

[Miguel-Arte-3D-1990]

Les dejo este Rollout Attach_splines() -.

Rollout por fín OK ^.^d -.
(.

Button por fín por fin --- descubrí que era con Attach_splines() -.
---- pero, toda vía no está funcionando correctamente según yo-.
---- era a si como lo ven este Rollout Attach_Splines() ok-.

On por fín pressed do.
(tSelect $Shape*.

SetWaitCursor().

Try (.

If selection, count > 1 then attach_splines()else \.
(sel = selection[1]; if sel, category.= #shape then converttosplineshape sel).

Create_vertex_array().

Closest_vertex().

Check_vértices().

Fuse_vértices().
) catch (enableSceneRedraw(); redrawViews()).
).
).

CreateDialog por fín ---- --.

OK, espero que uno de ustedes, sabrán como activar el Attach_splines().

La verdad no eh podido activar el Attach_splines correcta mente, y espero su ayuda gracias. Saludos de Chapolín.-.

[Miguel-Arte-3D-1990]

Hola a todos por fin me salió como crear un camino.

Pero, ahora me falta juntar todas las líneas.

Para poder crear una animación del vehículo.

Bueno les dejo esta imagen demuestra, y.

Espero su ayuda como activar Attach_splines(), más sencillo.

Bueno seguiré explicando sobre este script. Saludos de Chapolín.

[javierXgamer]

Muy chulo, no me he parado ha repasar el código, pero viendo la imagen me pregunto una cosa se pueden hacer recorridos con curvas suavizadas o solo hay líneas rectasí.

Otra cosa tienes pinta de entender mucho de 3ds Max, podrías pasarte por mi hilo y resolverme la duda qué tengo? El hilo es el siguiente: http://www.foro3d.com/f16/3ds-max-3d...tml#post885594.

[Miguel-Arte-3D-1990]

Hola javierXgamer.

Claro que sí se puede hacer curvas, por medio de los Splines.

Lo primero lo que hago es copiar líneas y luego me voy al primer.

Linea line001 y su contenido de la línea tiene un botón que dice Attach y.

Luego mencionar a cada una de las líneas.

Hasta terminar adjuntar todas las líneas.

Y luego seleccionar todos los vértices.

Y te vas al botón weld que contiene la Line001 y le aumentas el valor.

Necesario para qué todo los vértices se pegan.

Ya qué tienes todos los vértices pegados, ahora.

Te vas al botón que contiene la line001 que dice Fillet y.

Le aumentas el valor necesario para darle las curvas necesarias etc.

Ok Saludos de Chapolín,.-.

[Miguel-Arte-3D-1990]

Hola tengo otro experimento ^.^d.

Les dejo este ut.

Rollout pru.
(.

Button cr ton cr pressed do t(t sp = splineshape() t addnewSpline sp t addknot sp 1 #corner #curve [0,0,0] t addknot sp 1 #corner #curve [10,0,0] t addknot sp 1 #corner #curve [10,10,0] t upDateShape sp t select sp t subobjectlevel = 1 t setknotSelection $ 1 #(2,2) t $Shape001.fillet = 10 t).
).

Createdialog pru --- alguien sabe cómo activar el Fillet --.

Trato de hacer curvas, pero no me sale y espero su ayuda gracias.

Le dejo una imagen de muestra ok ^.^9.

[Miguel-Arte-3D-1990]

Hola a todos y gracias que está bien chulo este script.

Bueno seguiré hablando de este nuevo script.

Este script lo estoy creando para complementar el script CTRLs de Carros.

Los voy a juntar los 2 script para qué quede un solo concepto para seguir.

Mejorando mi script CTRls de Carros y creando caminos para Vehículos.

O más adelante servirá para vehículos de barcos, aviones, helicópteros, motos.

Personajes, animales y muchas cosa más.

Ok lo más importante es aprender hacer script y sacar nuevas ideas.

Y a lo mejor estará terminado en plugins.

Bueno, por ahora a qué seguir batallando y disfrutar los programas.

Maravillosos en 3D, ah otra cosa este script crear Camino para vehículos.

Lo voy a dejar tal como está en proceso y seguir haciendo manualmente, me refiero a.

Los opciones splinesops. StartAttach, splinesops. AttachMultiple.

Splinesops.weld, splinesops. Startfillet. Por medio de Shapes, yo sé que si se puede.

En una manera para llamarlos en un script, la idea es, no estar manejando manualmente.

Si no que quede todo en un script. OK Saludos de Chapolín.

Y luego estaré adornando con Iconos para qué sea un script bien chulo y gracias. ^.^9.

[Miguel-Arte-3D-1990]

Hola chicos, les dejo otro avance de este Script.

Si alguien de ustedes, pueden resolver este scritpt.

Vaya se los agradezco mucho.

Les dejo este Código.

Rollout pru Crear Camino.
( tgroup Crear 1 punto de referencia t(tbutton cr Finializar ton cr pressed do t(t extra0 = point () t extra0.box = of t extra0.cross = on t extra0.name = extra0 t Select extra0 t .
-- extra00 = point ().
-- extra00.pues = [20,20,0].
-- extra00.box = of.
-- extra00.cross = on.
-- extra00.name = extra00 t t).
) tgroup Crear nombre p1 Ad p2 De p3 Iz t(t label m Seleccinar el punto creado pos:[60,80] t label a p1 pos:[12,100] t label v p2 pos:[54,100] tedittext newname width:32 pos:[22,72] tbutton cr1 pos:[30,100] ton cr1 pressed do t(t $.name = newname, text t cr1.text = p1 t ---$.pues = [0,0,0] t) tbutton cr2 Pos:[72,100] ton cr2 pressed do t(t $.name = newname, text t cr2.text = p2 t).
).

Label de p3 pos:[100,100] tbutton cr3 Pos:[120,100] ton cr3 pressed do t(t $.name = newname, text t cr3.text = p3 t).

Group.
(tspinner dist Dist Ad range:[0,999,100] width:100 pos:[62,150] tbutton crad Crear p1 Ad ton crad pressed do t(t p1 = $p1 t p2 = point() t p2.name = p2 t p2.pues = [dist, value,0,0] t Select p2 t t pa = point() t pa, cross = of t pa, box = on t pa, name = a t t pb = point() t pb, cross = of t pb, box = on t pb, name = b t t pa, pivot = p1.pos t alignobject pa t centerobject pa t t pb, pivot = p2.pos t alignobject pb t centerobject pb t t pc = point() t pc, name = c t pc, pues = [dist, value,0,0] t Fn LineaEntreDosPuntos pointA pointB =.
(tlinea = SplineShape pos: pointA taddNewSpline línea taddknot línea 1 #corner #line pointA taddknot línea 1 #corner #line pointB tupDateShape línea tlinea.
).

Linea = LineaEntreDosPuntos pa, pues pb, pos.

P1.pivot = PC, pos.

Alignobject p1.

Centerobject p1.
).
).

Group.
(tspinner dista Dist De range:[0,999,100] tbutton crde Crear p1 De ton crde pressed do t(t p1 = $p2 t p3 = point() t p3.name = p3 t p3.pues = [dist, value,-dista, value,0] t Select p3 t t pa = point() t pa, cross = of t pa, box = on t pa, name = a1 t t pb = point() t pb, cross = of t pb, box = on t pb, name = b1 t t pa, pivot = p1.pos t alignobject pa t centerobject pa t pb, pivot = p3.pos t alignobject pb t centerobject pb t t pc = point() t pc, name = c1 t pc, pues = [dist, value,-dist, value,0] t t Fn LineaEntreDosPuntos pointA pointB =.
(tlinea = SplineShape pos: pointA taddNewSpline línea taddknot línea 1 #corner #line pointA taddknot línea 1 #corner #line pointB tupDateShape línea tlinea.
).

Linea = LineaEntreDosPuntos pa, pues pb, pos.

P1.pivot = PC, pos.

Alignobject p1.

Centerobject p1.
).
).

Group.
(.

Spinner distb range:[0,999,200].

Button c ton c pressed do t(t p1 = $p3 t p4 = point() t p4.name = p4 t p4.pues = [distb, value,-dista, value,0] t Select p4 t t t pa = point() t pa, cross = of t pa, box = on t pa, name = a2 t t t pb = point() t pb, cross = of t pb, box = on t pb, name = b2 t).
).
).

Createdialog pru 200 400 --- un Saludo de Chapolín.^d.

Estos Códigos que estado subiendo son avances como fue creando este script hasta llegar.

Arriba qué dice : Hola a todos por fin me salió como crear un camino,.

Y les dejo 2 Códigos más ahora en Archivo, ms ok.^d, vvque.

[Miguel-Arte-3D-1990]

Hola a todos, les hablo para decirles, que ya tengo por terminar este script, pero, ahora lo estoy creando en otra manera, en lugar que viaje el vehículo
sobre una línea, ahora, se va a crear una carretera.

Para qué mi script Crear CTRLs de Carros, viaje en una carretera ya creada, a si podre manejar un vehículo perfecto, si alguien de ustedes podrán modificar
estos códigos que eh estado experimentando wow se los agradezco mucho.

Ah otra cosa nunca se sabe para cuando se termina un script, hay tantas ideas que se puede lograr hacer con los script, pero, mi mensaje se caduco donde tengo mi Script Crear CTRL Lider, también estoy
experimentando como crear CTRLs de Liders en otra manera de utilizarlo, por ejemplo, hacer que camine un personaje, que brinque, o que salte, o que camine en escaleras etc.
Este CTRL Lider se está basando en el famoso crash Bandicot.
Bueno, seguiré hablando de mis 5 script, que estado creando durante estos meses y mi etiqueta es 3DS Max 5 hasta 3dsmax12, bueno estos scripts se maneja en cualquier
versión de 3dsmax. No sé cómo le hacen para qué sus script sean exclusivo para esa versión de 3dsmax, Bueno hay que seguir disfrutando y seguir con estos 5 pasos que me a ayudado para hacer el siguiente script es Crear Carreteras para vehículos seria no 6 etc, OK Saludos de Chapolín ^.^d.

A qui mismo lo verán. ^.^d.

[Miguel-Arte-3D-1990]

Hola a todos, gracias por fin encontré que buscaba era este --- render_renderable = on -.

Para qué pudiera hacer imágenes. Y el render_displayRenderMesh:on es.

Para poligonar los Shape Les dejo este Código vvque.

Mi_fin1 = circle name:CTRL_Lider radius:2 thickness:0.5 sides:3 render_displayRenderMesh:on.

Mi_fin1.renderable = on.

Mi_fin, render_renderable = on --- b^,^d.

Render mi_fin1 --- Ahora si un gran Saludo de Chapolín vvque.