Jw_cad
Jw_cad 情報交換室−その3

 JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その2をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

以前の発言過去ログのページからご覧ください。


  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃  ┃ホーム  
9 / 50 ページ ←次へ | 前へ→

Re(13):全角数字選択
 O.M  - 14/04/26(土) 14:25 -

引用なし
パスワード
   ▼hogehogeさん:
>フォント変更を行う前準備として、特定の文字(全角数字)を選び出してレイヤ変更をしています。

フォントなんですね。
「jwwで使用できるフォント一覧」を取得する方法がわからないので、今まで手をつけていない範囲です、聞いたのに申し訳ないです。
フォントリストをそ利用者が手打ち作成、っていうのも微妙な気がしますし…。


コードわかるようでしたら既にご自分で変更されているかもしれませんが、UserForm1に記入してあるコードの

'データ変換
Private Function TempConv(udtJwDataConvert As JwDataConvert, temp As TextData)
 Dim i As Long, hs As Double
 With udtJwDataConvert
  '文字を消す
  .JwcTempText(temp.InputLine) = ""
  '文字基点を倍率に合わせて変更
  hs = udtJwDataConvert.udtSetData.udtHs(LayerChange21.ListIndex) / temp.udtLyGr.hs
  With temp
   .X = .X * hs
   .Y = .Y * hs
  End With
  '指定レイヤに文字入力
  i = UBound(.JwcTempText) + 7
  ReDim Preserve .JwcTempText(i)
  .JwcTempText(i - 6) = LayerChange21.Value   'グループ
  .JwcTempText(i - 5) = LayerChange22.Value   'レイヤ
  If LayerChange5.Value = True Then
   If LayerChange23.ListIndex < 10 Then
    .JwcTempText(i - 4) = LayerChange23.Value
   Else
    .JwcTempText(i - 4) = LayerChange23.Value & " " & LayerChange6.Value & " " & _
               LayerChange7.Value & " " & LayerChange8.Value & " " & _
               Mid(LayerChange24.Value, 3, Len(LayerChange24.Value) - 2)
   End If
  Else
   .JwcTempText(i - 4) = CombTextCn(temp)    '文字種
  End If
  .JwcTempText(i - 3) = temp.udtTx.cnf     'フォント
  .JwcTempText(i - 2) = temp.udtTx.cc      '文字基点
  .JwcTempText(i - 1) = CombTextZz(temp)    '属性
  .JwcTempText(i) = CombText(temp)       '文字
 End With
End Function

の部分が、レイヤーを移動した後の文字のデータの指定部分です。
フォントの個所がフォント指定場所なので、変更するフォントが決まっているならならそこにフォント名書いちゃうのが一番手っ取り早いです。


Jww_cadのexeファイルのあるフォルダ(デフォルトはC:\jww)にあるJWW_SMPLというバッチファイルの中に外部変形のデータの説明がありまして、右クリック→編集で中味がみれます。
そこに

   文字フォントを書き出す
※ cn"$<MS 明朝>
   文字フォントと同時に斜体文字を書き出す
※ cn"$<MS 明朝>/

とあります。

外部変形でデータを書きだす際に
cn"$<MS 明朝>
といれると、それ以降の行に記入した文字が、MS 明朝になります。


コードを直接書きかえるなら、

  .JwcTempText(i - 3) = "cn""$<MS 明朝>"    'フォント

で異動後の文字がMS明朝になります。
<>内に変更したいフォント名(jwwの文字コマンドのフォント一覧で表示されている文字)を打てばその文字に変換されます。

リストを手書きで作成して、ユーザーフォームのドロップダウンリストに表示させて、そこから選択したり、ユーザーフォームのtextボックスにフォントを手書きで入れる、という手もあると思います。

Excelで外部変形を作る人が増えるといいなーと思ってるので、よろしかったらお試しいただけると嬉しいです。

※変更する際は、Excelをダブルクリックで起動して、開いた際にセルに更新の説明が出るようにしちゃってるので、シートの保護を解除して、文字をすべて消していただけると嬉しいです。
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chr...@122.248.91.11>

Re(2):検証結果について
 hogehoge  - 14/04/26(土) 13:41 -

引用なし
パスワード
   ▼猛牛ロックさん:

>そこまでされたのなら、MKEditorの置換で「正規表記」
> [0-9]
>をすれば、全角数字だけ何かに変える(消す)事が出来ます。

