JWW専用掲示板

HOME HELP 新規作成 新着記事 ツリー表示 発言ランク ファイル一覧 検索 過去ログ

■44509 / 3階層) 　excel座標にてﾚﾃﾞｭ-ｻ-の展開です。
□投稿者/ O.M (3回)-(2014/09/20(Sat) 22:02:32)
    2014/09/20(Sat) 22:03:21 編集(投稿者)

    コード見てみたのですが、



    'フォルダリスト選択
    Private Sub MakeNewFileChoice_Click()
    Dim ObjectName As Object
    Dim FileDialogFlg As Boolean
    Dim i As Byte
    Set ObjectName = MakeNewFile11
    udtUfData.UfName = Me.Name
    If ObjectName.ListIndex = -1 Then
    Me.Hide
    MsgBox "リストが未選択です。" & vbLf & "▼マークを押してフォルダを登録するリストを選択してください。"
    Me.Show vbModeless
    Exit Sub
    End If
    If MakeNewFile1.Value = True Then FileDialogFlg = True
    JeFolderChoice FileDialogFlg, ObjectName
    End Sub

    'フォルダリスト削除
    Private Sub MakeNewFileDel_Click()
    Dim ObjectName As Object
    Set ObjectName = MakeNewFile11
    udtUfData.UfName = Me.Name
    If ObjectName.ListIndex = -1 Then Exit Sub
    JeDeleteList ObjectName
    End Sub

    '選択フォルダリストを開く
    Private Sub MakeNewFileOpen_Click()
    Dim ObjectName As Object
    Set ObjectName = MakeNewFile11
    udtUfData.UfName = Me.Name
    If ObjectName.ListIndex = -1 Then Exit Sub
    JeOpenFolder ObjectName
    End Sub



    の部分を



    'フォルダリスト選択
    Private Sub MakeNewFileChoice_Click()
    Dim ObjectName As Object
    Dim FileDialogFlg As Boolean
    Dim i As Byte
    Set ObjectName = MakeNewFile11
    udtUfData.UfName = Me.Name
    If ObjectName.ListIndex = -1 Then
    Me.Hide
    MsgBox "リストが未選択です。" & vbLf & "▼マークを押してフォルダを登録するリストを選択してください。"
    Me.Show vbModeless
    Exit Sub
    End If
    If MakeNewFile1.Value = True Then FileDialogFlg = True
    JeFolderChoice FileDialogFlg, ObjectName
    End Sub

    'フォルダリスト削除
    Private Sub MakeNewFileDel_Click()
    Dim ObjectName As Object
    Set ObjectName = MakeNewFile11
    udtUfData.UfName = Me.Name
    If ObjectName.ListIndex = -1 Then Exit Sub
    JeDeleteList ObjectName
    End Sub

    '選択フォルダリストを開く
    Private Sub MakeNewFileOpen_Click()
    Dim ObjectName As Object
    Set ObjectName = MakeNewFile11
    udtUfData.UfName = Me.Name
    If ObjectName.ListIndex = -1 Then Exit Sub
    JeOpenFolder ObjectName
    End Sub



    に直したら、エラーは出なくなりました。
    直したデータをあげておきます。

    http://nekobasu83.webdeki-bbs.com/nekobasu83_tree_p_22.html

    それから、御存じかもしれませんが、
    設定時に座標ファイル保存フォルダをjwwの座標ファイルのフォルダ（通常はC:\jww)、
    座標ファイル保存名をZTEMPにしておけば、
    ｊｗｗ起動→その他→座標ファイル→ファイル読み込みで作成したデータがそのまま読み込めるようになります。
    注意：利用のたびにファイルが上書きされるのでログとして座標ファイルを残したい場合には利用できません。



    以前も書いた気がするので重複でしたら申し訳ありません。
    外部変形で同様の操作のものを作成しているのですが、そちらでしたらjwwからExcelを起動して実行すれば書き込めるので、座標ファイル形式より操作が楽になるではないかと思いますので、もしよかったらご利用ください。
    ※エラー箇所があれば教えて頂けると嬉しいです、自分で対応できる範囲の場合に限りですが、なおします。

    http://nekobasu83.webdeki-bbs.com/nekobasu83_tree_r_21.html



    ＊＊＊　最初に1階だけは必ず行う作業（2回目以降は不要）　＊＊＊

    １．データをダウンロードして解凍

    ※ブラウザがChromeの場合、batファイルを圧縮したzipファイルに対し、「一般的にダウンロードされておらず、危険を及ぼす可能性があります。」という警告をだすようになっているようです。
    ▼ボタンを押して継続を選択すればダウンロードできます。

    ２．パスにスペースを含まない場所へ保存

    《保存したらダメな場所の例》
    C:\Program Files
    ※mとFの間にスペースがあるので保存したらダメな場所です。

    ３．Excelを開いて座標ファイルのときと同様のような作業で、座標ファイルの作成式などの設定をExcelに行い保存。


    ＊＊＊　作図時に行う作業　＊＊＊

    １.ｊｗｗ起動

    ２．その他→外部変形→２で保存した場所を開いてbatファイルを選択

    ３．Excelが起動するので行いたい処理を選択し実行




    ※簡易すぎて全く実用できないものではありますが、使用例のデータをいれていますので、そちらで先にためしてみると使い心地がわかるのではないかと思います。
