jw_cad 外部変形 - (669) パワーシェルで構築線を引く(xline) -

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

 

パワーシェルで構築線を引く(xline)

:パワーシェルで構築線を引く(xline)
@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 | foreach {
  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
  "-$x -$y $x $y"
  "-$y $x $y -$x"
} | sc jwc_temp.txt

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