IDL---ENVI

ENVI;启动envi
file=envi_pickfile();选择文件dialog,返回值就为file
ENVI_OPEN_FIle,file,r_fid=fid;根据文件名打开file,并且返回fid
envi_file_query,fid,NB=NB,NL=NL,NS=NS,dims=dims,data_type=dt,bnames=bnames;根据fid查询图像信息
data=envi_get_data(fid=fid,dims=dims,pos=0)根据fid得到数据dims:维度
window,1,xsize=798,ysize=909l;新建一个window窗体
tv,data;显示数据
tvscl,data;拉伸显示
tvscl,data,/order;idl中左下角为原点，envi中是左上角
envi,/restore_base_save_files ;不启动ENVI调用功能
envi_batch_init：批处理初始化
.e canny.pro;跳转到canny.pro文件

完整工程文件----定义一个button,并添加事件
PRO envi_canny_define_buttons,buttonInfo
;定义button
ENVI_DEFINE_MENU_BUTTON,buttonInfo,$
  value='Canny',$;显示的值
  uValue='',$;用户值
  EVENT_PRO='envi_canny',$;必须与主函数名一致
  pef_value='Filter',$;区分大小写
  position=1;位置
END
  
pro envi_canny,event          ;定义主函数
;
compile_opt idl2              ;编译环境
;选择数据
envi_select,fid=fid,/BAND_ONLY,pos=pos  ;选择遥感数据文件
;检查数据
print,fid,pos   ;打印
if fid eq -1 then return                ;判断是否得到数据
;查询数据
envi_file_query,fid,dims=dims,ns=ns,$
 nl=nl, nb=1, wl=wl
;获取数据
data=ENVI_GET_DATA(fid=fid,dims=dims,pos=pos)
;canny
result=canny(data)
;显示数据
;TVSCL,result   ；新建窗体并显示数据
output=envi_pickfile(/output)   ;设置并得到输出路径
  if(output eq "")then begin    ;判断得到的输出路径是否为空
    ENVI_ENTER_DATA,result
   endif else begin   
    ;保存数据
   openw,lun,output,/GET_LUN    ;新建二进制文件
   writeu,lun,result                     ;将结果写入    
   FREE_LUN,lun                          ;释放
   ;写头文件
   ENVI_SETUP_HEAD, fname=output,     $
    interleave=0,data_type=1, $
    NS=NS,NB=1,NL=NL,$
     /write, /open, r_fid = r_fid
     end
  
 envi_display_bands, r_fid, 0;显示该文件（只有一个波段）
 
END

;写完主程序之后要进行保存，$
;在控制台中
;save,filename="E:\Program Files\Exelis\ENVI51\classic\save_add\envi_canny.sav", /routines



解决方案：
在IDL的帮助中搜素resolve_all,通过语法
RESOLVE_ALL [, CLASS=string] [, /CONTINUE_ON_ERROR] [, /QUIET] [, RESOLVE_EITHER=string] [, RESOLVE_FUNCTION=string] [, RESOLVE_PROCEDURE=string] [, SKIP_ROUTINES=string] [, UNRESOLVED=variable]
在控制台中输入resolve_all,/CONTINUE_ON_ERROR,SKIP_ROUTINES="envi"回车，在save
save,filename="E:\Program Files\Exelis\ENVI51\classic\save_add\envi_canny.sav", /routines