えっ!


そういう機能が有ったのですか。
はじめて知りました。

BATやAWKを見やすくしてくれるメモ帳程度の利用しか出来ませんでした。
便利なのに使いこなせないだけでしたね。

情報有難うございます。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

Re(12):全角数字選択
 hogehoge  - 14/04/26(土) 13:32 -

引用なし
パスワード
   ▼O.Mさん:

>レイヤ移動と同時に文字種も変更するような処理は必要ありますか?

有難うございます。

文字種の変更は、必要ありません。
フォントの変更をしたいのです。

フォント変更を行う前準備として、特定の文字(全角数字)を選び出してレイヤ変更をしています。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

Re(1):検証結果について
 猛牛ロック  - 14/04/25(金) 22:41 -

引用なし
パスワード
   横レスですが、

>早速、実験してみました。

>全ての文字列をエディタで半角変換致しますと、全角カタカナが半角に変換されてしまいます。

そこまでされたのなら、MKEditorの置換で「正規表記」
[0-9]
をすれば、全角数字だけ何かに変える(消す)事が出来ます。
ちらっと試した限りでは期待した通り動きました。
(ファイル比較なんてあったのですね。初めて知りました)
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chr...@61.24.212.26>

Re(11):全角数字選択
 O.M  - 14/04/25(金) 18:48 -

引用なし
パスワード
   ▼hogehogeさん:
読み返していて気になったのですが、
>此の文字を、任意文字種から、設定文字種に読み替えて、加工しています。
レイヤ移動と同時に文字種も変更するような処理は必要ありますか?
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34....@210.153.214.193>

Re(10):全角数字選択
 hogehoge  - 14/04/25(金) 15:14 -

引用なし
パスワード
   ▼O.Mさん:

