カテゴリ
以前の記事
2024年 03月 2024年 02月 2024年 01月 2023年 12月 2023年 11月 2023年 10月 2023年 09月 2023年 08月 2023年 07月 2023年 06月 more... お気に入りブログ
最新のコメント
検索
タグ
最新の記事
記事ランキング
ブログジャンル
画像一覧
|
2006年 11月 07日
SISのGISLinkを利用して,カレントオーバーレイにある主題図画像を連続出力するツールです.
気が向いたらクリック!
GISを利用してアニメーションを作成する時などに利用します. フォームにテキストボックス(TextBoxPath)とボタン3つ(ButtonExport,ButtonSetDirectory,ListCaps)を配置する必要があります. Private Sub ButtonExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExport.Click Dim exportPath As String Dim baseDir As String = Me.TextBoxPath.Text 'カレントオーバーレイ番号の取得 Dim datasetNo As Integer = GisGetInt(SIS_OT_WINDOW, 0, "_nDefaultOverlay&") '主題図数の取得 Dim themeCount As Integer = GisGetInt(SIS_OT_OVERLAY, datasetNo, "_nTheme&") 'カレントオーバーレイの主題図をすべて非表示 For i As Integer = 0 To themeCount - 1 GisEnableOverlayTheme(datasetNo, i, False) Next '主題図を1つづつアクティブにする For j As Integer = 0 To themeCount - 1 GisEnableOverlayTheme(datasetNo, j, True) exportPath = My.Computer.FileSystem.CombinePath(baseDir, Format$(j, "000") & ".png") '現在の画像の出力 640*480 GisExportPng(exportPath, 640, 480) GisEnableOverlayTheme(datasetNo, j, False) Next '制御の解放 GisRelease() Application.Exit() End Sub Private Sub ButtonSetDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSetDirectory.Click Me.FolderBrowserDialog.ShowDialog() Me.TextBoxPath.Text = Me.FolderBrowserDialog.SelectedPath End Sub
by dolphinicity
| 2006-11-07 13:22
| GIS
|
Comments(2)
Commented
by
physician assistant
at 2011-01-19 05:30
x
I’ve recently started a blog, the information you provide on this site has helped me tremendously. Thank you for all of your time & work.
0
Commented
by
dolphinicity at 2011-02-11 22:24
Are you a SIS user? I'm glad to be of some help.
|
ファン申請 |
||