PRO test_raster_to_vector_doit

  COMPILE_OPT idl2

  envi, /restore_base_save_files

  ENVI_BATCH_INIT

  file = 'D:\Temp\class.dat' ;輸入分類影象

  out_shpfile = 'D:\Temp\vector.shp' ;輸出向量檔案路徑

  idx = [1,2,3,4,5] ;輸出類別索引

  ENVI_OPEN_FILE, file, r_fid=fid

  ENVI_FILE_QUERY, fid, dims=dims, $

   class_names=class_names, sname=sname

  pos = [0]

  l_name = class_names[idx]

  evf_file = envi_get_tmp()

  envi_hourglass

  envi_check_save, /vector

  rtv_class_setup, fid=fid, pos=pos, dims=dims, $

   class_names=l_name, class_ptr=idx,         $

   out_name=evf_file, in_memory=0,            $

   output_flag=1, sname=sname

  ;輸出為shapefile

  evf_id = ENVI_EVF_OPEN(evf_file)

  ENVI_EVF_TO_SHAPEFILE

  ;關閉evf檔案，並刪除

  ENVI_EVF_CLOSE, evf_id

  FILE_DELETE, evf_file, /quiet

END