>チェックボックスを作っていたのに、条件分岐を作るのを忘れていました(汗
>修正しました。


早速の対応、有難うございます。
 
私の希望どうりに動く事を確認致しました。

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

*久しぶりに、VBAコードを見ようとしたら、どこに何が有るか分からず、驚きました。
エクセル2007で動かしている事も書き忘れていました。
忘れるという事は恐ろしいです。

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−


本当に有難う御座います。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

Re(9):全角数字選択
 O.M  - 14/04/25(金) 14:31 -

引用なし
パスワード
   ▼hogehogeさん:
すみません、間違えていました。
チェックボックスを作っていたのに、条件分岐を作るのを忘れていました(汗
修正しました。


If VbWideCheck(.Text) = True Then TempConv udtJwDataConvert, udtJwDataConvert.udtTextData(i)
If VbNarrowCheck(.Text) = True Then TempConv udtJwDataConvert, udtJwDataConvert.udtTextData(i)



If LayerChange1.Value = True Then
 If VbWideCheck(.Text) = True Then TempConv udtJwDataConvert, udtJwDataConvert.udtTextData(i)
End If
If LayerChange2.Value = True Then
 If VbNarrowCheck(.Text) = True Then TempConv udtJwDataConvert, udtJwDataConvert.udtTextData(i)
End If
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34....@210.153.214.193>

Re(8):全角数字選択
 hogehoge  - 14/04/25(金) 13:59 -

引用なし
パスワード
   ▼O.Mさん:

>文字操作系の外部変形を作るのは好きなのでExcelで作ってみました、よろしかったらどうぞ〜。


有難うございます。
早速、試用させていただきました。

結果は、全角、半角の数字全てが、レイヤ移動してしまいます。

希望としては、全角数字と全角ハイフンのみをレイヤ移動したいのですが、使い方に問題が有りますでしょうか?

宜しくお願い致します。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

検証結果について
 hogehoge  - 14/04/25(金) 13:26 -

引用なし
パスワード
   ▼ゆうさん:

有意義なコメントを頂いたので、早速、実験してみました。

私の場合、エディタは「MKEditor」を使っています。
全ての文字列をエディタで半角変換致しますと、全角カタカナが半角に変換されてしまいます。

結局、半角に変換できる文字を含む文字列が、異なっている部位として表示されてしまいました。

ご教示頂いた方法については、別の使用方法を研究してみます。


結果について、ご報告させていただきました。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

Re(7):全角数字選択
 O.M  - 14/04/25(金) 13:23 -

引用なし
パスワード
   ▼hogehogeさん:
文字操作系の外部変形を作るのは好きなのでExcelで作ってみました、よろしかったらどうぞ〜。
http://nekobasu83.webdeki-bbs.com/nekobasu83_tree_r_35.html

コードは増設を繰り返した自分用のものを流用しているので、ごちゃごちゃしてわかりにくいと思います…。
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34....@210.153.214.193>

Re(6):全角数字選択
 hogehoge E-MAIL  - 14/04/25(金) 11:22 -

引用なし
パスワード
   ▼O.Mさん:

>※全角文字でも半角数字でも処理条件を変えるだけなので作成はできます。

ご連絡有難うございます。

VBAで可能であれば、是非ご教授下さい。

具体的には、0,1,2,3,4,5,6,7,8,9,0、―(全角ハイフン)が対象となります。
カンマ、コロン、ピリオド、スペース等は、考えていません。


23
456
7901-2
 等が対象となります。

全角数字の中に、ハイフン等が半角で混ざっている事は、想定していません。
半角文字が混ざっている文字列があれば、対象外です。


宜しくお願いします。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

Re(2):全角数字選択
 hogehoge E-MAIL  - 14/04/25(金) 10:56 -

引用なし
パスワード
   ▼ゆうさん:

>  レイヤ変更をしてゆけばいいかと思います。

ご返信有難うございます。

すごいですね、参考にさせていただきます。
すでに、半年ぐらいこの問題を考えていました。

”何とかの考え休むに似たり”を地で行くようです。

今回、全体をルーテインで作業したいと思い、G+やUWSCを利用して、ワンクリックで一連の作業(諸々の処理)を行いたいと考え苦戦しています。
全体作業の中で、この問題が解決できず、悩んでいました。


この作業は、他の人に委託したいので、ここ一発の技として利用さて頂き、社内でjwwの指導する際に、”もっと頭を使え” ”優秀な人はいっぱい居るぞ”と利用したいと考えています。


私には思いつかない、素晴らしいアイデアを有難うございます。
・ツリー全体表示
<Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.5...@192.47.157.254>

Re(2):全角数字選択
 siegel WEB  - 14/04/24(木) 11:33 -

引用なし
パスワード
   ▼ゆうさん:

こんにちは。
とても素敵な方法だと思います。(外変っぽいです。)
メモ帳だと半角変換はできないかな・・・。

>
>ちょっと回りくどい方法ですが・・
>文字コマンドで文字の編集に「terapad」を使っていると仮定して書きます。
>そして元図をtest01.jwwと仮定します。
>
>   ※ただし、全角文字列の中に半角が含まれていると、この方法は無理です。
>
>1 まず、文字→範囲→全選択→文字編集(TeraPad)起動
>2 TeraPadの画面で編集→変換→半角に変換
>  として上書保存→終了。JWWの画面に戻ります。
>3 JWWの画面に戻ったら、名前を付けて保存(例えばtest02.jww)として終了。
>4 元図のtest01.jwwを起動
>  その状態でファイル→ファイル操作→ファイル比較でtest02.jwwを選びます。
>  すると、全角部分の文字列が反転されます。(test02.jwwで全角を半角にしたため)
>  ここでファイル比較を終了。
>5 編集→範囲選択→範囲→前範囲で、先ほど反転された文字列(全角文字列)
>  を選ぶことが、出来ますので、この状態で
>  レイヤ変更をしてゆけばいいかと思います。
>
>
>かなり回りくどい方法ですが、外変を使わずに出来る方法かと思います。(^^)
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.3; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0@218.226.224.232>

Re(1):全角数字選択
 ゆう  - 14/04/24(木) 9:00 -

引用なし
パスワード
   ▼hogehogeさん:
こんにちは

ちょっと回りくどい方法ですが・・
文字コマンドで文字の編集に「terapad」を使っていると仮定して書きます。
そして元図をtest01.jwwと仮定します。

   ※ただし、全角文字列の中に半角が含まれていると、この方法は無理です。

1 まず、文字→範囲→全選択→文字編集(TeraPad)起動
2 TeraPadの画面で編集→変換→半角に変換
  として上書保存→終了。JWWの画面に戻ります。
3 JWWの画面に戻ったら、名前を付けて保存(例えばtest02.jww)として終了。
4 元図のtest01.jwwを起動
  その状態でファイル→ファイル操作→ファイル比較でtest02.jwwを選びます。
  すると、全角部分の文字列が反転されます。(test02.jwwで全角を半角にしたため)
  ここでファイル比較を終了。
5 編集→範囲選択→範囲→前範囲で、先ほど反転された文字列(全角文字列)
  を選ぶことが、出来ますので、この状態で
  レイヤ変更をしてゆけばいいかと思います。


かなり回りくどい方法ですが、外変を使わずに出来る方法かと思います。(^^)
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34....@180.4.29.123>

Re(5):全角数字選択
 O.M  - 14/04/24(木) 6:28 -

引用なし
パスワード
   書き間違ってました。
>「全角文字を指定レイヤに移動させる」外部変形なら作成できます。
全角文字の部分は全角数字です。

※全角文字でも半角数字でも処理条件を変えるだけなので作成はできます。
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chr...@122.248.91.11>

Re(4):全角数字選択
 O.M  - 14/04/23(水) 22:53 -

引用なし
パスワード
   ▼hogehogeさん:
こんばんは。
「全角文字を指定レイヤに移動させる」外部変形なら作成できます。
※私はExcelVBAしかわからないので、AWKはわからないです。

ちょっと気になったのですが、hogehogeさんのおっしゃっている全角数字は全角の0〜9のみで構成された文字でしょうか?
カンマやピリオドやスペースなど、他の文字が混ざっている可能性が頭に浮かび気になってしまいました。


123.4
1,234
 1234
・ツリー全体表示
<Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chr...@122.248.91.11>

Re(3):全角数字選択
 hogehoge  - 14/04/23(水) 20:16 -

引用なし
パスワード
   >外変のAWKコードを確認していたら、

上記は誤りです、私にはコードの確認なんか出来ません。
眺めていただけです。
(見栄を張ってしまいました。申し訳ありません。)
・ツリー全体表示
<Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)@192.47.157.254>

Re(2):全角数字選択
 hogehoge  - 14/04/23(水) 20:05 -

引用なし
パスワード
   ▼KEさん:
>
>これはちょっと無理なのでは?
>選択 > 属性選択 > 文字種類指定 で 選べる範囲ですので

ご返信有難うございます。

私も出来ないのではないか、と思いながら書き込みさせていただきました。

今、出先なのでどの方の作成された外変か確認出来ないのですが、半角⇔全角を入替える外変のAWKコードを確認していたら、半角の数字全てと全角の数字全てが記述しあり、0〜9、0〜9の記述で半角数字、全角数字を選択するように見えましたので、可能なのかな〜と思った次第です。

出来ないなら諦めるしかありませんが、なにぶん当方は、外変作成も出来ず、コード構造の意味するところも理解できません。

なので、”このような理由で出来ません”とご教示頂けると嬉しいです。

宜しくお願いいたします。
・ツリー全体表示
<Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)@192.47.157.254>

