That'll be as slow as hell, Sandy. All those set/getvalues. Better to just
copy the transform over.
> -----Original Message-----
> From: owner-xsi(at)Softimage.COM
> [mailto:owner-xsi(at)Softimage.COM] On Behalf Of Sandy Sutherland
> Sent: 15 July 2005 10:40
> To: XSI(at)Softimage.COM
> Subject: Re: Model nulls 2 nulls
>
> Yes:
>
>
> 'JModel2Null
> 'javier(at)internarte.com
> 'Some Imports bring hierarchies into XSI as Models instead of
> Null Parents 'This script replaces the Models for Nulls
> keeping hierarchy, position,rotation and scale.
> 'Use: select all models you want cleaned up as nulls and run
> '*************************************************************
> **************
> *****
> option Explicit
>
>
>
> dim oSel, oItem, oChild, oChildren, oObj, oNul, index dim
> oRoot,oNewKids,oPar,oName,oXpos,oYpos,oZpos,oXscl,oYscl,oZscl,
> oXRot,oYRot,oZ
> rot
>
> Set oRoot = ActiveProject.ActiveScene.Root
>
> set oSel = CreateObject("XSI.Collection") 'collection of
> Initial Selection
>
> oSel.additems selection
> FOR index = 0 to oSel.Count -1
> set oItem = oSel(index)
> oName = oItem.Name
> if oItem.type = "#model" then
> oXpos = GetValue (oItem &".kine.global.pos.posx")
> oYpos = GetValue (oItem &".kine.global.pos.posy")
> oZpos = GetValue (oItem &".kine.global.pos.posz")
>
> oXscl = GetValue (oItem &".kine.global.scl.sclx")
> oYscl = GetValue (oItem &".kine.global.scl.scly")
> oZscl = GetValue (oItem &".kine.global.scl.sclz")
>
> oXrot = GetValue (oItem &".kine.global.rotx")
> oYrot = GetValue (oItem &".kine.global.roty")
> oZrot = GetValue (oItem &".kine.global.rotz")
> set oPar = oItem.parent
> GetPrim "Null", oName&"_m2n"
> set oNul = selection(0)
> setvalue oNul &".kine.global.pos.posx", oXpos
> setvalue oNul &".kine.global.pos.posy", oYpos
> setvalue oNul &".kine.global.pos.posz", oZpos
> setvalue oNul &".kine.global.rotx", oXrot
> setvalue oNul &".kine.global.roty", oYrot
> setvalue oNul &".kine.global.rotz", oZrot
> setvalue oNul &".kine.global.scl.sclx", oXscl
> setvalue oNul &".kine.global.scl.scly", oYscl
> setvalue oNul &".kine.global.scl.sclz", oZscl
> set oNewKids = CreateObject("XSI.Collection")
>
> set oChildren = oItem.findchildren
>
> for each oChild in oChildren
> set oPar = oChild.parent
> if oPar = oItem then
> oNewKids.add oChild
> logmessage oChild
> end if
> oNul.addChild oNewKids
>
> NEXT
> deleteobj oItem
> end if
> DeselectAll
>
> NEXT
>
> ----- Original Message -----
> From: "Stefan Andersson" <sanders3d(at)gmail.com>
> To: <XSI(at)Softimage.COM>
> Sent: Friday, July 15, 2005 11:18 AM
> Subject: Model nulls 2 nulls
>
>
> > Anyone has a script that converts Model nulls to regular nulls?
> >
> > regards
> > stefan andersson
> >
> >
> > --
> > http://www.sanders3d.com/
> >
> > ---
> > Unsubscribe? Mail Majordomo(at)Softimage.COM with the
> following text in body:
> > unsubscribe xsi
>
> ---
> Unsubscribe? Mail Majordomo(at)Softimage.COM with the following
> text in body:
> unsubscribe xsi
>
>
---
Unsubscribe? Mail Majordomo(at)Softimage.COM with the following text in body:
unsubscribe xsi
