 | 2014/09/23(Tue) 19:02:12 編集(投稿者)
2014/09/23(Tue) 19:01:28 編集(投稿者)
2014/09/22(Mon) 19:55:40 編集(投稿者)
とりあえずVB2013 Expressで作成してみました。
自分のＰＣでは動いたんですが、ほかで動くかどうかはわからないです。
うごかなかったらごめんなさい。
※※※データ削除しました※※※
１．（初回のみ）ダウンロードする
※exeファイルをzip形式で圧縮しているため、chromeだと警告文がでます。
（lzh形式で圧縮したら警告は出ないのですが、解凍方法がわからない方が多いようなので…）
▼をおして継続、▼を押して実行でダウンロードできます
２．（初回のみ）zipファイルを解凍する（exeファイルがでてきます)
３．exeファイルを実行
４．（初回のみ）_win.exeのあるファイルを指定
５．図面情報を貼り付け
《貼り付け例》
C:\jww\Ａマンション25d.jww -M -P0,0,1,0,0 -LP000@800P0200800P0200800P0200800P0200800P0200?oo043oooooooooooooooooooooooooooooooooooooool
６．実行ボタンを押す
タスクバーにリンクつくっておいて、起動実行で作業少しははやくなるんじゃないかと思います。
中身は主に
http://dobon.net/index.html
のコードをまるっとコピーしてちょろっと編集してる感じで作成したのですが、カンで作業してよくわかってないので変なとこは多いかと思います。
設定保存のために、アプリケーションのプロパィでjwwexeという名前でユーザー型Stringを作成していますが、使い方があってるかもわかってません…。
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
My.Settings.Reload()
TextBox1.Text = My.Settings.jwwexe.ToString
End Sub
CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
Private Shared Function GetShortPathName( _
System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
ByVal lpszLongPath As String, _
System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
ByVal lpszShortPath As System.Text.StringBuilder, _
ByVal cchBuffer As Integer) As Integer
End Function
'''
''' 短いファイルパス名を取得する
'''
''' ファイルのパス
''' 短いパス名
Public Shared Function GetShortPath(ByVal path As String) As String
Dim sb As New System.Text.StringBuilder(1023)
Dim ret As Integer = GetShortPathName(path, sb, sb.Capacity)
If ret = 0 Then
Throw New Exception("短いファイル名の取得に失敗しました。")
End If
Return sb.ToString()
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog()
' FolderBrowserDialog の新しいインスタンスを生成する (デザイナから追加している場合は必要ない)
Dim FolderBrowserDialog1 As New FolderBrowserDialog()
' ダイアログの説明を設定する
FolderBrowserDialog1.Description = "ここに説明を書いてください"
' ルートになる特殊フォルダを設定する (初期値 SpecialFolder.Desktop)
FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer
' 初期選択するパスを設定する
FolderBrowserDialog1.SelectedPath = "C:\Program Files\"
' [新しいフォルダ] ボタンを表示する (初期値 True)
'FolderBrowserDialog1.ShowNewFolderButton = True
' ダイアログを表示し、戻り値が [OK] の場合は、選択したディレクトリを表示する
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath & "\Jw_win.exe"
End If
My.Settings.jwwexe = TextBox1.Text
My.Settings.Save()
' 不要になった時点で破棄する (正しくは オブジェクトの破棄を保証する を参照)
FolderBrowserDialog1.Dispose()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim RetVal
Dim stArrayData() As String
Dim stData As String
Dim stData2 As String
On Error Resume Next
stArrayData = Split(TextBox2.Text, ".jww")
stData = GetShortPath(System.IO.Path.GetDirectoryName(stArrayData(0) & ".jww"))
stData2 = System.IO.Path.GetFileName(stArrayData(0) & ".jww")
stArrayData(0) = stData & "\" & stData2
RetVal = Shell((TextBox1.Text & " " & String.Join(" ", stArrayData)).Trim, 1)
Me.Close()
End Sub
End Class
|
