２点の中点座標と距離の算出

Namespace: fvalgcli
Assembly: fvalgcli (in fvalgcli.dll) Version: 3.1.0.0 (3.1.0.11)

Syntax

C#
public static int fnFIE_cg_calc_center_2pointB(
	DPNT_T pnt1,
	DPNT_T pnt2,
	ref DPNT_T center,
	ref double dist
)
Visual Basic
Public Shared Function fnFIE_cg_calc_center_2pointB ( 
	pnt1 As DPNT_T,
	pnt2 As DPNT_T,
	ByRef center As DPNT_T,
	ByRef dist As Double
) As Integer

Parameters

pnt1
Type: fvalgcli..::..DPNT_T
座標点P1
pnt2
Type: fvalgcli..::..DPNT_T
座標点P2
center
Type: fvalgcli..::..DPNT_T%
２点の中点座標Pc
dist
Type: System..::..Double%
２点間の距離d

Return Value

Type: Int32
以下のエラーコードを返します。

エラーコード：
f_err内容
F_ERR_NONE正常終了
F_ERR_INVALID_PARAM 不正なパラメータが渡された
F_ERR_NO_LICENCEライセンスエラー、または未初期化エラー

Remarks

Examples

C# Copy imageCopy
//    $Revision: 1.1 $

using System;
using System.Collections.Generic;
using System.Text;
using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_cg_calc_center_2pointB()
        {
            int status = (int)f_err.F_ERR_NONE;

            DPNT_T pnt1 = new DPNT_T();
            DPNT_T pnt2 = new DPNT_T();
            DPNT_T center = new DPNT_T();
            double dist = new double();

            DPNT_T ans_center = DPNT_T.init(175, 150);
            const double ans_dist = 320.1562118716;

            // 座標の設定.
            pnt1.x = 50;
            pnt1.y = 50;
            pnt2.x = 300;
            pnt2.y = 250;

            status = api.fnFIE_cg_calc_center_2pointB(pnt1, pnt2, ref center, ref dist);

            Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

            // 結果を出力する.
            ConsoleOut.WriteFunctionName(":\n");
            Console.WriteLine("center = ({0},{1}), dist = {2}", center.x, center.y, dist);
            Console.Write(" ...");
            ConsoleOut.IsTrue(center.x == ans_center.x && center.y == ans_center.y && DblEqual(dist, ans_dist));
        }
    }
}

Visual Basic Copy imageCopy
'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_cg_calc_center_2pointB()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim pnt1 As New DPNT_T()
        Dim pnt2 As New DPNT_T()
        Dim center As New DPNT_T()
        Dim dist As New Double()

        Dim ans_center As DPNT_T = DPNT_T.init(175, 150)
        Const  ans_dist As Double = 320.1562118716

        ' 座標の設定.
        pnt1.x = 50
        pnt1.y = 50
        pnt2.x = 300
        pnt2.y = 250

        status = api.fnFIE_cg_calc_center_2pointB(pnt1, pnt2, center, dist)

        Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

        ' 結果を出力する.
        ConsoleOut.WriteFunctionName(":" & vbLf)
        Console.WriteLine("center = ({0},{1}), dist = {2}", center.x, center.y, dist)
        Console.Write(" ...")
        ConsoleOut.IsTrue(center.x = ans_center.x AndAlso center.y = ans_center.y AndAlso DblEqual(dist, ans_dist))
    End Sub
End Class

See Also