AutoCAD LTをExcelでコントロール AutoCAD LTをExcelでコントロール
| ブロック挿入 |
|---|
電気設備＝UserForm1    |
| Private Sub UserForm_Activate() 'UserFormが開かれた時に、ListBox1に項目を追加します。 With ListBox1 .AddItem "照明器具1" .AddItem "照明器具2" .AddItem "火災報知器" .AddItem "ｲﾝﾀｰﾌｫﾝ・ｽﾋﾟｰｶｰ" .AddItem "配線" .AddItem "警報・呼出" .AddItem "テレビ・共聴" .AddItem "トランス" .AddItem "ガス漏れ" .AddItem "監視カメラ" .AddItem "自動閉鎖" .AddItem "消火" .AddItem "電気時計" .AddItem "電話" .AddItem "動力" .AddItem "盤" .AddItem "避雷" .AddItem "非常警報" End With End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox1_Click() Dim shurui As String 'ListBox1の項目が選択されたとき、ListBox2に項目を追加します。 ListBox2.Clear shurui = ListBox1.Text Select Case shurui Case "照明器具1" ListBox2.AddItem "天井白熱灯1" ListBox2.AddItem "天井白熱灯2" ListBox2.AddItem "天井白熱灯3" ListBox2.AddItem "壁付白熱灯1" ListBox2.AddItem "壁付白熱灯2" ListBox2.AddItem "壁付白熱灯3" ListBox2.AddItem "コードペンダント" ListBox2.AddItem "ダウンライト" ListBox2.AddItem "蛍光灯ペンダント" ListBox2.AddItem "天井付蛍光灯1" ListBox2.AddItem "天井付蛍光灯2" ListBox2.AddItem "天井付蛍光灯3" ListBox2.AddItem "天井付蛍光灯4" ListBox2.AddItem "天井付蛍光灯5" ListBox2.AddItem "天井付蛍光灯6" ListBox2.AddItem "天井付蛍光灯7" ListBox2.AddItem "天井付蛍光灯8" ListBox2.AddItem "壁付蛍光灯" ListBox2.AddItem "通路誘導灯1" ListBox2.AddItem "通路誘導灯2" ListBox2.AddItem "階段通路誘導灯" ListBox2.AddItem "避難口誘導灯" ListBox2.AddItem "投光器" Case "照明器具2" ListBox2.AddItem "スイッチ1" ListBox2.AddItem "スイッチ2" ListBox2.AddItem "スイッチ3" ListBox2.AddItem "スイッチ4" ListBox2.AddItem "スイッチ5" ListBox2.AddItem "スイッチ6" ListBox2.AddItem "スイッチ7" ListBox2.AddItem "スイッチ8" ListBox2.AddItem "スイッチ9" ListBox2.AddItem "スイッチ10" ListBox2.AddItem "スイッチ11" ListBox2.AddItem "壁付コンセント1" ListBox2.AddItem "壁付コンセント2" ListBox2.AddItem "床コンセント" ListBox2.AddItem "天井コンセント" ListBox2.AddItem "壁コンセント" ListBox2.AddItem "非常コンセント" ListBox2.AddItem "セレクタースイッチ" ListBox2.AddItem "ワイドハンドル型スイッチ" ListBox2.AddItem "リモコンリレー" ListBox2.AddItem "リレー集合体" ListBox2.AddItem "リモコンリレー集合体" ListBox2.AddItem "引掛けローゼット" ListBox2.AddItem "壁付ボタン" ListBox2.AddItem "自動点滅器" ListBox2.AddItem "接地端子" ListBox2.AddItem "調光器" Case "火災報知器" ListBox2.AddItem "P型発信機1" ListBox2.AddItem "P型発信機2" ListBox2.AddItem "移報器" ListBox2.AddItem "炎感知器" ListBox2.AddItem "煙感知器11" ListBox2.AddItem "煙感知器12" ListBox2.AddItem "煙感知器13" ListBox2.AddItem "回路試験器" ListBox2.AddItem "機器収納箱" ListBox2.AddItem "警報ベル1" ListBox2.AddItem "警報ベル2" ListBox2.AddItem "光電式感知器1" ListBox2.AddItem "光電式感知器2" ListBox2.AddItem "差動式感知器1" ListBox2.AddItem "差動式感知器2" ListBox2.AddItem "差動式感知器3" ListBox2.AddItem "差動式感知器4" ListBox2.AddItem "差動式感知器5" ListBox2.AddItem "差動式感知器6" ListBox2.AddItem "差動式スポット試験器" ListBox2.AddItem "定温式感知器1" ListBox2.AddItem "定温式感知器2" ListBox2.AddItem "定温式感知器3" ListBox2.AddItem "定温式感知器4" ListBox2.AddItem "定温式感知器5" ListBox2.AddItem "定温式感知器6" ListBox2.AddItem "熱煙複合式感知器" ListBox2.AddItem "熱複合式感知器1" ListBox2.AddItem "熱複合式感知器2" ListBox2.AddItem "熱複合式感知器3" ListBox2.AddItem "補償式感知器" ListBox2.AddItem "終端抵抗器" ListBox2.AddItem "表示灯" Case "ｲﾝﾀｰﾌｫﾝ・ｽﾋﾟｰｶｰ" ListBox2.AddItem "子電話" ListBox2.AddItem "親電話" ListBox2.AddItem "子スピーカー" ListBox2.AddItem "親スピーカー" ListBox2.AddItem "マイクロフォン用コンセント" ListBox2.AddItem "マイクロフォン用ジャック" ListBox2.AddItem "スピーカー用アウトレット" ListBox2.AddItem "スピーカー用コンセント" ListBox2.AddItem "スピーカー用ジャック" ListBox2.AddItem "ホーン付スピーカー" ListBox2.AddItem "天井付スピーカー1" ListBox2.AddItem "天井付スピーカー2" ListBox2.AddItem "アッテネーター" ListBox2.AddItem "増幅器" ListBox2.AddItem "プロジェクタ" ListBox2.AddItem "ラジオアンテナ" ListBox2.AddItem "遠隔操作器" Case "配線" ListBox2.AddItem "ジョイントボックス1" ListBox2.AddItem "ジョイントボックス2" ListBox2.AddItem "ジョイントボックス3" ListBox2.AddItem "プルボックス" ListBox2.AddItem "引下げ" ListBox2.AddItem "素通し" ListBox2.AddItem "二重床用コンセント1" ListBox2.AddItem "二重床用コンセント2" ListBox2.AddItem "二重床用コンセント3" ListBox2.AddItem "二重床用ジョイントボックス" ListBox2.AddItem "防火区画貫通" ListBox2.AddItem "防火区画素通し" ListBox2.AddItem "防火区画引下げ" ListBox2.AddItem "防火区画立上げ" ListBox2.AddItem "立上げ" Case "警報・呼出" ListBox2.AddItem "チャイム" ListBox2.AddItem "チャイム押ボタン" ListBox2.AddItem "ブザー" ListBox2.AddItem "ベル" ListBox2.AddItem "モニターテレビ" ListBox2.AddItem "リミッタースイッチ" ListBox2.AddItem "警報ブザー" ListBox2.AddItem "警報ベル" ListBox2.AddItem "警報押ボタン" ListBox2.AddItem "卓上押ボタン" ListBox2.AddItem "発信機" ListBox2.AddItem "呼出ボタン" ListBox2.AddItem "復帰ボタン" Case "テレビ・共聴" ListBox2.AddItem "テレビアンテナ" ListBox2.AddItem "テレビ端子" ListBox2.AddItem "パラボナアンテナ" ListBox2.AddItem "機器収納箱" ListBox2.AddItem "混合分波器" ListBox2.AddItem "混合器BS右" ListBox2.AddItem "混合器BS左" ListBox2.AddItem "増幅器1" ListBox2.AddItem "分岐増幅器" ListBox2.AddItem "壁付直列ユニット1" ListBox2.AddItem "壁付直列ユニット2" ListBox2.AddItem "壁付直列ユニット3" ListBox2.AddItem "電源供給器" ListBox2.AddItem "1分岐器" ListBox2.AddItem "2分岐器1" ListBox2.AddItem "2分岐器2" ListBox2.AddItem "4分岐器1" ListBox2.AddItem "4分岐器2" ListBox2.AddItem "6分岐器" Case "トランス" ListBox2.AddItem "CB" ListBox2.AddItem "DS-1" ListBox2.AddItem "DS-R" ListBox2.AddItem "JU-H" ListBox2.AddItem "MCB" ListBox2.AddItem "MG-SW" ListBox2.AddItem "PS" ListBox2.AddItem "トランス" ListBox2.AddItem "トランス3DS" ListBox2.AddItem "トランス3SD" ListBox2.AddItem "トランス3SS" ListBox2.AddItem "トランスSU" Case "ガス漏れ" ListBox2.AddItem "検知器" ListBox2.AddItem "壁掛検知器" ListBox2.AddItem "受信機1" ListBox2.AddItem "中継器" ListBox2.AddItem "表示灯付中継器" Case "監視カメラ" ListBox2.AddItem "TVカメラ" ListBox2.AddItem "タイムプラスVTR" ListBox2.AddItem "ビデオモニター" ListBox2.AddItem "映像切替器" ListBox2.AddItem "映像分配器" ListBox2.AddItem "映像補償器" ListBox2.AddItem "監視カメラ" Case "自動閉鎖" ListBox2.AddItem "煙感知器1" ListBox2.AddItem "煙感知器2" ListBox2.AddItem "自閉鎖装置" ListBox2.AddItem "熱感知器" ListBox2.AddItem "運動制御器1" ListBox2.AddItem "運動制御器2" Case "消火" ListBox2.AddItem "サイレン" ListBox2.AddItem "警報ブザー" ListBox2.AddItem "起動ボタン1" ListBox2.AddItem "起動ボタン2" ListBox2.AddItem "始動表示灯" Case "電気時計" ListBox2.AddItem "スピーカー付子時計" ListBox2.AddItem "子時計" ListBox2.AddItem "子時計アウトレット" ListBox2.AddItem "親時計" Case "電話" ListBox2.AddItem "電話用アウトレット1" ListBox2.AddItem "電話用アウトレット2" ListBox2.AddItem "ボタン電話機" ListBox2.AddItem "電話用モジュラジャック" ListBox2.AddItem "交換機" ListBox2.AddItem "集合保安器箱" ListBox2.AddItem "転換器" ListBox2.AddItem "内線電話機" Case "動力" ListBox2.AddItem "フロートスイッチ" ListBox2.AddItem "ポンプ" ListBox2.AddItem "換気扇" ListBox2.AddItem "電動機" ListBox2.AddItem "動力操作" ListBox2.AddItem "閉鎖器箱" Case "盤" ListBox2.AddItem "局線中継局" ListBox2.AddItem "ボタン電話装置" ListBox2.AddItem "受信機" ListBox2.AddItem "制御盤1" ListBox2.AddItem "局線表示盤" ListBox2.AddItem "警報盤" ListBox2.AddItem "主幹閉鎖器盤" ListBox2.AddItem "消火制御盤" ListBox2.AddItem "端子盤" ListBox2.AddItem "動力制御盤" ListBox2.AddItem "表示盤" ListBox2.AddItem "副受信機" ListBox2.AddItem "複合盤" ListBox2.AddItem "分電盤" ListBox2.AddItem "本配線盤" Case "避雷" ListBox2.AddItem "接地極" ListBox2.AddItem "接地抵抗測定端子" ListBox2.AddItem "避雷針" Case "非常警報" ListBox2.AddItem "一体形" ListBox2.AddItem "起動装置" ListBox2.AddItem "電源部" ListBox2.AddItem "非常ベル" ListBox2.AddItem "非常電話機" ListBox2.AddItem "複合装置" End Select End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox2_Click() Dim Symname As String Dim wmfname As String Symname = ListBox2.Text '画像ファイルの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 wmfname = "C:\ExAcad\CadData\" & Symname & ".wmf" '画像を表示します。 Image1.Picture = LoadPicture(wmfname) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim BlkName As String 'ブロックの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 BlkName = "C:\ExAcad\CadData\" & ListBox2.Text & ".dwg" 'AutoCAD をアクティブにします。 '[SetAcadCtrl]はExcelからAutoCAD LTをコントロールする標準モジュールです。 'SendKeysは不安定ですが、これはLTへ確実にコマンドを送信できます。 SetAcadActive 'AutoCAD のコマンドラインに、ブロック挿入のコマンドを送ります。 '' Enter = vbCr または、Chr(13) SendAcadCommand ("-insert " + BlkName + vbCr) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton2_Click() End End Sub |
空調設備＝UserForm2   |
| Private Sub UserForm_Activate() 'UserFormが開かれた時に、ListBox1に項目を追加します。 With ListBox1 .AddItem "弁" .AddItem "メーター" .AddItem "ポンプ" .AddItem "一般記号" .AddItem "制御装置" .AddItem "便器・洗面器" .AddItem "流し・キッチン・バス" .AddItem "給水" .AddItem "排水" .AddItem "排水−系統図" .AddItem "消火" .AddItem "ガス" End With End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox1_Click() Dim shurui As String 'ListBox1の項目が選択されたとき、ListBox2に項目を追加します。 ListBox2.Clear shurui = ListBox1.Text Select Case shurui Case "弁" ListBox2.AddItem "埋設弁" ListBox2.AddItem "仕切弁" ListBox2.AddItem "バタフライ弁" ListBox2.AddItem "玉形弁" ListBox2.AddItem "逆止弁" ListBox2.AddItem "安全弁1" ListBox2.AddItem "安全弁2" ListBox2.AddItem "空気抜き弁" ListBox2.AddItem "コック" ListBox2.AddItem "立管用" Case "メーター" ListBox2.AddItem "圧力計" ListBox2.AddItem "水高計" ListBox2.AddItem "達成計" ListBox2.AddItem "温度計" ListBox2.AddItem "瞬間流量計" Case "ポンプ" ListBox2.AddItem "ポンプ平面図用" ListBox2.AddItem "ポンプ系統図用1" ListBox2.AddItem "ポンプ系統図用2" ListBox2.AddItem "ポンプ系統図用3" ListBox2.AddItem "水中ポンプ平面図用" ListBox2.AddItem "水中ポンプ系統図用清水" ListBox2.AddItem "水中ポンプ系統図用汚水" ListBox2.AddItem "ラインポンプ1" ListBox2.AddItem "ラインポンプ2" Case "一般記号" ListBox2.AddItem "三角形" ListBox2.AddItem "四角形" ListBox2.AddItem "菱形" ListBox2.AddItem "円" ListBox2.AddItem "楕円" Case "制御装置" ListBox2.AddItem "減圧弁1" ListBox2.AddItem "減圧弁2" ListBox2.AddItem "温度調整弁1" ListBox2.AddItem "温度調整弁2" ListBox2.AddItem "電磁弁" ListBox2.AddItem "電動二方弁1" ListBox2.AddItem "電動二方弁2" ListBox2.AddItem "電動三方弁1" ListBox2.AddItem "サーモスタット1" ListBox2.AddItem "サーモスタット2" ListBox2.AddItem "ヒューデミスタット1" ListBox2.AddItem "ヒューデミスタット2" ListBox2.AddItem "制御盤" Case "便器・洗面器" ListBox2.AddItem "便器・洗面器1" ListBox2.AddItem "便器・洗面器2" ListBox2.AddItem "便器・洗面器3" ListBox2.AddItem "便器・洗面器4" ListBox2.AddItem "便器・洗面器5" ListBox2.AddItem "便器・洗面器6" ListBox2.AddItem "便器・洗面器7" ListBox2.AddItem "便器・洗面器8" ListBox2.AddItem "便器・洗面器9" ListBox2.AddItem "便器・洗面器10" ListBox2.AddItem "便器・洗面器11" ListBox2.AddItem "便器・洗面器12" Case "流し・キッチン・バス" ListBox2.AddItem "流し1" ListBox2.AddItem "流し2" ListBox2.AddItem "キッチン1" ListBox2.AddItem "キッチン2" ListBox2.AddItem "キッチン3" ListBox2.AddItem "キッチン4" ListBox2.AddItem "ユニットバス1" ListBox2.AddItem "ユニットバス2" ListBox2.AddItem "ユニットバス3" ListBox2.AddItem "ユニットバス4" ListBox2.AddItem "ユニットバス5" ListBox2.AddItem "ユニットバス6" Case "給水" ListBox2.AddItem "水栓" ListBox2.AddItem "湯栓" ListBox2.AddItem "混合栓1" ListBox2.AddItem "混合栓2" ListBox2.AddItem "水栓柱" ListBox2.AddItem "散水柱" ListBox2.AddItem "シャワー" ListBox2.AddItem "洗浄弁" ListBox2.AddItem "自動開閉弁" ListBox2.AddItem "ポールタップ" ListBox2.AddItem "量水器" Case "排水" ListBox2.AddItem "床上掃除口" ListBox2.AddItem "床下掃除口" ListBox2.AddItem "床排水トラップ" ListBox2.AddItem "排水金物" ListBox2.AddItem "間接排水金物" ListBox2.AddItem "共栓付排水金物" ListBox2.AddItem "グリース" ListBox2.AddItem "オイル" ListBox2.AddItem "トラップ桝" ListBox2.AddItem "インバート桝" ListBox2.AddItem "ため桝" ListBox2.AddItem "公設桝" Case "排水−系統図" ListBox2.AddItem "直管" ListBox2.AddItem "45度曲管1" ListBox2.AddItem "45度曲管2" ListBox2.AddItem "両受け90度曲管" ListBox2.AddItem "90度曲管1" ListBox2.AddItem "90度曲管2" ListBox2.AddItem "90度曲管3" ListBox2.AddItem "90度曲管4" ListBox2.AddItem "90度Y管1" ListBox2.AddItem "90度Y管2" ListBox2.AddItem "90度Y管3" ListBox2.AddItem "90度Y管4" ListBox2.AddItem "Y管1" ListBox2.AddItem "Y管2" ListBox2.AddItem "排水T管1" ListBox2.AddItem "排水T管2" ListBox2.AddItem "90度両Y管" ListBox2.AddItem "継ぎ輪" ListBox2.AddItem "片落ち管" ListBox2.AddItem "90度曲管4" ListBox2.AddItem "L付短管1" ListBox2.AddItem "L付短管2" ListBox2.AddItem "Y管鉛管接続1" ListBox2.AddItem "Y管鉛管接続2" ListBox2.AddItem "90度Y管鉛管接続1" ListBox2.AddItem "90度Y管鉛管接続2" ListBox2.AddItem "排水T管鉛管接続1" ListBox2.AddItem "排水T管鉛管接続2" ListBox2.AddItem "90度L管鉛管接続1" ListBox2.AddItem "90度L管鉛管接続2" Case "消火" ListBox2.AddItem "消火栓屋内" ListBox2.AddItem "消火栓屋内放水口共" ListBox2.AddItem "消火栓屋外地上式" ListBox2.AddItem "消火栓屋外組込形" ListBox2.AddItem "流水検知器" ListBox2.AddItem "直流電流装置" ListBox2.AddItem "手動起動装置" ListBox2.AddItem "復帰箱" ListBox2.AddItem "送水口1口" ListBox2.AddItem "送水口2口" ListBox2.AddItem "放水口1口" ListBox2.AddItem "放水口2口" ListBox2.AddItem "連結放水口1" ListBox2.AddItem "連結放水口2" ListBox2.AddItem "散水ヘッド" ListBox2.AddItem "噴射ヘッド露出形" ListBox2.AddItem "噴射ヘッド隠微形" ListBox2.AddItem "選択弁" ListBox2.AddItem "アラーム弁右" ListBox2.AddItem "アラーム弁左" ListBox2.AddItem "モータサイレン右" ListBox2.AddItem "モータサイレン左" ListBox2.AddItem "Y管鉛管接続1" ListBox2.AddItem "Y管鉛管接続2" ListBox2.AddItem "ピストンレリーザ1" ListBox2.AddItem "ピストンレリーザ2" ListBox2.AddItem "ウオータモータゴング" ListBox2.AddItem "感知用ヘッド" Case "ガス" ListBox2.AddItem "ガス栓1口" ListBox2.AddItem "ガス栓2口" ListBox2.AddItem "ガス栓壁埋込み" ListBox2.AddItem "ノックハンドルコック" ListBox2.AddItem "ガスメーター" ListBox2.AddItem "水取器" End Select End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox2_Click() Dim Symname As String Dim wmfname As String Symname = ListBox2.Text '画像ファイルの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 wmfname = "C:\ExAcad\CadData\" & Symname & ".wmf" '画像を表示します。 Image1.Picture = LoadPicture(wmfname) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim BlkName As String 'ブロックの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 BlkName = "C:\ExAcad\CadData\" & ListBox2.Text & ".dwg" 'AutoCAD をアクティブにします。 '[SetAcadCtrl]はExcelからAutoCAD LTをコントロールする標準モジュールです。 'SendKeysは不安定ですが、これはLTへ確実にコマンドを送信できます。 SetAcadActive 'AutoCAD のコマンドラインに、ブロック挿入のコマンドを送ります。 '' Enter = vbCr または、Chr(13) SendAcadCommand ("-insert " + BlkName + vbCr) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton2_Click() End End Sub |
海洋土木・側溝・暗渠＝UserForm3   |
| 'UserFormが開かれた時に、ListBox1に項目を追加します。 Private Sub UserForm_Activate() With ListBox1 .AddItem "海洋土木" .AddItem "----------------------------" .AddItem "PL(1-3)型プレキャストL型側溝" .AddItem "PL(4-5)型組み合わせL型側溝" .AddItem "L(1-2)型場所打ちL型側溝" .AddItem "PU1型U型側溝(ふた無し)" .AddItem "PU1型U型側溝(ふた付き)" .AddItem "PU1-2型道路用U型側溝(ふた無し)" .AddItem "場所打ちU型側溝(ふた付き)" .AddItem "場所打ちU型側溝(ふた無し：垂直)" .AddItem "場所打ちU型側溝(ふた無し：斜め)" .AddItem "場所打ち鉄筋コンクリート型側溝(ふた無し)" .AddItem "管渠(90°固定基礎)" .AddItem "管渠(180°固定基礎)" .AddItem "管渠(360°固定基礎)" End With End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox1_Click() Dim shurui As String 'ListBox1の項目が選択されたとき、ListBox2に項目を追加します。 ListBox2.Clear shurui = ListBox1.Text Select Case shurui Case "海洋土木" ListBox2.AddItem "seaman1" ListBox2.AddItem "seaman2" ListBox2.AddItem "seaman3" ListBox2.AddItem "seaman4" ListBox2.AddItem "ship1" ListBox2.AddItem "ship2" ListBox2.AddItem "ship3" ListBox2.AddItem "ship4" ListBox2.AddItem "ship5" ListBox2.AddItem "ship6" ListBox2.AddItem "ship7" ListBox2.AddItem "ship8" ListBox2.AddItem "ship9" ListBox2.AddItem "ship10" ListBox2.AddItem "ship11" ListBox2.AddItem "ship12" ListBox2.AddItem "ship13" ListBox2.AddItem "ship14" ListBox2.AddItem "ship15" ListBox2.AddItem "ship16" ListBox2.AddItem "ship17" ListBox2.AddItem "ship18" ListBox2.AddItem "ship19" ListBox2.AddItem "ship20" ListBox2.AddItem "ship21" ListBox2.AddItem "ship22" ListBox2.AddItem "ship23" ListBox2.AddItem "ship24" ListBox2.AddItem "ship25" ListBox2.AddItem "ship26" ListBox2.AddItem "ship27" ListBox2.AddItem "ship28" ListBox2.AddItem "ship29" ListBox2.AddItem "ship30" ListBox2.AddItem "ship31" ListBox2.AddItem "ship32" ListBox2.AddItem "ship33" ListBox2.AddItem "ship34" ListBox2.AddItem "ship35" ListBox2.AddItem "ship36" ListBox2.AddItem "ship37" ListBox2.AddItem "ship38" Case "PL(1-3)型プレキャストL型側溝" ListBox2.AddItem "PL1-B250A-H100" ListBox2.AddItem "PL1-B250B-H100" ListBox2.AddItem "PL2-B250A-H100" ListBox2.AddItem "PL2-B250B-H100" ListBox2.AddItem "PL2-B300-H100" ListBox2.AddItem "PL2-B350A-H100" ListBox2.AddItem "PL3-B500-H150" ListBox2.AddItem "PL3-B500-H200" ListBox2.AddItem "PL3-B500-H250" Case "PL(4-5)型組み合わせL型側溝" ListBox2.AddItem "PL4-B500-H150-T150" ListBox2.AddItem "PL4-B500-H150-T200" ListBox2.AddItem "PL4-B500-H150-T250" ListBox2.AddItem "PL4-B500-H200-T150" ListBox2.AddItem "PL4-B500-H200-T200" ListBox2.AddItem "PL4-B500-H200-T250" ListBox2.AddItem "PL4-B500-H250-T150" ListBox2.AddItem "PL4-B500-H250-T200" ListBox2.AddItem "PL4-B500-H250-T250" ListBox2.AddItem "PL5-B500-H150-T150" ListBox2.AddItem "PL5-B500-H150-T200" ListBox2.AddItem "PL5-B500-H150-T250" ListBox2.AddItem "PL5-B500-H200-T150" ListBox2.AddItem "PL5-B500-H200-T200" ListBox2.AddItem "PL5-B500-H200-T250" ListBox2.AddItem "PL5-B500-H250-T150" ListBox2.AddItem "PL5-B500-H250-T200" ListBox2.AddItem "PL5-B500-H250-T250" Case "L(1-2)型場所打ちL型側溝" ListBox2.AddItem "L1-B300-H300" ListBox2.AddItem "L1-B300-H400" ListBox2.AddItem "L1-B400-H400" ListBox2.AddItem "L1-B400-H500" ListBox2.AddItem "L1-B500-H500" ListBox2.AddItem "L2-B500-H600" ListBox2.AddItem "L2-B500-H700" ListBox2.AddItem "L2-B600-H600" ListBox2.AddItem "L2-B600-H700" ListBox2.AddItem "L2-B600-H800" ListBox2.AddItem "L2-B700-H700" ListBox2.AddItem "L2-B800-H800" ListBox2.AddItem "L2-B900-H900" ListBox2.AddItem "L2-B1000-H1000" Case "PU1型U型側溝(ふた無し)" ListBox2.AddItem "PU1-B240-H240" ListBox2.AddItem "PU1-B300-H240" ListBox2.AddItem "PU1-B300-H300" ListBox2.AddItem "PU1-B300-H360" ListBox2.AddItem "PU1-B360-H300" ListBox2.AddItem "PU1-B360-H360" ListBox2.AddItem "PU1-B450-H450" ListBox2.AddItem "PU1-B600-H600" Case "PU1型U型側溝(ふた付き)" ListBox2.AddItem "PU1-B240-H240B" ListBox2.AddItem "PU1-B300-H240B" ListBox2.AddItem "PU1-B300-H300B" ListBox2.AddItem "PU1-B300-H360B" ListBox2.AddItem "PU1-B360-H300B" ListBox2.AddItem "PU1-B360-H360B" ListBox2.AddItem "PU1-B450-H450B" ListBox2.AddItem "PU1-B600-H600B" Case "PU1-2型道路用U型側溝(ふた無し)" ListBox2.AddItem "PU2-B250-H250" ListBox2.AddItem "PU2-B300-H300" ListBox2.AddItem "PU2-B300-H400" ListBox2.AddItem "PU2-B300-H500" ListBox2.AddItem "PU2-B400-H400" ListBox2.AddItem "PU2-B400-H500" ListBox2.AddItem "PU2-B500-H500" ListBox2.AddItem "PU2-B500-H600" ListBox2.AddItem "PU3-B250-H250" ListBox2.AddItem "PU3-B300-H300" ListBox2.AddItem "PU3-B300-H400" ListBox2.AddItem "PU3-B300-H500" ListBox2.AddItem "PU3-B400-H400" ListBox2.AddItem "PU3-B400-H500" ListBox2.AddItem "PU3-B500-H500" ListBox2.AddItem "PU3-B500-H600" Case "場所打ちU型側溝(ふた付き)" ListBox2.AddItem "U1-B300-H600B" ListBox2.AddItem "U1-B400-H400B" ListBox2.AddItem "U2-B300-H400B" ListBox2.AddItem "U2-B300-H500B" ListBox2.AddItem "U2-B400-H500B" ListBox2.AddItem "U2-B400-H600B" ListBox2.AddItem "U2-B500-H500B" ListBox2.AddItem "U2-B500-H600B" ListBox2.AddItem "U2-B500-H700B" ListBox2.AddItem "U2-B600-H600B" ListBox2.AddItem "U2-B600-H700B" ListBox2.AddItem "U2-B700-H700B" ListBox2.AddItem "U4-B300-H400" ListBox2.AddItem "U4-B300-H500" ListBox2.AddItem "U4-B400-H400" ListBox2.AddItem "U4-B400-H500" ListBox2.AddItem "U4-B500-H500" Case "場所打ちU型側溝(ふた無し：垂直)" ListBox2.AddItem "U1-B300-H300" ListBox2.AddItem "U1-B300-H400" ListBox2.AddItem "U1-B300-H500" ListBox2.AddItem "U1-B300-H600" ListBox2.AddItem "U1-B400-H400" ListBox2.AddItem "U1-B400-H500" ListBox2.AddItem "U1-B400-H600" ListBox2.AddItem "U1-B500-H500" ListBox2.AddItem "U1-B500-H600" ListBox2.AddItem "U1-B500-H700" ListBox2.AddItem "U1-B600-H600" ListBox2.AddItem "U1-B600-H700" ListBox2.AddItem "U1-B700-H700" Case "場所打ちU型側溝(ふた無し：斜め)" ListBox2.AddItem "U5-B600-H800" ListBox2.AddItem "U5-B800-H800" ListBox2.AddItem "U5-B900-H900" ListBox2.AddItem "U5-B1000-H1000" ListBox2.AddItem "U6-B400-H600" ListBox2.AddItem "U6-B500-H600" ListBox2.AddItem "U6-B500-H700" ListBox2.AddItem "U6-B600-H600" ListBox2.AddItem "U6-B600-H700" ListBox2.AddItem "U6-B700-H700" ListBox2.AddItem "U6-B800-H800" ListBox2.AddItem "U6-B900-H900" ListBox2.AddItem "U6-B1000-H1000" Case "場所打ち鉄筋コンクリート型側溝(ふた無し)" ListBox2.AddItem "U7-B1200-H1100" ListBox2.AddItem "U7-B1200-H1200" ListBox2.AddItem "U7-B1400-H1100" ListBox2.AddItem "U7-B1400-H1200" ListBox2.AddItem "U7-B1400-H1300" ListBox2.AddItem "U7-B1400-H1400" ListBox2.AddItem "U7-B1600-H1100" ListBox2.AddItem "U7-B1600-H1200" ListBox2.AddItem "U7-B1600-H1300" ListBox2.AddItem "U7-B1600-H1400" ListBox2.AddItem "U7-B1600-H1500" ListBox2.AddItem "U7-B1800-H1100" ListBox2.AddItem "U7-B1800-H1200" ListBox2.AddItem "U7-B1800-H1300" ListBox2.AddItem "U7-B1800-H1400" ListBox2.AddItem "U7-B1800-H1500" ListBox2.AddItem "U7-B2000-H1100" ListBox2.AddItem "U7-B2000-H1200" ListBox2.AddItem "U7-B2000-H1300" ListBox2.AddItem "U7-B2000-H1400" ListBox2.AddItem "U7-B2000-H1500" Case "管渠(90°固定基礎)" ListBox2.AddItem "90度-径200" ListBox2.AddItem "90度-径250" ListBox2.AddItem "90度-径300" ListBox2.AddItem "90度-径350" ListBox2.AddItem "90度-径400" ListBox2.AddItem "90度-径450" ListBox2.AddItem "90度-径500" ListBox2.AddItem "90度-径600" ListBox2.AddItem "90度-径700" ListBox2.AddItem "90度-径800" ListBox2.AddItem "90度-径900" ListBox2.AddItem "90度-径1000" ListBox2.AddItem "90度-径1100" ListBox2.AddItem "90度-径1200" ListBox2.AddItem "90度-径1350" ListBox2.AddItem "90度-径1500" ListBox2.AddItem "90度-径1650" ListBox2.AddItem "90度-径1800" ListBox2.AddItem "90度-径2000" Case "管渠(180°固定基礎)" ListBox2.AddItem "180度-径200" ListBox2.AddItem "180度-径250" ListBox2.AddItem "180度-径300" ListBox2.AddItem "180度-径350" ListBox2.AddItem "180度-径400" ListBox2.AddItem "180度-径450" ListBox2.AddItem "180度-径500" ListBox2.AddItem "180度-径600" ListBox2.AddItem "180度-径700" ListBox2.AddItem "180度-径800" ListBox2.AddItem "180度-径900" ListBox2.AddItem "180度-径1000" ListBox2.AddItem "180度-径1100" ListBox2.AddItem "180度-径1200" ListBox2.AddItem "180度-径1350" ListBox2.AddItem "180度-径1500" ListBox2.AddItem "180度-径1650" ListBox2.AddItem "180度-径1800" ListBox2.AddItem "180度-径2000" Case "管渠(360°固定基礎)" ListBox2.AddItem "360度-径200" ListBox2.AddItem "360度-径250" ListBox2.AddItem "360度-径300" ListBox2.AddItem "360度-径350" ListBox2.AddItem "360度-径400" ListBox2.AddItem "360度-径450" ListBox2.AddItem "360度-径500" ListBox2.AddItem "360度-径600" ListBox2.AddItem "360度-径700" ListBox2.AddItem "360度-径800" ListBox2.AddItem "360度-径900" ListBox2.AddItem "360度-径1000" End Select End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox2_Click() Dim Symname As String Dim wmfname As String Symname = ListBox2.Text '画像ファイルの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 wmfname = "C:\ExAcad\CadData\" & Symname & ".wmf" '画像を表示します。 Image1.Picture = LoadPicture(wmfname) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim BlkName As String 'ブロックの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 BlkName = "C:\ExAcad\CadData\" & ListBox2.Text & ".dwg" 'AutoCAD をアクティブにします。 '[SetAcadCtrl]はExcelからAutoCAD LTをコントロールする標準モジュールです。 'SendKeysは不安定ですが、これはLTへ確実にコマンドを送信できます。 SetAcadActive 'AutoCAD のコマンドラインに、ブロック挿入のコマンドを送ります。 '' Enter = vbCr または、Chr(13) SendAcadCommand ("-insert " + BlkName + vbCr) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton2_Click() End End Sub |
   |
