Solidworks 二次开发之遍历零件

 HRESULT retval;
 CComPtr<IModelDoc2>pModel;
 retval = m_iSldWorks->get_IActiveDoc2(&pModel);
 if(pModel == NULL)
 {
  AfxMessageBox(_T( "获取活动文档失败"));
  return ;
 }
 CComPtr<IPartDoc>pPart;
 pModel->QueryInterface(IID_IPartDoc,(LPVOID *)&pPart);

 CComPtr<IFeature>pFeature;
 pPart->IFirstFeature(&pFeature);
 while (pFeature!=NULL)
 {
  
  
  
  CComPtr<IFeature>pSubFeature;
  pFeature->IGetFirstSubFeature(&pSubFeature);
  
  while(pSubFeature!=NULL)
  {
   CComBSTR bFeatureType;
   pSubFeature->GetTypeName(&bFeatureType);
   
   CString featureType (bFeatureType);
   
   if (featureType=="ProfileFeature")
   {
    CComPtr<IDispatch>pDisp;
    pSubFeature->GetSpecificFeature2(&pDisp);