SSub get_angle(x1, y1, x2, y2, angl)
    pai = 3.14159265358979
    xx = x2 - x1: yy = y2 - y1
    If yy = 0 Then
        If 0 < xx Then angl = 0
        If xx < 0 Then angl = pai
        GoTo endline
    End If
    If xx = 0 Then
        If 0 < yy Then angl = pai / 2
        If yy < 0 Then angl = -pai / 2
        GoTo endline
    End If
    angl = Atn(yy / xx)
    If xx < 0 Then angl = angl + pai
endline:
End Sub

Sub linecolor_get(tmp, lc_tmp)
'jwc_temp.txt内から線色定義を探す
    Dim a, b
    a = Split(tmp)                          'スペースで切り分け
    b = UBound(a)                           '切り分けられた区分数を取得
    If b = 0 And Left(a(0), 2) = "lc" Then  '線色定義文字列の場合
        lc_tmp = Right(a(0), 1)             '線色を「lc_tmp」に格納
    End If
End Sub

Sub linetype_get(tmp, lt_tmp)
'jwc_temp.txt内から線種定義を探す
    Dim a, b
    a = Split(tmp)                          'スペースで切り分け
    b = UBound(a)                           '切り分けられた区分数を取得
    If b = 0 And Left(a(0), 2) = "lt" Then  '線種定義文字列の場合
        lt_tmp = Right(a(0), 1)             '線種を「lt_tmp」に格納
    End If
End Sub

Sub group_get(tmp, lg_tmp)
'jwc_temp.txt内からレイヤグループ定義を探す
    Dim a, b
    a = Split(tmp)                          'スペースで切り分け
    b = UBound(a)                           '切り分けられた区分数を取得
    If b = 0 And Left(a(0), 2) = "lg" Then  'レイヤグループ定義文字列の場合
        lg_tmp = Right(a(0), 1)             'レイヤグループ番号を「ly_tmp」に16進数で取得
    End If
End Sub

Sub linetype_get(tmp, lt_tmp)
'jwc_temp.txt内から線種定義を探す
    Dim a, b
    a = Split(tmp)                          'スペースで切り分け
    b = UBound(a)                           '切り分けられた区分数を取得
    If b = 0 And Left(a(0), 2) = "lt" Then  '線種定義文字列の場合
        lt_tmp = Right(a(0), 1)             '線種を「lt_tmp」に格納
    End If
End Sub

Sub solid_s_get(tmp, s)
temp = tmp & " 0 0"
s = 0
a = Split(temp)
If UBound(a) = 8 Then a(7) = a(1): a(8) = a(2)
    If UBound(a) >= 8 And a(0) = "sl" Then 
        
        x0 = Val(a(1))             '各座標を格納
        x1 = 0
        x2 = (a(3) - x0) / 1000
        x3 = (a(5) - x0) / 1000
        x4 = (a(7) - x0) / 1000
        y0 = Val(a(2))
        y1 = 0
        y2 = (a(4) - y0) / 1000
        y3 = (a(6) - y0) / 1000
        y4 = (a(8) - y0) / 1000

        la1 = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
        la2 = Sqr((x2 - x3) ^ 2 + (y2 - y3) ^ 2)
        la3 = Sqr((x3 - x4) ^ 2 + (y3 - y4) ^ 2)
        la4 = Sqr((x4 - x1) ^ 2 + (y4 - y1) ^ 2)
        la5 = Sqr((x3 - x1) ^ 2 + (y3 - y1) ^ 2)

        sh1 = (la1 + la2 + la5) / 2
        s1 = Sqr(sh1 * (sh1 - la1) * (sh1 - la2) * (sh1 - la5))
        sh2 = (la3 + la4 + la5) / 2
        s2 = Sqr(sh2 * (sh2 - la3) * (sh2 - la4) * (sh2 - la5))

        s = s1 + s2
            
    End If
End Sub

Sub exist_or_not_1(Filename,exists)
'絶対パス+ファイル名で検索する場合
    Dim pth As String
    pth = Filename   '<ファイル名を指定
    If CreateObject("Scripting.FileSystemObject").FileExists(pth) = True Then
        exists=true
    Else
        exists=false
    End If
End Sub 


Sub exist_or_not_2(Filename,exists)
'ブックと同じフォルダのファイルを探す場合
    Dim pth As String
    pth = ThisWorkbook.Path & "\" & Filename   '<ファイル名を指定
    If CreateObject("Scripting.FileSystemObject").FileExists(pth) = True Then
        exists=true
    Else
        exists=false
    End If
End Sub

Sub get_distance_p_l(xx, yy, x1, y1, x2, y2, distance)
    dx = (x2 - x1): dy = (y2 - y1)
    a = dx ^ 2 + dy ^ 2: b = dx * (x1 - xx) + dy * (y1 - yy)
    t = -b / a
    If t < 0 Then t = 0
    If t > 1 Then t = 1
    tx = x1 + dx * t: ty = y1 + dy * t
    distance = Sqr((xx - tx) ^ 2 + (yy - ty) ^ 2)
End Sub

Sub in_out_check(bs, xx, yy, x1, y1, x2, y2, in_out)
in_out = False
sub_row = bs.Cells(Rows.Count, 1).End(xlUp).Row
For check_row = 2 To sub_row 
    x1 = bs.Cells(check_row, 1) - xx
    y1 = bs.Cells(check_row, 2) - yy
    x2 = bs.Cells(check_row, 3) - xx
    y2 = bs.Cells(check_row, 4) - yy
    If y1 * y2 > 0 Then GoTo bottom
    If x1 < 0 And x2 < 0 Then GoTo bottom
    If x1 + y1 * (x2 - x1) / (y1 - y2) >= 0 Then
        check_count = check_count + 1
    End If
bottom:
Next check_row
If check_count Mod 2 = 1 Then in_out = True
End Sub

For b = 255 To 1 Step -1
    Cells(a, b).Select
    If Cells(a, b).Value <> "" Then Exit For
Next b