[evil_kornholio]

Ponee mi pisna na ushite da nema svesten BAKE tool za animacija v maxa se iznervih i si napisah sam takuv, uchudvasto dobre se durzi kato se ima predvid kakuv temerut e avtora, cennoto e che stava za obekti s izvratena jerarhija i za kameri target->free ili kvoto se setite ei ga mizerijata otdolu

CreateDialog unnamedRollout
rollout unnamedRollout "ANIMAZOR" width:162 height:153
(
global s
global d
pickButton btn1 "AnimSource" pos:[5,4] width:154 height:22
pickButton btn2 "AnimDestination" pos:[5,29] width:154 height:20
button btn3 "BAKE SHIT" pos:[5,57] width:154 height:91
on btn1 picked obj do
(
s=obj
select s
btn1.Caption =s.name
)

on btn2 picked obj do
(
d=obj
select d
btn2.Caption =d.name
)

on btn3 pressed do
(
max set key mode

for t =animationRange.Start to AnimationRange.End do

(

sliderTime = t

select s

d.Transform=s.Transform

select d
max set key keys


)
)
)
_________________
site komputEri na sapun

[Drone]

Hehei, radwam se, che se poyawi otnowo :))))

Samo da se pribera i shte go testwam :)
_________________

there ain't no way but the hard way

[evil_kornholio]

Lek update, veche ima animation range i keyframe step

rollout unnamedRollout "ANIMAZOR" width:159 height:291
(

global s
global d
global ast
global aen
global stp

radioButtons rdo1 "Bake Animation Range" pos:[3,60] width:123 height:46 labels:#("Full Animation Range", "Custom Time Range")

spinner spn1 "Start Frame" pos:[11,107] width:145 height:16 range:[AnimationRange.Start,AnimationRange.End,AnimationRange.Start] Enabled:False type:#integer

spinner spn2 "End Frame " pos:[11,126] width:145 height:16 range:[AnimationRange.Start,AnimationRange.End,AnimationRange.End] Enabled:False type:#integer

spinner spn3 "Keyframe on every" pos:[11,145] width:145 height:16 range:[1,100,1] type:#integer

pickButton btn1 "AnimSource" pos:[-1,3] width:157 height:25

pickButton btn2 "AnimDestination" pos:[2,32] width:154 height:25

button btn3 "BAKE SHIT" pos:[0,165] width:157 height:121

on spn1 changed val do
(
if spn2.value <= spn1.value then spn2.value =spn1.value
ast = spn1.value
)

on spn2 changed val do
(
if spn1.value >= spn2.value then spn1.value =spn2.value
aen = spn2.value
)

on rdo1 changed stat do
(
if rdo1.state ==1 then
(
spn1.Enabled= false
spn2.Enabled= false
a= AnimationRange.Start
ast=a
b= AnimationRange.End
aen=b
)
else
(
spn1.Enabled= true
spn2.Enabled= true
)

)

on spn3 changed val do
stp=spn3.value

on btn1 picked obj do
(
s=obj
select s
btn1.Caption =s.name
)

on btn2 picked obj do
(
d=obj
select d
btn2.Caption =d.name
)

on btn3 pressed do
(
max set key mode for t =ast to aen by spn3.value do ( sliderTime = t select s d.Transform=s.Transform select d
max set key keys
)
)
)

CreateDialog unnamedRollout
_________________
site komputEri na sapun