注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

naigeer的知识库

不断学习,用知识武装头脑,用头脑创造未来!

 
 
 

日志

 
 

ArcScene中三维图片的输出  

2007-12-02 15:47:22|  分类: ArcGIS开发 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
开发环境:VB+AE,将ArcScene中的三维场景输出为JPG、BMP格式
效果图:
ArcScene中三维图片的输出 - younglion - naigeer的知识库
代码如下:
'*********************************************
'目的:输出立体地图为JPG格式
'调试:naigeer
'日期:2007-12-02
'*********************************************
Private Sub mnuFILE_Export_Click()
If Me.sc3DMap.Scene.LayerCount > 0 Then
    WithComDialogFile
       .DialogTitle = "保存立体地图"
       '只能输入文件名文本框已经存在的文件名,隐藏只读,对存在的文件提示是否覆盖
       .FLAGS = cdlOFNPathMustExist + cdlOFNExplorer + cdlOFNHideReadOnly+ cdlOFNOverwritePrompt
       .DefaultExt = "jpg" '默认的扩展名
       .Filter = "jpg文件|*.jpg|bmp文件|*.bmp"
       .CancelError = False
       .FileName = ""
       .ShowSave
    EndWith
    IfTrim(ComDialogFile.FileName) <> "" Then
       If ComDialogFile.FilterIndex = 1 Then
           Me.sc3DMap.SceneViewer.GetScreenShot JPEG,ComDialogFile.FileName
       Else
           Me.sc3DMap.SceneViewer.GetScreenShot BMP,ComDialogFile.FileName
       End If
       MsgBox "导出图片成功!", vbExclamation
    End If
Else
    MsgBox"立体地图中不存在任何数据,请先生成立体地图!", vbExclamation
    ExitSub
End If
End Sub
  评论这张
 
阅读(657)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017