記事引用 [メール受信/OFF] 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[2]: excel座標にてﾚﾃﾞｭ-ｻ-の展開です。 /O.M →外部変形にするﾒﾘｯﾄは？ /oyaji
　
上記関連ツリー

Nomal excel座標にてﾚﾃﾞｭ-ｻ-の展開です。 / oyaji (14/08/03(Sun) 20:41) #44469 1407066064.jww/18KB
└Nomal Re[1]: excel座標にてﾚﾃﾞｭ-ｻ-の展開です。 / oyaji (14/08/04(Mon) 13:55) #44471
  └Nomal Re[2]: excel座標にてﾚﾃﾞｭ-ｻ-の展開です。 / O.M (14/09/20(Sat) 20:17) #44508
    └Nomal excel座標にてﾚﾃﾞｭ-ｻ-の展開です。 / O.M (14/09/20(Sat) 22:02) #44509 ←Now
      └Nomal 外部変形にするﾒﾘｯﾄは？ / oyaji (14/09/22(Mon) 18:31) #44516
        └Nomal Re[5]: 外部変形にするﾒﾘｯﾄは？ / Ｏ．Ｍ (14/09/22(Mon) 19:17) #44517
          ├Nomal Re[6]: 外部変形w@f / oyaji (14/09/24(Wed) 17:10) #44521
          ├Nomal 外部変形で寸法図形は出来ない？ / oyaji (14/09/24(Wed) 17:47) #44522
          │├Nomal Re[7]: 外部変形で寸法図形は出来ない？ / Ｏ．Ｍ (14/09/24(Wed) 20:20) #44523
          ││├Nomal Re[8]: 外部変形で寸法図形は出来ない？ / Ｏ．Ｍ (14/09/24(Wed) 21:21) #44525
          ││└Nomal Re[8]: 外部変形に移行は無理かと・・・ / oyaji (14/09/25(Thu) 15:43) #44528
          ││  ├Nomal Re[9]: 外部変形に移行は無理かと・・・ / Ｏ．Ｍ (14/09/25(Thu) 17:13) #44529
          ││  ├Nomal 寸法値計の算出に関して / Ｏ．Ｍ (14/09/27(Sat) 19:02) #44530 1411812637.png/12KB
          ││  └Nomal 前のデータが開くという件 / Ｏ．Ｍ (14/09/27(Sat) 22:45) #44531
          │└Nomal もしかしてお試しデータのことでしょうか / Ｏ．Ｍ (14/09/24(Wed) 23:20) #44527
          └Nomal 外部変形は断念します。 / oyaji (14/09/30(Tue) 10:30) #44532
            └Nomal Re[7]: 外部変形は断念します。 / Ｏ．Ｍ (14/09/30(Tue) 17:22) #44533

All 上記ツリーを一括表示
　
上記の記事へ返信