jw_cad 外部変形 - (451) コマンドプロンプトで矩形を描く -

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

 

コマンドプロンプトWindowsを操作あるいは設定するスクリプトツールです。

 

矩形を描く

:矩形を描く
@echo off
for /f "tokens=1*" %%1 in (jwc_temp.txt) do (
  if %%1 == hp1- call:point 1 %%2
  if %%1 == hp2  call:point 2 %%2
)
( echo %p1%
  echo %x1% %y2%
  echo %p2%
  echo %x2% %y1%
  echo %p1%
) > jwc_temp.txt
goto:eof

:point
for /f "tokens=1-3" %%1 in ("%*") do (
  set p%1=%%2 %%3
  set x%1=%%2
  set y%1=%%3
)
goto:eof

REM #jww
REM #1-%d 始点を指示してください
REM #2%d 終点を指示してください
REM #e