| 'UserFormが開かれた時に、ListBox1に項目を追加します。 Private Sub UserForm_Activate() With ListBox1 .AddItem "ダンプ・トラック" .AddItem "生コン車" .AddItem "ポンプ車" .AddItem "ブルドーザ" .AddItem "バックホー" .AddItem "クラムシェル" .AddItem "高所作業車" .AddItem "杭打ち機" .AddItem "台車クレーン" .AddItem "足場用クレーン" .AddItem "ラクタークレーン" .AddItem "トラッククレーン" .AddItem "クローラクレーン" .AddItem "ジブクレーン" .AddItem "タワークレーン" .AddItem "水平クレーン" .AddItem "足場立面" .AddItem "足場簡易" .AddItem "足場詳細" .AddItem "仮囲い" .AddItem "エレベータ・リフト" .AddItem "仮設トイレ" End With End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox1_Click() Dim shurui As String ListBox2.Clear 'ListBox1の項目が選択されたとき、ListBox2に項目を追加します。 shurui = ListBox1.Text Select Case shurui Case "ダンプ・トラック" ListBox2.AddItem "ダンプ1" ListBox2.AddItem "ダンプ2" ListBox2.AddItem "ダンプ3" ListBox2.AddItem "ダンプ4" ListBox2.AddItem "ダンプ5" ListBox2.AddItem "ダンプ6" ListBox2.AddItem "ダンプ7" ListBox2.AddItem "ダンプ8" ListBox2.AddItem "ダンプ9" ListBox2.AddItem "ダンプ10" ListBox2.AddItem "ダンプ11" ListBox2.AddItem "ダンプ12" ListBox2.AddItem "ダンプ13" ListBox2.AddItem "ダンプ14" Case "生コン車" ListBox2.AddItem "生コン車1" ListBox2.AddItem "生コン車2" ListBox2.AddItem "生コン車3" ListBox2.AddItem "生コン車4" ListBox2.AddItem "生コン車5" ListBox2.AddItem "生コン車6" ListBox2.AddItem "生コン車7" ListBox2.AddItem "生コン車8" Case "ポンプ車" ListBox2.AddItem "ポンプ車1" ListBox2.AddItem "ポンプ車2" ListBox2.AddItem "ポンプ車3" ListBox2.AddItem "ポンプ車4" ListBox2.AddItem "ポンプ車5" ListBox2.AddItem "ポンプ車6" ListBox2.AddItem "ポンプ車7" ListBox2.AddItem "ポンプ車8" Case "ブルドーザ" ListBox2.AddItem "ブルドーザ1" ListBox2.AddItem "ブルドーザ2" ListBox2.AddItem "ブルドーザ3" ListBox2.AddItem "ブルドーザ4" ListBox2.AddItem "ブルドーザ5" ListBox2.AddItem "ブルドーザ6" ListBox2.AddItem "ブルドーザ7" ListBox2.AddItem "ブルドーザ8" ListBox2.AddItem "ブルドーザ9" ListBox2.AddItem "ブルドーザ10" ListBox2.AddItem "ブルドーザ11" ListBox2.AddItem "ブルドーザ12" Case "バックホー" ListBox2.AddItem "バックホー1" ListBox2.AddItem "バックホー2" ListBox2.AddItem "バックホー3" ListBox2.AddItem "バックホー4" ListBox2.AddItem "バックホー5" ListBox2.AddItem "バックホー6" ListBox2.AddItem "バックホー7" ListBox2.AddItem "バックホー8" ListBox2.AddItem "バックホー9" ListBox2.AddItem "バックホー10" ListBox2.AddItem "バックホー11" ListBox2.AddItem "バックホー12" ListBox2.AddItem "バックホー13" ListBox2.AddItem "バックホー14" ListBox2.AddItem "バックホー15" ListBox2.AddItem "バックホー16" ListBox2.AddItem "バックホー17" ListBox2.AddItem "バックホー18" ListBox2.AddItem "バックホー19" Case "クラムシェル" ListBox2.AddItem "クラムシェル1" ListBox2.AddItem "クラムシェル2" ListBox2.AddItem "クラムシェル3" ListBox2.AddItem "クラムシェル4" ListBox2.AddItem "クラムシェル5" ListBox2.AddItem "クラムシェル6" Case "高所作業車" ListBox2.AddItem "高所作業車1" ListBox2.AddItem "高所作業車2" ListBox2.AddItem "高所作業車3" ListBox2.AddItem "高所作業車4" ListBox2.AddItem "高所作業車5" ListBox2.AddItem "高所作業車6" ListBox2.AddItem "高所作業車7" ListBox2.AddItem "高所作業車8" ListBox2.AddItem "高所作業車9" ListBox2.AddItem "高所作業車10" ListBox2.AddItem "高所作業車11" Case "杭打ち機" ListBox2.AddItem "杭打ち機1" ListBox2.AddItem "杭打ち機2" ListBox2.AddItem "杭打ち機3" ListBox2.AddItem "杭打ち機4" ListBox2.AddItem "杭打ち機5" ListBox2.AddItem "杭打ち機6" ListBox2.AddItem "杭打ち機7" ListBox2.AddItem "杭打ち機8" ListBox2.AddItem "杭打ち機9" ListBox2.AddItem "杭打ち機10" ListBox2.AddItem "杭打ち機11" ListBox2.AddItem "杭打ち機12" ListBox2.AddItem "杭打ち機13" ListBox2.AddItem "杭打ち機14" ListBox2.AddItem "杭打ち機15" ListBox2.AddItem "杭打ち機16" ListBox2.AddItem "杭打ち機17" Case "台車クレーン" ListBox2.AddItem "台車クレーン1" ListBox2.AddItem "台車クレーン2" ListBox2.AddItem "台車クレーン3" ListBox2.AddItem "台車クレーン4" Case "足場用クレーン" ListBox2.AddItem "足場用クレーン1" ListBox2.AddItem "足場用クレーン2" ListBox2.AddItem "足場用クレーン3" Case "ラクタークレーン" ListBox2.AddItem "ラクタークレーン1" ListBox2.AddItem "ラクタークレーン2" ListBox2.AddItem "ラクタークレーン3" ListBox2.AddItem "ラクタークレーン4" ListBox2.AddItem "ラクタークレーン5" ListBox2.AddItem "ラクタークレーン6" ListBox2.AddItem "ラクタークレーン7" ListBox2.AddItem "ラクタークレーン8" Case "トラッククレーン" ListBox2.AddItem "トラッククレーン1" ListBox2.AddItem "トラッククレーン2" ListBox2.AddItem "トラッククレーン3" ListBox2.AddItem "トラッククレーン4" ListBox2.AddItem "トラッククレーン5" ListBox2.AddItem "トラッククレーン6" ListBox2.AddItem "トラッククレーン7" ListBox2.AddItem "トラッククレーン8" ListBox2.AddItem "トラッククレーン9" ListBox2.AddItem "トラッククレーン10" ListBox2.AddItem "トラッククレーン11" ListBox2.AddItem "トラッククレーン12" ListBox2.AddItem "トラッククレーン13" ListBox2.AddItem "トラッククレーン14" ListBox2.AddItem "トラッククレーン15" ListBox2.AddItem "トラッククレーン16" Case "クローラクレーン" ListBox2.AddItem "クローラクレーン1" ListBox2.AddItem "クローラクレーン2" ListBox2.AddItem "クローラクレーン3" ListBox2.AddItem "クローラクレーン4" ListBox2.AddItem "クローラクレーン5" ListBox2.AddItem "クローラクレーン6" ListBox2.AddItem "クローラクレーン7" ListBox2.AddItem "クローラクレーン8" ListBox2.AddItem "クローラクレーン9" ListBox2.AddItem "クローラクレーン10" ListBox2.AddItem "クローラクレーン11" ListBox2.AddItem "クローラクレーン12" ListBox2.AddItem "クローラクレーン13" ListBox2.AddItem "クローラクレーン14" ListBox2.AddItem "クローラクレーン15" ListBox2.AddItem "クローラクレーン16" ListBox2.AddItem "クローラクレーン17" ListBox2.AddItem "クローラクレーン18" Case "ジブクレーン" ListBox2.AddItem "ジブクレーン1" ListBox2.AddItem "ジブクレーン2" ListBox2.AddItem "ジブクレーン3" ListBox2.AddItem "ジブクレーン4" ListBox2.AddItem "ジブクレーン5" ListBox2.AddItem "ジブクレーン6" ListBox2.AddItem "ジブクレーン7" ListBox2.AddItem "ジブクレーン8" ListBox2.AddItem "ジブクレーン9" Case "タワークレーン" ListBox2.AddItem "タワークレーン1" ListBox2.AddItem "タワークレーン2" ListBox2.AddItem "タワークレーン3" ListBox2.AddItem "タワークレーン4" ListBox2.AddItem "タワークレーン5" ListBox2.AddItem "タワークレーン6" ListBox2.AddItem "タワークレーン7" ListBox2.AddItem "タワークレーン8" ListBox2.AddItem "タワークレーン9" ListBox2.AddItem "タワークレーン10" ListBox2.AddItem "タワークレーン11" ListBox2.AddItem "タワークレーン12" ListBox2.AddItem "タワークレーン13" ListBox2.AddItem "タワークレーン14" ListBox2.AddItem "タワークレーン15" ListBox2.AddItem "タワークレーン16" ListBox2.AddItem "タワークレーン17" ListBox2.AddItem "タワークレーン18" ListBox2.AddItem "タワークレーン19" ListBox2.AddItem "タワークレーン20" ListBox2.AddItem "タワークレーン21" ListBox2.AddItem "タワークレーン22" ListBox2.AddItem "タワークレーン23" ListBox2.AddItem "タワークレーン24" Case "水平クレーン" ListBox2.AddItem "水平クレーン1" ListBox2.AddItem "水平クレーン2" ListBox2.AddItem "水平クレーン3" ListBox2.AddItem "水平クレーン4" ListBox2.AddItem "水平クレーン5" ListBox2.AddItem "水平クレーン6" ListBox2.AddItem "水平クレーン7" ListBox2.AddItem "水平クレーン8" ListBox2.AddItem "水平クレーン9" ListBox2.AddItem "水平クレーン10" ListBox2.AddItem "水平クレーン11" ListBox2.AddItem "水平クレーン12" Case "足場立面" ListBox2.AddItem "足場1" ListBox2.AddItem "足場2" ListBox2.AddItem "足場3" ListBox2.AddItem "足場4" Case "足場簡易" ListBox2.AddItem "足場簡易1" ListBox2.AddItem "足場簡易2" ListBox2.AddItem "足場簡易3" ListBox2.AddItem "足場簡易4" ListBox2.AddItem "足場簡易5" ListBox2.AddItem "足場簡易6" ListBox2.AddItem "足場簡易7" ListBox2.AddItem "足場簡易8" Case "足場詳細" ListBox2.AddItem "足場詳細1" ListBox2.AddItem "足場詳細2" ListBox2.AddItem "足場詳細3" ListBox2.AddItem "足場詳細4" ListBox2.AddItem "足場詳細5" ListBox2.AddItem "足場詳細6" ListBox2.AddItem "足場詳細7" ListBox2.AddItem "足場詳細8" Case "仮囲い" ListBox2.AddItem "仮囲い1" ListBox2.AddItem "仮囲い2" ListBox2.AddItem "仮囲い3" ListBox2.AddItem "仮囲い4" Case "エレベータ・リフト" ListBox2.AddItem "エレベータ1" ListBox2.AddItem "エレベータ2" ListBox2.AddItem "エレベータ3" ListBox2.AddItem "エレベータ4" Case "仮設トイレ" ListBox2.AddItem "トイレ1" ListBox2.AddItem "トイレ2" ListBox2.AddItem "トイレ3" ListBox2.AddItem "トイレ4" End Select End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox2_Click() Dim Symname As String Dim wmfname As String Symname = ListBox2.Text '画像ファイルの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 wmfname = "C:\ExAcad\CadData\" & Symname & ".wmf" '画像を表示します。 Image1.Picture = LoadPicture(wmfname) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() 'ブロックの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 BlkName = "C:\ExAcad\CadData\" & ListBox2.Text & ".dwg" 'AutoCAD をアクティブにします。 '[SetAcadCtrl]はExcelからAutoCAD LTをコントロールする標準モジュールです。 'SendKeysは不安定ですが、これはLTへ確実にコマンドを送信できます。 SetAcadActive 'AutoCAD のコマンドラインに、ブロック挿入のコマンドを送ります。 '' Enter = vbCr または、Chr(13) SendAcadCommand ("-insert " + BlkName + vbCr) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton2_Click() End End Sub |
   |
