カテゴリ
以前の記事
2024年 03月 2024年 02月 2024年 01月 2023年 12月 2023年 11月 2023年 10月 2023年 09月 2023年 08月 2023年 07月 2023年 06月 more... お気に入りブログ
最新のコメント
検索
タグ
最新の記事
記事ランキング
ブログジャンル
画像一覧
|
2006年 11月 20日
SISのGISLinkを利用して,カレントオーバーレイにある主題図画像を連続出力するツールのその2です.
気が向いたらクリック!
GISを利用してアニメーションを作成する時などに利用しますが,動作が遅いので改良の必要があります. フォームにボタン2つ(ButtonAnimation,ListCaps)を配置する必要があります. Private Sub ButtonAnimation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAnimation.Click 'スキーマのtheme#カラムに対しユーザ定義フィールドの内容を順番にコピーし,時系列のアニメーションを実行するプログラム. '主題図用カラムにコピーする最初のカラム番号(任意) Const startSchemeNo As Long = 8 'カレントオーバーレイ番号の取得 Dim datasetNo As Integer = GisGetInt(SIS_OT_WINDOW, 0, "_nDefaultOverlay&") 'スキーマの個数 Dim schemeCount As Long = GisGetInt(SIS_OT_SCHEMA, 0, "_nColumns&") 'リスト作成 GisCreateListFromOverlay(datasetNo, "ItemList") Dim formulaString As String 'スキーマ内容のコピーと反映 For i As Integer = startSchemeNo To schemeCount - 1 'formula名称の取得 formulaString = GisGetStr$(SIS_OT_SCHEMACOLUMN, i, "_formula$") 'リストに反映 GisSetListFormula("ItemList", "theme#", formulaString) '再描画 GisRedraw(SIS_QUICK_REDRAW) Next '制御の解放 GisRelease() Application.Exit() End Sub
by dolphinicity
| 2006-11-20 13:28
| GIS
|
Comments(0)
|
ファン申請 |
||