//******************************************************************************
// 
// 版权所有: 玉溪时光科技有限公司
// 联系邮箱: q.100@qq.com
// 开发日期: 2024/03/04
// 
//******************************************************************************

global proc SGCurrentProjectDNA() {
	string $rl4[] = `ls -type "embeddedNodeRL4"`;
	if(!`size($rl4)`){
		error -n "No RL4 node object...";
		return;
	}
	string $prePath = `SGDescriptor -gpd`;
	for($r in $rl4){
		string $rl4Path = `getAttr ($r + ".dnaFilePath")`;
		if(`file -q -ex $rl4Path` && $rl4Path != $prePath){
			SGDescriptor -spd $rl4Path;
		}
	}
}