Tachaaaaaaaaaaaan
Medidor
sub Medidor
Dim oOBJ1, oOBJ2, oBoton, oPOSX, oPOSY, oPOSZ
while True
PickElement "Object", "Pinsha OBJ 1", "Pinsha OBJ 1", oOBJ1, boton
if boton = 0 then
exit sub
end if
PickElement "Object", "Pinsha OBJ 2", "Pinsha OBJ 2", oOBJ2, boton
if boton = 0 then
exit sub
end if
oPOSX = GetValue(oOBJ1 & ".kine.global.posx") - GetValue(oOBJ2 & ".kine.global.posx")
oPOSY = GetValue(oOBJ1 & ".kine.global.posy") - GetValue(oOBJ2 & ".kine.global.posy")
oPOSZ = GetValue(oOBJ1 & ".kine.global.posz") - GetValue(oOBJ2 & ".kine.global.posz")
oDistansia = sqr(oPOSX*oPOSX + oPOSY*oPOSY + oPOSZ*oPOSZ)
CreatePrim "Text", "NurbsCurve"
SetValue "text.text.text", oDistansia
wend
end sub
weeeeno ara en lugar d q sea por pik a ver si lo hago dinámico q m de la distancia toolrato entre el null y el null1
lo malo es q m da una de decimales queeeeee xD un porrón xD