CalcDist

説明

2点間の距離を計算します。

　

書式

Object.CalcDist(X1,Y1,X2,Y2) As Double 

引数 説明
X1 点1のX座標を指示します。
Y1 点1のY座標を指示します。
X2 点2のX座標を指示します。
Y2 点2のY座標を指示します。

　

使用例

Set Acad=CreateObject("AcadRemocon.Body")
Dist=Acad.CalcDist(0,0,1,1)