CalcAngle
説明
2点間の角度を計算します。
書式
Object.CalcAngle(X1,Y1,X2,Y2,[Degree=False]) As Double
引数 | 説明 |
---|---|
X1 | 始点のX座標を指示します。 |
Y1 | 始点のY座標を指示します。 |
X2 | 終点のX座標を指示します。 |
Y2 | 終点のY座標を指示します。 |
Degree | 省略可能です。Trueを指定すると、戻り値がDegree(0〜360)で返されます。 |
使用例
Set
Acad=CreateObject("AcadRemocon.Body")
MsgBox Acad.CalcAngle(0,0,1,1,True)
& "度です。"