Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

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

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

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。

┃ ┃スレッド表示 ┃ ┃ ┃ ┃ ┃ ┃ ┃

18 / 19 ﾍﾟｰｼﾞ ←次へ　｜　前へ→

＜スレッド一覧＞

文字列の長さを実寸で知る[5] / "枠付寸法値作図&qu...[0] / "文字列引出線"...[0] / Windows11 Insider Previ...[0] / 移動と複写の後、どのよう...[4] / "線形高さ測定"...[0] / 連続線割付作図のアップに...[0] / sfc・p21ファイルの保存読...[1] / "平均地盤面算定&qu...[0] / 外部変形[3] / 複写・移動　元レイヤの環...[6] / Ver8.24a 天空率計算での...[0] / 外部変形のアップについて[0] / Is it a Bug in the prog...[2] / 特定の線･円弧･点の選択[11] / 「線属性」ダイアログの「...[2] / [投稿者削除][4] / 外部変形[1] / 不具合について[1] / 画像がJW上背景黒のみで荒...[1] /

■▼

文字列の長さを実寸で知る

英人

- 21/8/10(火) 14:15 -

お世話になります。
JW ver5.11eから　最新の8.24aへ乗り換え中です。
ver5.11eのとき作っていた外変の移植をしていますが、文字列の長さを実寸で求める方法を教えていただけたらと思います。

当時は、全角と半角で文字幅を計算し、文字間隔を加える方法で計算していました。現在は、ＭＳゴシックを使用すれば、同じのように思えますが、
他のフォントを使用した場合は、どうなのでしょうか。

Visual Studioで Basicで開発していますが、全角、半角が昔の処理ではうまく判別できないのもあり、さらにフォントが違う場合にはどうするのだろうかと思っています。四角の枠にぴったり文字を入れ、印刷までする予定です。

kojima - 21/8/11(水) 13:45 -

▼英人さん：
>お世話になります。
>JW ver5.11eから　最新の8.24aへ乗り換え中です。
>ver5.11eのとき作っていた外変の移植をしていますが、文字列の長さを実寸で求める方法を教えていただけたらと思います。
>
>当時は、全角と半角で文字幅を計算し、文字間隔を加える方法で計算していました。現在は、ＭＳゴシックを使用すれば、同じのように思えますが、
>他のフォントを使用した場合は、どうなのでしょうか。

図寸・実寸ともフォントの種類は無関係です。
(見た目の感覚と差異があるかも？)

>
>Visual Studioで Basicで開発していますが、全角、半角が昔の処理ではうまく判別できないのもあり、さらにフォントが違う場合にはどうするのだろうかと思っています。四角の枠にぴったり文字を入れ、印刷までする予定です。

作図済の文字列の場合は、somenさんのレスの通りです。

そうでない時は、
jwc_temptxtの以下の項目から、図寸＊縮尺倍率でだします。

hs 50 100 200 30 30 30 30 30 30 30 30 30 30 30 30 1#レイヤグループ毎の縮尺の逆数
hcw 1.4 1.8 2.4 3.2 3.5 4.2 7 8 9 10#文字種毎の幅
hch 2 2.5 3 4 5 6 7 8 9 10#文字種毎の高さ
hcd 0 0 0 0.5 0.5 1 1 2 2 2#文字種毎の間隔

半角文字の場合は、文字幅・文字間隔ともに1/2になります。
文字列を１文字単位にして、幅と間隔を合計する。(図寸)
合計値に縮尺の逆数(倍率)を掛算する。

半角・全角が混じった文字列の場合は、文字間隔は前の文字に依存します。
半角文字・全角文字の並びだと文字間隔は*1/2となり
全角文字・半角文字の並びだと文字間隔は*1です。

英人

- 21/8/18(水) 12:53 -

▼somemさん：
遅くなりまして申し訳ありません。
文字を入力し、それを長方形で囲む形で作図する外変のリメイクです。
入力した文字が、実寸でどういう大きさになるかを計算しなければならなくて、苦労しておりました。
ネックとなるのが１文字毎に半角か、全角かを判定する部分なのですが、
以前　Visual studio 2005のBasic で使用していたものでは全角も半角も同じ「１」が返ってきて、役にたたなかったのです。
一応、解決しましたので、役にたたないとは思いますが、別に投稿します。
ありがとうございました。

>▼英人さん：
>
>>当時は、全角と半角で文字幅を計算し、文字間隔を加える方法で計算していました。現在は、ＭＳゴシックを使用すれば、同じのように思えますが、
>>他のフォントを使用した場合は、どうなのでしょうか。
>
>作図済の文字に文字枠を作図する場合、
>"jwc_temp.txt"に書出される文字データには、文字列長さが出力されます。
>その値を利用すれば、全角/半角、フォントの種類を識別する必要はなくなります。
>
><文字データ>
>ch x0 y0 dx dy "文字列
>※横文字(水平)の場合、dxが文字列長さ、dy=0 になります。

英人

- 21/8/18(水) 13:11 -

