jw_cad 外部変形 - (942) jscriptで文字寸法を取得する(hcw,hch,hcd,hcc) -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

jscriptで文字寸法を取得する(hcw,hch,hcd,hcc)

/* jscriptで文字寸法を取得する(hcw,hch,hcd,hcc)
@cls & echo off
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
goto:eof

REM #jww
REM #e
*/

cn = ""
hcw =
hch =

hcd =
hcc =

f = WScript.StdIn
while (! f.AtEndOfStream) {
  F = ($_ = f.ReadLine()).split(/\s+/)
  if (/^hcw/i.test($_)) { for (i = 1; i <= 10; i++) { hcw[i] = F[i] * 1.0 } }
  if (/^hch/i.test($_)) { for (i = 1; i <= 10; i++) { hch[i] = F[i] * 1.0 } }
  if (/^hcd/i.test($_)) { for (i = 1; i <= 10; i++) { hcd[i] = F[i] * 1.0 } }
  if (/^hcc/i.test($_)) { for (i = 1; i <= 10; i++) { hcc[i] = F[i] * 1 } }
  if (/^cn/i.test($_)) { //cn 文字種
    pcn = F[0].substr(2)
    if (cn == "") {
      cn = pcn
      n = F.length
      if (n > 1) {
        cw = F[1]*1.0
        ch = F[2]*1.0
        cd = F[3]*1.0
        cc = F[4]*1
      } else {
        cw = hcw[cn]
        ch = hch[cn]
        cd = hcd[cn]
        cc = hcc[cn]
      }
      WScript.echo("h#cn" + cn + " " + cw + " " + ch + " " + cd + " " + cc)
      break
    }
  }
}