高手，谁有空帮看一下这个程序它不能进行扫描

judy_zmz

  LPMODELDOC pModelDoc;
  TheApplication->GetSWApp()->get_IActiveDoc([$pModelDoc)]
     LPPARTDOC pPartDoc;
  pModelDoc->QueryInterface(IID_IPartDoc,(LPVOID*)[$pPartDoc)]
    HRESULT hres;
  VARIANT_BOOL retval;  
  hres=pModelDoc->InsertCurveFile(auT("F:\\c++[$sup3][$Igrave][$ETH]ò[$frac14]°solid±à[$Ouml][$macr][$Iacute][$frac14]\\zmz\\22j.txt"),[$retval )]
  if(hres!=S_OK||retval==false) ::AfxMessageBox(_T("error"));
     hres=pModelDoc->SelectByID(auT("[$Ccedil]ú[$Iuml][$szlig]1"),auT(""),0,0,0,[$retval)]
  if(hres!=S_OK||retval==false) ::AfxMessageBox(_T("error1"));
  hres=pModelDoc->AndSelectByID(auT("[$Ccedil]ú[$Iuml][$szlig]1"),auT("ROUTECURVES"),0,0,0,[$retval)]
  if(hres!=S_OK||retval==false) ::AfxMessageBox(_T("error2"));
  VARIANT_BOOL origAtCurve=true;
  LPREFPLANE retval1;
  //[$Eacute]ú[$sup3][$Eacute][$raquo]ù×[$frac14][$Atilde][$aelig]
    pModelDoc->ICreatePlanePerCurveAndPassPoint2(origAtCurve, [$retval1)]
  pModelDoc->SelectByID(auT("[$raquo]ù×[$frac14][$Atilde][$aelig]1"),auT("LANE"),0,0,0,[$retval)]
  pModelDoc->InsertSketch();
  LPSKETCHSEGMENT retval2;
  pModelDoc->ICreateCircleByRadius2(0,0,0,0.03, [$retval2)]
    pModelDoc->InsertSketch();//
  hres=pModelDoc->SelectByMark(auT("[$sup2][$Yacute][$Iacute][$frac14]1"),auT("EXTSKETCHSEGMENT"),0,0,0,1,[$retval)]
  if(hres!=S_OK||retval==false) ::AfxMessageBox(_T("error5"));
  hres=pModelDoc->SelectByMark(auT("[$Ccedil]ú[$Iuml][$szlig]1"),auT("ROUTESWEEP"),0,0,0,4,[$retval)]
  if(hres!=S_OK||retval==false) ::AfxMessageBox(_T("error11"));
  VARIANT_BOOL propagate=true;
  VARIANT_BOOL alignment=false;
    short twistCtrlOption=0;
  VARIANT_BOOL keepTangency=0;
  VARIANT_BOOL forceNonRational=0;
    pModelDoc->InsertProtrusionSwept2(propagate,alignment,twistCtrlOption,keepTangency,forceNonRational);
  return;