プログラミング– category –

極角（polar angle）から方位角（azimuth angle）、もしくはその逆を計算する方法です。極角と方位角は 1つの式で求めることができます。 元の値を負にして90を加算し、さらに360を加算 その値を360で除算した剰余が極角／方位角を相互変換した値 この方法で角度が0度未満や360度より大でも 0 =< result < 360 の値を返すことができま...

Private Declare Sub Sleep Lib & "kernel32" (ByVal dwMilliseconds As Long) Public Sub run()     Dim i As Long     Dim j As Long     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument     Dim pEnvelope As IEnvelope     Set pEnvelope = pMxDocument.ActiveView.Extent     Dim pClone As IClone     Set pC...