jw_cad 外部変形 - (704) パワーシェルで指示線を確認する(ln) -

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

 

パワーシェルで指示線を確認する(ln)

:パワーシェルで指示線を確認する(ln)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | powershell -command -
)
goto:eof

REM #jww
REM #1%dln 線を指示してください
REM #99#
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
function lnlength ($ln) #線長を返す
{
  $x1,$y1,$x2,$y2 = $ln
  [math]::sqrt([math]::pow($x2-$x1,2) + [math]::pow($y2-$y1,2))
}
(gc jwc_temp.txt) | foreach {
  switch -regex -case ($_)
  {
    '^\s+(\S+ \S+ \S+ \S+)' {
      $F = ([regex]::split($matches[1],' +')[0..3] | %{ [double] $_ })
      $x1 = $F[0]
      $y1 = $F[1]
      $x2 = $F[2]
      $y2 = $F[3]
      $r = (lnlength $F) / 2
      "ci $(($x1 + $x2) / 2) $(($y1 + $y2) / 2) $r"
    }
  }
} | sc jwc_temp.txt

#ここまで powershell は 文末に必ず空白行を置いてください