jw_cad 外部変形 - (632) コマンドプロンプトでスケールを取得する(hs) -

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

 

コマンドプロンプトでスケールを取得する(hs)

:コマンドプロンプトでスケールを取得する(hs)
@echo off
for /f "tokens=1*" %%i in (jwc_temp.txt) do (
  if %%i == hs set hs=%%j
  if not defined lg call:lg %%i
)
call:hs %hs% > jwc_temp.txt
goto:eof

REM #jww
REM #e

:hs
for /f "tokens=1-16" %%i in ("%*") do (
  if %lg% == 0 set hs[lg]=%%i
  if %lg% == 1 set hs[lg]=%%j
  if %lg% == 2 set hs[lg]=%%k
  if %lg% == 3 set hs[lg]=%%l
  if %lg% == 4 set hs[lg]=%%m
  if %lg% == 5 set hs[lg]=%%n
  if %lg% == 6 set hs[lg]=%%o
  if %lg% == 7 set hs[lg]=%%p
  if %lg% == 8 set hs[lg]=%%q
  if %lg% == 9 set hs[lg]=%%r
  if %lg% == a set hs[lg]=%%s
  if %lg% == b set hs[lg]=%%t
  if %lg% == c set hs[lg]=%%u
  if %lg% == d set hs[lg]=%%v
  if %lg% == e set hs[lg]=%%w
  if %lg% == f set hs[lg]=%%x
)
echo h#S=1/%hs[lg]%
goto:eof

:lg
set x=%1
if %x:~0,2% == lg set lg=%x:~2,1%
goto:eof