COMPILE_OPTidl2 ENVI, /RESTORE_BASE_SAVE_FILES ENVI_BATCH_INIT ;选择文件,如果不存在则返回 file =ENVI_PICKFILE(TITLE='Select the classification image') IF~FILE_TEST(file)THENRETURN ;打开文件,判断如果不是分类结果,则返回 ENVI_OPEN_FILE, file, r_fid=fid ENVI_FILE_QUERY, fid, nb=nb, ns=ns...
COMPILE_OPTidl2 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=c...
FUNCTION RpcOrthFile, iFile, oFile, res, dem_file, del_if_existing COMPILE_OPT IDL2 ; Load ENVI and initialize it PRINT, 'input is:', iFile PRINT, 'output is:', oFile oFile_existing = FILE_TEST(oFile) IF NOT oFile_existing OR del_if_existing THEN BEGIN;如果输出文件不存在,或者 ...
比如我们这儿是*.tiff,就是寻找名称最后几位是.tiff的文件。 COMPILE_OPT IDL2 inputdir = 'F:\work\GF2\PM1' filelists=FILE_SEARCH(inputdir,'*.tiff',count = num) ;获取文件夹下符合条件的文件,【好强……甚至可以渗透二级目录】 outputdir = 'F:\work\GF2\PM1\' FOR i=0, num-1, 2 DO BEGI...
IDL中右键菜单的例子,源码为IDL自带,在命令行中输入.EDIT ontext_tlbase_example.pro即可打开。 PRO CBE_FirstEvent, event COMPILE_OPT hidden PRINT, ' ' PRINT, 'Selection 1 Pressed' END; Event handler routine for the "Selection 2" button on the context menu. ...
COMPILE_OPTidl2 ENVI,/restore_base_save_files envi_batch_init,LOG_FILE='batch.log' ;打开要裁剪的图像 image_dir='F:\PDF\' ;根据文件存放的目录进行相应修改 image_files=file_search(image_dir,'*.tif',count=numfiles) ;根据相应的文件格式修改过滤条件 ...
14、eelEvents,wType,xPos,yPosCOMPILE_OPT idl2;获取组件原始大小self.OWINDOW.GETPROPERTY, dimensions = winDims,graphics_tree = oViewoView.GETPROPERTY, viewPlane_Rect = viewRect ;判断是放大还是缩小IF wType GT 0 THEN rate = 0.8 ELSE rate = 1.125;计算放缩后的显示区域大小oriDis =xPos,yPos*...
在你写的每个程序的开头键入compile_opt strictarr,这个解译起来有点不太好理解,但这样做有时会省去你一天的工作。这是源于arr(5)和arr[5]都可以索引数组,但idl尝试去识别arr(5)是索引一个数组还是调用一个函数的时会发生误解。解决的办法就是总是用arr[5]作为数组索引,通过程序开头的compile_opt strictarr告...
COMPILE_OPT idl2 ; PRINT, FORMAT = '(A6)', '123456789' PRINT, FORMAT = '(I2,$)', INDGEN(6) ; PRINT, FORMAT = '("First", 20X, "Last", T10, "Middle")' PRINT, FORMAT = '("First", 20X, "Last", T4, "Middle")'
255 DO BEGIN ;保存当前行坐标 tmp = img*,j ;用中间对称点替换 img*,j= img*,511-j ;交换数据 img*,511-j = temp ENDFOR ;返回翻转结果 RETURN, imgENDFUNCTION DO_METHOD_05, img img = ROTATE(img,7) RETURN, img2ENDCOMPILE_OPT允许你对idl编译器的默认编译规则进行稍微修改,详细可参考IDL的...