| 'UserFormが開かれた時に、ListBox1に項目を追加します。 Private Sub UserForm_Activate() With ListBox1 .AddItem "基準点" .AddItem "公共施設" .AddItem "建物記号" .AddItem "付属構造物" .AddItem "小物体" .AddItem "道路施設" .AddItem "水部構造物" .AddItem "植生" .AddItem "場地" .AddItem "諸地" .AddItem "変形地" End With End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox1_Click() Dim shurui As String 'ListBox1の項目が選択されたとき、ListBox2に項目を追加します。 ListBox2.Clear shurui = ListBox1.Text Select Case shurui Case "基準点" ListBox2.AddItem "三角点" ListBox2.AddItem "水準点" ListBox2.AddItem "多角点等" ListBox2.AddItem "公共基準点-三角点" ListBox2.AddItem "公共基準点-水準点" ListBox2.AddItem "公共基準点-多角点等" ListBox2.AddItem "その他の基準点" ListBox2.AddItem "標石を有しない標高点" ListBox2.AddItem "図化機測定による標高点" Case "公共施設" ListBox2.AddItem "マンホール-未分類" ListBox2.AddItem "マンホール-共同溝" ListBox2.AddItem "有線柱" ListBox2.AddItem "マンホール-ガス" ListBox2.AddItem "マンホール-電話" ListBox2.AddItem "電話柱" ListBox2.AddItem "電気" ListBox2.AddItem "電力柱" ListBox2.AddItem "マンホール-下水" ListBox2.AddItem "マンホール-水道" Case "建物記号" ListBox2.AddItem "官公署" ListBox2.AddItem "裁判所" ListBox2.AddItem "検察庁" ListBox2.AddItem "税務署" ListBox2.AddItem "税関" ListBox2.AddItem "郵便局" ListBox2.AddItem "営林署" ListBox2.AddItem "測候所" ListBox2.AddItem "工事事務所" ListBox2.AddItem "出張所" ListBox2.AddItem "警察署" ListBox2.AddItem "交番" ListBox2.AddItem "消防署" ListBox2.AddItem "職業安定所" ListBox2.AddItem "土木事務所" ListBox2.AddItem "役所" ListBox2.AddItem "神社" ListBox2.AddItem "寺院" ListBox2.AddItem "キリスト教会" ListBox2.AddItem "学校" ListBox2.AddItem "幼稚園・保育園" ListBox2.AddItem "公会堂・公民館" ListBox2.AddItem "博物館" ListBox2.AddItem "図書館" ListBox2.AddItem "美術館" ListBox2.AddItem "保健所" ListBox2.AddItem "病院" ListBox2.AddItem "銀行" ListBox2.AddItem "共同組合" ListBox2.AddItem "デパート" ListBox2.AddItem "倉庫" ListBox2.AddItem "火薬庫" ListBox2.AddItem "工場" ListBox2.AddItem "発電所" ListBox2.AddItem "変電所" ListBox2.AddItem "浄水場" ListBox2.AddItem "揚水機場" ListBox2.AddItem "揚・排水機場" ListBox2.AddItem "排水機場" ListBox2.AddItem "公衆便所" ListBox2.AddItem "ガソリンスタンド" Case "付属構造物" ListBox2.AddItem "門" ListBox2.AddItem "プール" Case "小物体" ListBox2.AddItem "墓碑" ListBox2.AddItem "記念碑" ListBox2.AddItem "立像" ListBox2.AddItem "路傍祠" ListBox2.AddItem "灯ろう" ListBox2.AddItem "狛犬" ListBox2.AddItem "鳥居" ListBox2.AddItem "官民境界杭" ListBox2.AddItem "消火栓" ListBox2.AddItem "消火栓・立型" ListBox2.AddItem "地下換気孔" ListBox2.AddItem "抗口" ListBox2.AddItem "独立樹-広葉樹" ListBox2.AddItem "独立樹-針葉樹" ListBox2.AddItem "噴水" ListBox2.AddItem "井戸" ListBox2.AddItem "油井・ガス井" ListBox2.AddItem "貯水槽" ListBox2.AddItem "肥料槽" ListBox2.AddItem "起重機" ListBox2.AddItem "タンク" ListBox2.AddItem "給水塔" ListBox2.AddItem "火の見" ListBox2.AddItem "煙突" ListBox2.AddItem "高塔-1" ListBox2.AddItem "高塔-2" ListBox2.AddItem "高塔-3" ListBox2.AddItem "照明灯" ListBox2.AddItem "電波灯" ListBox2.AddItem "防犯灯" ListBox2.AddItem "灯台" ListBox2.AddItem "航空灯台" ListBox2.AddItem "灯標" ListBox2.AddItem "ヘリポート" ListBox2.AddItem "水位観測所" ListBox2.AddItem "流量観測所" ListBox2.AddItem "雨量観測所" ListBox2.AddItem "水質観測所" ListBox2.AddItem "波浪観測所" ListBox2.AddItem "風向き・風速観測所" Case "道路施設" ListBox2.AddItem "道路標識・案内" ListBox2.AddItem "道路標識・警戒" ListBox2.AddItem "道路標識・規制" ListBox2.AddItem "信号灯-1" ListBox2.AddItem "信号灯-2" ListBox2.AddItem "交通量測定所" ListBox2.AddItem "スノーポール" ListBox2.AddItem "カーブミラー" ListBox2.AddItem "距離標-km" ListBox2.AddItem "距離標-m" ListBox2.AddItem "電話ボックス" ListBox2.AddItem "郵便ポスト" ListBox2.AddItem "火災報知器" ListBox2.AddItem "道路情報板" ListBox2.AddItem "バス停" Case "水部構造物" ListBox2.AddItem "護岸杭-波消ブロック" ListBox2.AddItem "護岸・捨石" ListBox2.AddItem "坑口・トンネル" ListBox2.AddItem "渡船発着所" ListBox2.AddItem "船揚場" ListBox2.AddItem "せき" ListBox2.AddItem "流水方向" ListBox2.AddItem "距離標" ListBox2.AddItem "流水標" ListBox2.AddItem "透過水制" ListBox2.AddItem "根固" ListBox2.AddItem "床固・陸部" ListBox2.AddItem "床固・水面下" ListBox2.AddItem "蛇籠" Case "植生" ListBox2.AddItem "田" ListBox2.AddItem "はす田" ListBox2.AddItem "畑" ListBox2.AddItem "さとうきび畑" ListBox2.AddItem "パイナップル畑" ListBox2.AddItem "わさび畑" ListBox2.AddItem "桑わ畑" ListBox2.AddItem "茶畑" ListBox2.AddItem "果樹園" ListBox2.AddItem "その他の樹木畑" ListBox2.AddItem "牧草地" ListBox2.AddItem "芝地" ListBox2.AddItem "広葉樹林" ListBox2.AddItem "針葉樹林" ListBox2.AddItem "竹林" ListBox2.AddItem "荒地" ListBox2.AddItem "はい松地" ListBox2.AddItem "しの地-笹" ListBox2.AddItem "やし科樹林" ListBox2.AddItem "湿地" ListBox2.AddItem "砂れき地-未分類" ListBox2.AddItem "砂地" ListBox2.AddItem "れき地" ListBox2.AddItem "干潟" Case "場地" ListBox2.AddItem "噴火口・噴気口" ListBox2.AddItem "温泉・鉱泉" ListBox2.AddItem "陵墓" ListBox2.AddItem "古墳" ListBox2.AddItem "城・城跡" ListBox2.AddItem "史跡・名勝・天然記念物" ListBox2.AddItem "採石場" ListBox2.AddItem "土取場" ListBox2.AddItem "採鉱地" Case "諸地" ListBox2.AddItem "空地" ListBox2.AddItem "駐車場" ListBox2.AddItem "花壇" ListBox2.AddItem "園庭" ListBox2.AddItem "墓地" ListBox2.AddItem "材料置場" Case "変形地" ListBox2.AddItem "洞口" ListBox2.AddItem "露岩" End Select End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub ListBox2_Click() Dim Symname As String Dim wmfname As String Symname = ListBox2.Text '画像ファイルの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 wmfname = "C:\ExAcad\CadData\" & Symname & ".wmf" '画像を表示します。 Image1.Picture = LoadPicture(wmfname) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim BlkName As String 'ブロックの場所を[C:\ExAcad\CadData\]に指定しています。 'CadDataのフォルダの中身は、[ExAcad2.zip]から取得して下さい。 '他のフォルダ(例：MyData)にするときは、[C:\MyData\]と指定します。 BlkName = "C:\ExAcad\CadData\" & ListBox2.Text & ".dwg" 'AutoCAD をアクティブにします。 '[SetAcadCtrl]はExcelからAutoCAD LTをコントロールする標準モジュールです。 'SendKeysは不安定ですが、これはLTへ確実にコマンドを送信できます。 SetAcadActive 'AutoCAD のコマンドラインに、ブロック挿入のコマンドを送ります。 '' Enter = vbCr または、Chr(13) SendAcadCommand ("-insert " + BlkName + vbCr) End Sub ''------------------------------------------------------------------------------------------------------------------------------------- Private Sub CommandButton2_Click() End End Sub |