solidworks二次开发之遍历装配体

 HRESULT retval;

 CString myString;

 CComPtr<IModelDoc2>pModel;
 retval = m_iSldWorks->get_IActiveDoc2(&pModel);
 if(pModel == NULL)
 {
  AfxMessageBox(_T( "获取活动文档失败"));
  return ;
 }

 CComBSTR title;
 pModel->GetTitle(&title);

 CString temp(title);

 myString=myString+temp+"/r/n";
 

 CComPtr<IConfiguration>pConfig;

 pModel->IGetActiveConfiguration(&pConfig);

 ASSERT(pConfig);

 CComPtr<IComponent>pRoofComp;
 pConfig->IGetRootComponent(&pRoofComp);

 int componentCout;
 pRoofComp->IGetChildrenCount(&componentCout);

 VARIANT vChildComp;
 pRoofComp->GetChildren(&vChildComp);
 
 SAFEARRAY *safeComp;
 safeComp=V_ARRAY(&vChildComp);
 
 LPDISPATCH *safeArraycomp;
 SafeArra