delphi/C#实现，其他语言稍微改下就行了。AE的编码各个语言都差不多，这里也没用到某一语言的特性。
函数特点：
1.可以精确导出指定范围的图形要素
2.支持多格式.TIF， .EMF，.GIF，.PDF，.PNG，.SVG，.AI，.EPS，.jpg等
3.Tif格式导出时支持坐标信息导出，支持压缩格式选择
delphi 版：
{海龙 created
功能说明：指定地图窗口指定区域裁图
参数说明：
指定地图窗口pMap
指定范围裁图pExtent,如某一图形的envolope或map.extent之类的
输出图片文件名称strPicFile，根据后缀名判断裁出图片类型
输出图片dpi iOutResolution ,默认300
裁图时地图窗口需设置的比例尺 sMapBLC ,可以为空
bGeoTiff 文件类型为tif时有效，为true时保存坐标信息
pTifCompressionType 文件类型为tif时有效，tif的压缩类型，默认无损
}
function ClipMap2Pic(pMap: IMap;pExtent: IEnvelope; strPicFile: String; iOutResolution: Integer = ; sMapBLC: String = '';
bGeoTiff : Boolean = False; pTifCompressionType: esriTIFFCompression = esriTIFFCompressionNone):Boolean;
var
pAV: IActiveView;
pEnvNew: IEnvelope;
ptagTmp: tagRECT;
pExport: IExport;
ihdc, iPrevOutputImageQuality: Integer;
dRes: Double;
dWidth, dHeight, dMapBLC: Double;
tmpDC: HDC;
iScreenResolution: Integer;
deviceRECT: tagRECT;
pSD: IScreenDisplay;
pDT: IDisplayTransformation;
sWJLX: string;
//地图距离转屏幕像素数,不同缩放比例尺下同样距离对应像素数不同的，有特殊需要时设置sMapBLC
function ConvertMapUnitsToPixels(pAV: IActiveView;dMapUnits: Double):double;
var
pBounds: IEnvelope;
pDeviceFrame: tagRECT;
iDeviceRight, iDeviceLeft, iPixelExtent: integer;
dRealWorldExtent, dSizeOfEachPixel: double;
begin
Result:= ;
pDT.Get_DeviceFrame(pDeviceFrame);
iDeviceLeft:= pDeviceFrame.left;
iDeviceRight:= pDeviceFrame.right;
iPixelExtent:= iDeviceRight-iDeviceLeft;
pDT.Get_VisibleBounds(pBounds);
pBounds.Get_Width(dRealWorldExtent);
dSizeOfEachPixel:= dRealWorldExtent / iPixelExtent;
Result:= dMapUnits/dSizeOfEachPixel ;
end;
begin
Result:= False;
if pMap = nil then Exit;
if strPicFile = '' then Exit;
try
if FileExists(strPicFile) then
DeleteFile(PChar(strPicFile));
if (sMapBLC <> '') and TryStrToFloat(sMapBLC, dMapBLC) and (dMapBLC > ) then
pMap.Set_MapScale(StrToFloatEx(sMapBLC));//map的比例尺调整为出图比例尺
pAV:= pMap as IActiveView;
sWJLX := UpperCase(RightStr(strPicFile, ));
if sWJLX = '.TIF' then //根据文件名后4位判断输出类型
pExport := CoExportTiff.Create as IExport
else
if sWJLX = '.EMF' then
pExport := CoExportEMF.Create as IExport
else
if sWJLX = '.BMP' then
pExport := CoExportBMP.Create as IExport
else
if sWJLX = '.GIF' then
pExport := CoExportGIF.Create as IExport
else
if sWJLX = '.PDF' then
pExport := CoExportPDF.Create as IExport
else
if sWJLX = '.PNG' then
pExport := CoExportPNG.Create as IExport
else
if sWJLX = '.SVG' then
pExport := CoExportEMF.Create as IExport
else
if RightStr(sWJLX, ) = '.AI' then
pExport := CoExportAI.Create as IExport
else
if sWJLX = '.EPS' then
pExport := CoExportPS.Create as IExport
else
pExport := CoExportJPEG.Create as IExport;
pAV.Get_ScreenDisplay(pSD);
pSD.Get_DisplayTransformation(pDT);
(pDT as IOutputRasterSettings).Get_ResampleRatio(iPrevOutputImageQuality);
tmpDC:= GetDC();
iScreenResolution:= GetDeviceCaps(tmpDC, ); //获取屏幕dpi
ReleaseDC(, tmpDC);
// 根据传入的pExtent确定裁图的画布大小（出图比例尺下裁图范围的像素高和宽）
pExtent.Get_Width(dWidth);
pExtent.Get_Height(dHeight);
ptagTmp.left := ; //ptagTmp的right和bottom非常主要
ptagTmp.top := ;
ptagTmp.right := trunc(ConvertMapUnitsToPixels(pAV,dWidth) * iOutResolution / iScreenResolution); //把地图距离转为屏幕像素个数
ptagTmp.bottom := trunc(ConvertMapUnitsToPixels(pAV,dHeight) * iOutResolution / iScreenResolution);
pEnvNew:= CoEnvelope.Create as IEnvelope;
pEnvNew.PutCoords(ptagTmp.left,ptagTmp.top,ptagTmp.right,ptagTmp.bottom); //裁图的画布大小
pExport.Set_ExportFileName(strPicFile);
pExport.Set_Resolution(iOutResolution);
pExport.Set_PixelBounds(pEnvNew);
if sWJLX = '.TIF' then
begin
if bGeoTiff then
begin
(pExport as IExportTIFF).Set_GeoTiff(True);//包含tif文件坐标信息，这2句是必须的
(pExport as IWorldFileSettings).Set_MapExtent(pExtent);
end;
(pExport as IExportTIFF).Set_CompressionType(pTifCompressionType);
end;
if sWJLX = '.PDF' then
begin
(pExport as IExportPDF).Set_Compressed(True);
(pExport as IExportPDF).Set_EmbedFonts(True);
(pExport as IExportPDF).Set_ImageCompression(esriExportImageCompressionNone);
end;
pExport.StartExporting(ihdc);
pAV.Output(ihdc, iOutResolution, ptagTmp, pExtent, nil);
pExport.FinishExporting;
pExport.Cleanup;
(pDT as IOutputRasterSettings).Set_ResampleRatio(iPrevOutputImageQuality);
if FileExists(strPicFile) then
Result:= True;
except
Result:= False;
end;
end;
Ｃ＃版本：
/* GDI delegate to GetDeviceCaps function */
[DllImport("GDI32.dll")]
public static extern int GetDeviceCaps(int hdc, int nIndex);
/* User32 delegates to getDC and ReleaseDC */
[DllImport("User32.dll")]
public static extern int GetDC(int hWnd);
[DllImport("User32.dll")]
public static extern int ReleaseDC(int hWnd, int hDC);
[DllImport("user32.dll", SetLastError = true)]
static extern bool SystemParametersInfo(uint uiAction, uint uiParam, ref int pvParam, uint fWinIni);
/// <summary>
/// 地图距离转屏幕像素数,不同缩放比例尺下同样距离对应像素数不同的，有特殊需要时设置sMapBLC
/// </summary>
/// <param name="pAV">The p AV.</param>
/// <param name="dMapUnits">地图距离</param>
/// <returns></returns>
public static double ConvertMapUnitsToPixels(IActiveView pAV, double dMapUnits)
{
IDisplayTransformation pDT = pAV.ScreenDisplay.DisplayTransformation;
tagRECT pDeviceFrame = pDT.get_DeviceFrame();
int iDeviceLeft = pDeviceFrame.left;
int iDeviceRight = pDeviceFrame.right;
int iPixelExtent = iDeviceRight-iDeviceLeft;
double dRealWorldExtent = pAV.Extent.Width;
double dSizeOfEachPixel = dRealWorldExtent / iPixelExtent;
return dMapUnits / dSizeOfEachPixel;
}
/// <summary>
/// 指定范围裁剪图片
/// </summary>
/// <param name="pMap">裁图地图窗口</param>
/// <param name="pExtent">指定裁图范围</param>
/// <param name="strPicFile">输出文件名称</param>
/// <param name="iOutResolution">输出DPI</param>
public static void ClipMap2Pic(IMap pMap, IEnvelope pExtent, string strPicFile, int iOutResolution, double blc, bool withWarning)
{
if (pMap == null) return;
if (strPicFile == string.Empty) return;
if (File.Exists(strPicFile))
{
if ((!withWarning) || (withWarning && (GtMap.GxFrame.GxFrameLib.Common.AxMessageBox.ShowConfirmation("图片已存在，是否覆盖？") == System.Windows.Forms.DialogResult.Yes)))
File.Delete(strPicFile);
else
return;
}
IActiveView pAV = pMap as IActiveView;
string sWJLX = strPicFile.Substring(strPicFile.Length - ).ToUpper();
IExport pExport = null;
if (sWJLX == ".TIF") //根据文件名后4位判断输出类型
pExport = new ExportTIFFClass();
else
if (sWJLX == ".EMF")
pExport = new ExportEMFClass();
else
if (sWJLX == ".BMP")
pExport = new ExportBMPClass();
else
if (sWJLX == ".GIF")
pExport = new ExportGIFClass();
if (sWJLX == ".PDF")
pExport = new ExportPDFClass();
else
if (sWJLX == ".PNG")
pExport = new ExportPNGClass();
else
if (sWJLX == ".SVG")
pExport = new ExportSVGClass();
else
if (strPicFile.Substring(strPicFile.Length - ).ToUpper() == ".AI")
pExport = new ExportAIClass();
else
if (sWJLX == ".EPS")
pExport = new ExportPSClass();
else
pExport = new ExportJPEGClass();
IDisplayTransformation pDT = pAV.ScreenDisplay.DisplayTransformation;
IOutputRasterSettings docOutputRasterSettings = pDT as IOutputRasterSettings;
int iPrevOutputImageQuality = docOutputRasterSettings.ResampleRatio;
docOutputRasterSettings.ResampleRatio = ; ////这个似乎没什么用
//获取屏幕dpi
/* Get the device context of the screen */
long tmpDC = GetDC();
/* Get the screen resolution. */
int iScreenResolution = GetDeviceCaps((int)tmpDC, ); //88 is the win32 const for Logical pixels/inch in X)
/* release the DC. */
ReleaseDC(, (int)tmpDC);
// 根据传入的pExtent确定裁图的画布大小（出图比例尺下裁图范围的像素高和宽）
tagRECT ptagTmp;
ptagTmp.left = ; //ptagTmp的right和bottom非常主要
ptagTmp.top = ;
ptagTmp.right = (int)Math.Truncate(ConvertMapUnitsToPixels(pAV,pExtent.Width) * iOutResolution / iScreenResolution); //把地图距离转为屏幕像素个数
ptagTmp.bottom = (int)Math.Truncate(ConvertMapUnitsToPixels(pAV,pExtent.Height) * iOutResolution / iScreenResolution);
IEnvelope pEnvNew = new EnvelopeClass();
pEnvNew.PutCoords(ptagTmp.left,ptagTmp.top,ptagTmp.right,ptagTmp.bottom); //裁图的画布大小
pExport.ExportFileName = strPicFile;
pExport.Resolution = iOutResolution;
pExport.PixelBounds = pEnvNew;
if (sWJLX == ".TIF")
{
(pExport as IExportTIFF).GeoTiff = true;//包含tif文件坐标信息，这2句是必须的
(pExport as IWorldFileSettings).MapExtent = pExtent;
(pExport as IExportTIFF).CompressionType = esriTIFFCompression.esriTIFFCompressionJPEG;
}
if (sWJLX == ".PDF")
{
(pExport as IExportPDF).Compressed = true;
(pExport as IExportPDF).EmbedFonts = true;
(pExport as IExportPDF).ImageCompression = esriExportImageCompression.esriExportImageCompressionNone;
}
int ihdc = pExport.StartExporting();
pAV.Output(ihdc, iOutResolution, ref ptagTmp, pExtent, null);
pExport.FinishExporting();
pExport.Cleanup();
(pDT as IOutputRasterSettings).ResampleRatio = iPrevOutputImageQuality;
if (!File.Exists(strPicFile) && withWarning)
GtMap.GxFrame.GxFrameLib.Common.AxMessageBox.ShowInformation("图片导出失败！");
}
//created by jhlong http://jhlong12345.blog.163.com/