Sorry your browser is not supported!

obj=1

rem load in the object
load object "myobject.x",obj

numberofobjects=1 : rem all the objects we want to store limb information for

rem first get the limb information
perform checklist for object limbs obj

rem dimension arrays to reference limb informarion
limbcount=checklist quantity()
dim limbname$(numberofobjects,limbcount)

rem limbname$(object,0) = the limb count so we can reference it later
limbname$(obj,0)=str$(limbcount)

rem loop through limb check list and assign the name and number to your array
backdrop off
for n=1 to limbcount
   limbname$(obj,n)=checklist string$(n)
   print checklist string$(n)
next n

empty checklist

print reference_limb(obj,"x3ds_Neck")


end

function reference_limb(obj,name$)
   rem return the limb number by referencing the name
   limbcount=int(val(limbname$(obj,0)))
   for n=1 to limbcount
      if limbname$(obj,n)=name$
         exitfunction n
      endif
   next n
endfunction 0

Rem Project: Sin-Cos-Rotation
Rem Created: Monday, July 02, 2012

Rem ***** Main Source File *****
Rem Sin-Cos-Rotation

Rem Rotate camera Based on Mouse Buttons
Sync on
Sync Rate 30

Rem Standar dbpro cube for chekking scale
Make Object Cube 2,100
Position Object 2,0,0,0
Ghost Object on 2
RemStart
the modell for chekking eks Car
Rem Loading quick made car from 3dsmax 2010 mad in Metric(cm)
rem Limbs/parts is fixed in proper order eks
1=Boddy
2=Left fron tire
3=right front tire
4=both Back wheel
5=Hood

Rem this car limb 1= forntRightTire
Remend
obj=1
Load Object "testCar.3ds",obj
Position object obj,0,0,0
Scale Object obj,3000,3000,3000

numberofobjects=1 : rem all the objects we want to store limb information for

rem first get the limb information
perform checklist for object limbs obj

rem dimension arrays to reference limb informarion
limbcount=checklist quantity()
dim limbname$(numberofobjects,limbcount)

rem limbname$(object,0) = the limb count so we can reference it later
limbname$(obj,0)=str$(limbcount)

rem loop through limb check list and assign the name and number to your array
backdrop off
for n=1 to limbcount
   limbname$(obj,n)=checklist string$(n)
   print checklist string$(n)
next n

empty checklist

print reference_limb(obj,"x3ds_Neck")
Wait key

function reference_limb(obj,name$)
   rem return the limb number by referencing the name
   limbcount=int(val(limbname$(obj,0)))
   for n=1 to limbcount
      if limbname$(obj,n)=name$
         exitfunction n
      endif
   next n
endfunction 0




Do

button= MouseClick()
if button=1 Then angle#= angle# -0.75
if button=2 Then angle#= angle# +0.75

Rem Mouse Wheel Zoom in& out
zoom= MouseMoveZ()
if zoom >0 then radius= radius +10
if zoom <0 then radius= radius -10

if UpKey()=1 Then angle2#= angle2# +0.75
if DownKey()=1 Then angle2#= angle2# -0.75

Rem Rotate camera around Scene
posx= Cos(angle#)*radius
posz= Sin(angle#)*radius
Position Camera posx,angle2#,posz
Set cursor 0,10
Print "Posx= ",posx
Set cursor 0,20
Print "Posz= ",posz
Point Camera 0,0,0

Sync
Loop