| 2014/09/23(Tue) 19:02:12 編集(投稿者) 2014/09/23(Tue) 19:01:28 編集(投稿者) 2014/09/22(Mon) 19:55:40 編集(投稿者)
とりあえずVB2013 Expressで作成してみました。 自分のPCでは動いたんですが、ほかで動くかどうかはわからないです。 うごかなかったらごめんなさい。
※※※データ削除しました※※※
1.(初回のみ)ダウンロードする ※exeファイルをzip形式で圧縮しているため、chromeだと警告文がでます。 (lzh形式で圧縮したら警告は出ないのですが、解凍方法がわからない方が多いようなので…) ▼をおして継続、▼を押して実行でダウンロードできます
2.(初回のみ)zipファイルを解凍する(exeファイルがでてきます)
3.exeファイルを実行
4.(初回のみ)_win.exeのあるファイルを指定
5.図面情報を貼り付け 《貼り付け例》 C:\jww\Aマンション25d.jww -M -P0,0,1,0,0 -LP000@800P0200800P0200800P0200800P0200800P0200?oo043oooooooooooooooooooooooooooooooooooooool
6.実行ボタンを押す
タスクバーにリンクつくっておいて、起動実行で作業少しははやくなるんじゃないかと思います。
中身は主に 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
|