外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
vbscriptで構築線を引く(xline)
:vbscriptで構築線を引く(xline)
@echo off
if not exist %~dp0eval.vbs echo ExecuteGlobal WScript.StdIn.ReadAll > %~dp0eval.vbs
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
copy jwc_temp.txt myfiles > nul
(
: echo Option Explicit
echo On Error Resume Next
: echo On Error GoTo 0
more +%%n %0
) | cscript //nologo %~dp0eval.vbs 1e+10 > jwc_temp.txt
)
goto:eof
REM #jww
REM #0 基準点を指示してください
REM #e
#!この次の行からプログラムを書いてください
'1)正規表現
Dim re
Set re = New RegExp
re.IgnoreCase = True '大文字と小文字を区別しない
re.Global = True '文字列全体を検索する
function reSplit(str)
re.Pattern = "[ ]+"
reSplit = Split(Trim(re.Replace(str," ")))
end function
function reTest(pat, str)
re.Pattern = pat
reTest = re.Test(str)
end function
'2)円周率
Const PI = 3.141592653589793
'4)ユーザ定義関数
function dec(x)
if x = "a" then x = 10
if x = "b" then x = 11
if x = "c" then x = 12
if x = "d" then x = 13
if x = "e" then x = 14
if x = "f" then x = 15
dec = x
end function
Dim line, F
Dim hk
Dim i, hs(15), plg, lg
lg = ""
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile("myfiles")
Do While Not .AtEndOfStream
line = .ReadLine: F = reSplit(line)
if reTest("^hk",line) then hk = F(1)
if reTest("^hs",line) then 'hs スケール
for i = 1 to 16
hs(i-1) = F(i)
next
end if
if reTest("^lg[A-F0-9]",line) then 'lg レイヤグループ
plg = LCase(Mid(line,3,1)): if lg = "" then lg = plg
end if
Loop
End With
End With
Dim x, y, r
r = WScript.Arguments(0) * hs(dec(lg))
x = cos(hk * PI / 180) * r
y = sin(hk * PI / 180) * r
WScript.Echo Join(Array(-x, -y, x, y))
WScript.Echo Join(Array(-y, x, y, -x)) '直交軸