全部答案

2018-12-13 01:52:00

•   startpath =
  SourcePath()
  cd,startpath
  compile_opt idl2
  envi,/restore_base_save_files
  envi_batch_init,
  log_file='batch。
    txt'
  ;=====定义输入文件路径=====
  inpath=startpath
  ;=====定义输出文件路径=====outpath=startpath "result"
  ;定义批处理文件名列表filename =findfile('*。
    tif')n =N_ELEMENTS(filename)
  ;n_elements函数返回数组中所有元素的数目
  ;==========批处理=====================
  FOR i=0,n-1DO BEGIN
  in_name=inpath filename[i]
  envi_open_file, in_name, r_fid=fid
  if (fid eq -1) then begin
  envi_batch_exitreturnendif
  envi_file_query, fid, ns=ns, nl=nl, nb=nb
  dims = [-1, 0, ns-1, 0, nl-1]pos= lindgen(nb)
  out_name = outpath filename[i]
  envi_doit,'resize_doit',$
  fid=fid, pos=pos, dims=[0, 0,170,0,170], $
  interp=0, rfact=[1,1],out_name=out_name, r_fid=r_fidENDFOR;=============================退出批处理模式=======================。
    

  全部
  

  暂***

  2018-12-13 01:52:00

  0 0 评论

  分享
  提交评论