Creo二次开发批量复制几何

bool ThkCopyGeomAsmMng::CopyGeom()
{
	if (m_tPlbMdl.m_tCsys.IsEmpty())
	{
		Msg_OutErr(_T("未设置发布对象坐标系"));
		return false;
	}
	for (int i = 0; i < (int)m_tCpyMdl.m_arrUnCpyFea.GetCount(); i++)
	{
		
		ThkCpyFeature* pGeom = m_tCpyMdl.m_arrUnCpyFea[i];
		if (pGeom->m_eGeomPblStatus==Tk_AlreadyCopy)
		{
			/*Msg_OutInfo(_T("%s几何已被复制"),pGeom->m_strECGeomName);*/
			continue;
		}
		ThkCopyGeom cgeom;
		ProErr err;
		bool bres;
		err = cgeom.SetOwner(m_tCpyMdl.m_tSld); 
		if (err != PRO_TK_NO_ERROR)
		{
			Msg_OutErr("owner失败");
		    continue;
		}
		ThkAsmcomppath tGeomPath = pGeom->m_tCpyFeaPath;
		TePath tExtCsys = m_tPlbMdl.m_tCsysPath;
		ThkAsmcomppath tComPath = tGeomPath.GetComm