有关默认相机转VR相机

fn cam_to_vrcam sel:#off del:#on =
(
	local sel_cam = #()
	local del_cam = #()
	case sel of
	(
		#off : cams = cameras
		#on : cams = sel_cam + selection
	)
	case of
	(
		(VRayPhysicalCamera != undefined) : YY_vrcam = VRayPhysicalCamera isSelected:on
		(VR物理摄影机 != undefined) : YY_vrcam = VR物理摄影机 isSelected:on
		(VR_物理摄影机 != undefined) : YY_vrcam = VR_物理摄影机 isSelected:on
	-- 	default: 
	)
	for c=1 to cams.count do
	(
		if (classof cams[c] == Freecamera) or (classof cams[c] == Targetcamera) do 
		(
			YY_new_cam = copy YY_vrcam
			try cams[c].type = #free catch()
			YY_new_cam.rotation = cams[c].rotation
			YY_new_cam.pos = cams[c].pos
			append del_cam cams[c]
		)
	)
	delete YY_vrcam
	case del of
	(
		#on : for d in del_cam do delete d
		#off : ()
	)
)--将默认相机转化为VR物理相机
cam_to_vrcam sel:#on del:#on