Re(1):全角数字選択
 KE  - 14/04/23(水) 12:54 -

引用なし
パスワード
   ▼hogehogeさん:
>
>全角の数字だけを取出して、他のレイヤーに移動して使いたいのです。


これはちょっと無理なのでは?
選択 > 属性選択 > 文字種類指定 で 選べる範囲ですので
・ツリー全体表示
<Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)@153.190.80.248>

Re(1):JPEG挿入後、作図線を最前面に表示するには?
 KE  - 14/04/23(水) 12:46 -

引用なし
パスワード
   ▼アプリコットYさん:
>ゼンリン地図をJPEGにて挿入後、線をJPEG上でトレース(上書き)した場合、線がJPEG下に隠れて非表示になります。レイアを変えて作図して対処しているのですが、同レイア上で最前面に作図線を表示するにはどうしたらよいですか?


設定 > 基本設定 > 一般(1) 下の方
「画像・ソリッドを最初に描画」にチェックを入れてください

その後「環境ファイル」に上書き保存をお忘れなく
・ツリー全体表示
<Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)@153.190.80.248>

  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃  ┃ホーム  
9 / 50 ページ ←次へ | 前へ→
ページ:  ┃  記事番号:   
468503
(SS)C-BOARD v3.8 is Free
Jw_cad Copyright (C)1997-2009 Jiro Shimizu & Yoshifumi Tanaka