ck_activatecamera.ms

来自「3dmax导出3d模型二次开发插件」· MS 代码 · 共 32 行

-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
-- Register Active Camera Instruction
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
global instActiveCameraStr = "Active Camera"

global instActiveCameraFct
fn instActiveCameraFct = (
	for obj in selection do (
		if( (superclassof obj)==camera ) do (
			chunkData = "  " + CKAttacheScriptOnThisStr + "(\"set_as_active_camera\")"
			chunkdata += "\x0d\x0a"
			AddCKChunk obj instActiveCameraStr chunkData
			updateInstructionsList()
		)
	)
)

global instActiveCameraRollout
rollout instActiveCameraRollout "Active Camera Options" width:408 height:178 category:1
(
	label info_Label "Info: Defines the camera to activate at start" pos:[8,8] width:232 height:16
	include "CKInstScripts\\ApplyPreviewButtons.ms"
	
)

registerInstruction instActiveCameraStr instActiveCameraFct instRollout:instActiveCameraRollout