▼kojimaさん：
遅くなりまして申し訳ありません。

>▼英人さん：
>>お世話になります。
>>JW ver5.11eから　最新の8.24aへ乗り換え中です。
>>ver5.11eのとき作っていた外変の移植をしていますが、文字列の長さを実寸で求める方法を教えていただけたらと思います。
>>
>>当時は、全角と半角で文字幅を計算し、文字間隔を加える方法で計算していました。現在は、ＭＳゴシックを使用すれば、同じのように思えますが、
>>他のフォントを使用した場合は、どうなのでしょうか。
>
>図寸・実寸ともフォントの種類は無関係です。
>(見た目の感覚と差異があるかも？)

フォントによっては、文字の配置を調整して表現されているものもありますよね。
それが、JWでは１文字毎に位置調整されて画面と、プリンターに出力されているのかな？
それとも、文字列の幅と高さに倍率をかけて従来と近い値にしているのかな？
と考えた次第です。
PictureBoxに文字を表示するときに、MeasureTextという関数があって、
textSize = TextRenderer.MeasureText(word, dfnt)
こんな風に使っていました。(Visual Basic)

文字の長さの実寸は、今までどおりで良いと教えていただいて、ありがとうございます。

全角と半角の文字をプログラムで判別するのに、
Visual Studio 2005でのBasicで使っていたものが使えなくなったので、
苦労しているときに、上記のことを考えたのです。
一応、そちらも解決いたしましたので、別に投稿しておきます。
ありがとうございました。

>
>>
>>Visual Studioで Basicで開発していますが、全角、半角が昔の処理ではうまく判別できないのもあり、さらにフォントが違う場合にはどうするのだろうかと思っています。四角の枠にぴったり文字を入れ、印刷までする予定です。
>
>作図済の文字列の場合は、somenさんのレスの通りです。
>
>そうでない時は、
>jwc_temptxtの以下の項目から、図寸＊縮尺倍率でだします。
>
>hs 50 100 200 30 30 30 30 30 30 30 30 30 30 30 30 1#レイヤグループ毎の縮尺の逆数
>hcw 1.4 1.8 2.4 3.2 3.5 4.2 7 8 9 10#文字種毎の幅
>hch 2 2.5 3 4 5 6 7 8 9 10#文字種毎の高さ
>hcd 0 0 0 0.5 0.5 1 1 2 2 2#文字種毎の間隔
>
>半角文字の場合は、文字幅・文字間隔ともに1/2になります。
>文字列を１文字単位にして、幅と間隔を合計する。(図寸)
>合計値に縮尺の逆数(倍率)を掛算する。
>
>半角・全角が混じった文字列の場合は、文字間隔は前の文字に依存します。
>半角文字・全角文字の並びだと文字間隔は*1/2となり
>全角文字・半角文字の並びだと文字間隔は*1です。

英人

- 21/8/18(水) 13:33 -

ご迷惑をおかけしました。

以前 Visual Studio 2005で使用していた、文字の長さを取得する関数です。
Private Function m_len(ByVal str, ByVal mW, ByVal md) As Double
Dim i As Integer
Dim m As Integer
' str:文字列　mw:jwis全角文字幅　md:jw文字間隔 curScale:書き込みレイヤスケール
For i = 1 To Len(str)
m = Len(StrConv(Mid(str, i, 1), VbStrConv.Narrow))
If m = 1 Then '半角の場合
m_len = m_len + mW / 2 '半角文字の幅を加えて
If i <> Len(str) Then m_len = m_len + md / 2 '文字間隔の半分を加える
End If

If m = 2 Then '全角の場合
m_len = m_len + mW 'is全角文字の幅を加えて
If i <> Len(str) Then m_len = m_len + md '文字間隔を加える
End If
Next i
m_len = m_len * curScale
End Function

これがうまくいかなくて、いろいろ調べて先ほど変更した　Visual Studio 2019用のものが
以下となります。

Public Function m_len(ByVal str As String, ByVal mW As Double, ByVal md As Double) As Double
Dim i As Integer
Dim m As Integer
' str:文字列　mw:jwis全角文字幅　md:jw文字間隔 curScale:書き込みレイヤスケール
System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
For i = 1 To Len(str)
'"Shift_JIS"の使えるEncodingにセットして
Dim sjisEnc As Encoding = Encoding.GetEncoding("Shift_JIS")
'そのEncodingでの文字のバイト数を得る　全角ならば2が、半角ならば1が得られる
m = sjisEnc.GetByteCount(Mid(str, i, 1))
If m = 1 Then '半角の場合
m_len = m_len + mW / 2 '半角文字の幅を加えて
If i <> Len(str) Then m_len = m_len + md / 2 '文字間隔の半分を加える
End If

If m = 2 Then '全角の場合
m_len = m_len + mW 'is全角文字の幅を加えて
If i <> Len(str) Then m_len = m_len + md '文字間隔を加える
End If
Next i
m_len = m_len * curScale
End Function

"Shift_JIS"の使えるEncodingを意識して使用しないといけないということのようでした。