jw_cad 外部変形 - (668) パワーシェルで放射線を引く(ray) -

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

 

パワーシェルで放射線を引く(ray)

:パワーシェルで放射線を引く(ray)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
  more +%%n %0 | powershell -command -
)
goto:eof

REM #jww
REM #0 基準点を指示して下さい
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
gc jwc_temp.txt | %{
  if ($_ -match "^hk") { $hk = [double] $_.substring(3) }
}
$x = [math]::cos($hk*[math]::pi/180)*1e+10
$y = [math]::sin($hk*[math]::pi/180)*1e+10
"0 0 $x $y" | sc jwc_temp.txt

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