L_AnnSetUnit

TCHAR * GetUnitString(L_UINT uUnit) 
{ 
   TCHAR *pszUnit = TEXT(""); 
   switch(uUnit) 
   { 
      case ANNUNIT_INCHES: 
      pszUnit = TEXT("ANNUNIT_INCHES"); 
      break; 
      case ANNUNIT_FEET: 
      pszUnit = TEXT("ANNUNIT_FEET"); 
      break; 
      case ANNUNIT_YARDS: 
      pszUnit = TEXT("ANNUNIT_YARDS"); 
      break; 
      case ANNUNIT_MICROMETERS: 
      pszUnit = TEXT("ANNUNIT_MICROMETERS"); 
      break; 
      case ANNUNIT_MILLIMETERS: 
      pszUnit = TEXT("ANNUNIT_MILLIMETERS"); 
      break; 
      case ANNUNIT_CENTIMETERS: 
      pszUnit = TEXT("ANNUNIT_CENTIMETERS"); 
      break; 
      case ANNUNIT_METERS: 
      pszUnit = TEXT("ANNUNIT_METERS"); 
      break; 
      case ANNUNIT_TWIPS: 
      pszUnit = TEXT("ANNUNIT_TWIPS"); 
      break; 
      case ANNUNIT_POINTS: 
      pszUnit = TEXT("ANNUNIT_POINTS"); 
      break; 
      case ANNUNIT_PIXELS: 
      pszUnit = TEXT("ANNUNIT_PIXELS"); 
      break; 
      case ANNUNIT_SMART_METRIC: 
      pszUnit = TEXT("ANNUNIT_SMART_METRIC"); 
      break; 
      case ANNUNIT_SMART_ENGLISH: 
      pszUnit = TEXT("ANNUNIT_SMART_ENGLISH"); 
      break; 
   } 
   return pszUnit; 
} 
L_INT AnnSetUnitExample(HANNOBJECT hAnnObject) 
{ 
   L_INT nRet; 
   /* get the current measurement unit settings and display them */ 
   /* if unit is not inches, make it so */ 
   L_SIZE_T zLen; 
   L_UINT   uType = 0; 
   L_UINT   uUnit; 
   HGLOBAL  hUnitAbbrev; 
   L_TCHAR* pUnitAbbrev=NULL; 
   L_UINT   uPrecision; 
   L_TCHAR  buf[180]; 
   L_TCHAR  dis[180]; 
   L_TCHAR  format[180]; 
   L_DOUBLE dDistance; 
   L_DOUBLE dDistance2; 
   /* first, get unit abbreviation string len */ 
   nRet = L_AnnGetUnit(hAnnObject, NULL, NULL, &zLen, NULL); 
   if(nRet != SUCCESS) 
      return nRet; 
   /* allocate enough memory for the abbreviation string */ 
   hUnitAbbrev = GlobalAlloc(GMEM_MOVEABLE, zLen * sizeof (L_TCHAR)); 
   pUnitAbbrev = (L_TCHAR*)GlobalLock(hUnitAbbrev); 
   /* get the settings */ 
   nRet = L_AnnGetUnit(hAnnObject, &uUnit, pUnitAbbrev, &zLen, &uPrecision); 
   if(nRet != SUCCESS) 
      return nRet; 
   /* and, get the distance */ 
   nRet = L_AnnGetDistance(hAnnObject, &dDistance, &dDistance2); 
   if(nRet != SUCCESS) 
      return nRet; 
   /* display current settings & distance in current unit of measurement */ 
   L_AnnGetType(hAnnObject, &uType); 
   _stprintf_s(buf, TEXT("Object Type: %d\nUnit: %s\nAbbrev: %s\nPrecision: %d\n"), 
   uType, GetUnitString(uUnit), pUnitAbbrev, uPrecision); 
   _stprintf_s(format, TEXT("Distance: %%.%df\n"),uPrecision); 
   _stprintf_s(dis, format, dDistance); 
   lstrcat(buf, dis); 
   MessageBox(NULL, buf, TEXT("Units"), MB_OK); 
   /* if unit is not inches, make it so */ 
   if(uUnit != ANNUNIT_INCHES) 
   { 
      nRet = L_AnnSetUnit(hAnnObject, ANNUNIT_INCHES, TEXT("in"), 2, 0); 
      if(nRet != SUCCESS) 
         return nRet; 
   } 
   GlobalUnlock(hUnitAbbrev); 
   GlobalFree(hUnitAbbrev); 
   return SUCCESS; 
}