' Glb_to_InOutPlugin ' Initial code generated by XSI SDK Wizard ' Executed Fri Jun 26 12:31:41 UTC+0900 2009 by ritaro ' ' Tip: To add a command to this plug-in, right-click in the ' script editor and choose Tools > Add Command. ' ' Tip: To get help on a callback, highlight the callback name ' (for example, "Init", "Define", or "Execute") and press F1. function XSILoadPlugin( in_reg ) in_reg.Author = "ritaro" in_reg.Name = "Glb_to_InOutPlugin" in_reg.Email = "" in_reg.URL = "" in_reg.Major = 1 in_reg.Minor = 0 in_reg.RegisterCommand "Glb_to_InOut","Glb_to_InOut" in_reg.RegisterMenu siMenu3DViewGeneralContextID, "Glb_to_InOut_Menu", false,false 'RegistrationInsertionPoint - do not remove this line XSILoadPlugin = true end function function XSIUnloadPlugin( in_reg ) dim strPluginName strPluginName = in_reg.Name Application.LogMessage strPluginName & " has been unloaded.",siVerbose XSIUnloadPlugin = true end function function Glb_to_InOut_Init( in_ctxt ) dim oCmd set oCmd = in_ctxt.Source oCmd.Description = "Scene no Frame ni modosu" oCmd.SetFlag siSupportsKeyAssignment,false oCmd.ReturnValue = true Glb_to_InOut_Init = true end function function Glb_to_InOut_Execute( ) Application.LogMessage "Glb_to_InOut_Execute called",siVerbose ' ' TODO: Put your command implementation here. ' Glb_to_InOut_sub Glb_to_InOut_Execute = true end function function Glb_to_InOut_Menu_Init( in_ctxt ) dim oMenu set oMenu = in_ctxt.Source oMenu.AddCommandItem "Glb_to_InOut","Glb_to_InOut" Glb_to_InOut_Menu_Init = true end function sub Glb_to_InOut_sub() SetValue "PlayControl.In", GetValue("PlayControl.GlobalIn") SetValue "PlayControl.Out", GetValue("PlayControl.GlobalOut") end sub