オートシェイプ円弧の中心点、半径の求め方について

Question

既に記入済みのオートシェイプ円弧図形を選択し、現在の半径を表示し、中心点からスケールをかけるマクロを作成しているのですが、円弧図形の半径、中心点の算出方法がわからない為、行き詰ってしまいました。形状によっては、HeightやWidth、Sinなどで出すことが出来る場合もあるのですが、楕円弧を除く形状に汎用的に使える方法を探しています。

Adjustments.Item(1)と(2)を変更して、円にしてから算出する方法も考えたのですが、微妙に円の位置がずれる現象が出た為、断念しました。

ご存知の方がいらっしゃいましたら、ご教授お願い致します。

fujillin · Accepted Answer

こんにちは。

『円弧』の存在自体も認識していませんでしたが、少し調べてみました。

おっしゃる通り、手動でも数回に分けて1周させてみると、元の位置に戻らずに、ずれてしまいますね。目視でわかる程度のずれなので、計算誤差とは思えません。
内部の計算処理がおかしいのか、単位を限定して切捨てなどをしているのか（例えば1/72インチ単位とか？）不明ですが、これだとTopやWidthなどから計算して求めても、その結果がエクセルが持っている値とずれる可能性がありますね。

それはさておき、調べて見ると
円弧はAdjustments(1)からAdjustments(2)へと右回りに描かれるようですね。またWidth、Heightは中心と円弧を含む領域として設定されるみたいです。Adjustments自体は通常のx軸から左回りに角度を取っているみたい。
Top、Left、Width、Height（添付図中、T、L、w、hで表記）などが正しい値だとして、理論上の計算値は、以下のようにして求められると思います。
まず、正円であることと、円弧の２点は重なっていないことを前提として…

簡単にするため、0<= Adjustments(1) <90の範囲で考えると、
Adjustments(2)の位置は90度単位で考えて4通りあり、(1),(2)が同じ範囲にあるときはどちらが大きいいかで結果が変わるので2通りに分かれるので、計5通りについて考えれば良いと思います。
（実際には、この4倍の20通りですが、対象形なので座標を回転して計算し、結果を逆変換すれば求められるので5通りで十分）

これは、添付のような5通りになります。
・が(1)側、→が(2側)、rは半径、xyは中心点の座標です。
どちらの点から求めるかで、式は他にも成立しますが、簡単そうなほうを列挙しています。
[1,3]の場合のみ、rを算出する際に0割りの可能性があるので注意が必要です。（2点が異なれば、どちらかの式で求めることが可能）
場合分けをうまくやれば、5通りに分けなくても算出できそうですね。

--------------------------------------------------
以上を要約すると、おおむね以下の手順になるかと…

1）対象が円弧であることのチェック
2）正円で2点が重なっていないことのチェック
3）点1の位置が0～90にくるように回転角を算出し、T,L,w,hなどを変換
　（90度単位の変換なので、基本的に加減算のみで可能）
4）上記の方法でr,x,yを算出
5）中心点の座標を3）の逆変換
--------------------------------------------------

＊対象の円弧が回転（図形の回転）、反転などをしていないものと仮定していますが、それも考慮するなら、3）、5）の座標変換部分をまともなものにするだけで、同じ手順で可能だと思われます。
（図形を回転すると、その図形内のサブ座標軸ごと回転しているみたい）←このあたりきちんと確認していません

＊エクセルの座標系は通常の数学の座標系とはy軸方向が反転していますので、座標変換が通常と異なってくるはずなので注意が必要ですね。

＊また、. Adjustments.Countをみてみると8が返ってくるので、想像するところ、残りのデータに中心座標や、半径が記録されているのではないかと思います。（引っ張り出す方法があれば簡単なんですが、プロパティとかあまりきちんと調べてないので…）

以上、取り急ぎ調べて見たので、きちんと確認までできていませんが、ヒントにでもなれば幸いです。

fujillin · Answer

No6です。
すみません。　ｒの値の式のことですね？
書くときに間違えたみたいで、x、ｙはあってましたので、そちらから見ていただければ間違いと分かっていただけたかも…

その部分だけ、書き直したものを添付します。
いらぬ苦労をさせまして、大変申し訳ありません。
なんせ、この手の計算はン十年ぶりなもので…（←いいわけです）

fujillin · Answer

No6、No7です。
あれっ、全然見やすくなってないみたいですね。

同じデータですが、解像度を落として（画像を拡大して）送ってみます。
（400dpiだったのを、データ密度はそのままで96dpiにしたものをUPしてみます。）
これでダメだと、部分ずつに分解するぐらいしかないけど、それもバカバカしいので、念のため以下に文章の部分だけ列挙しておきます。

[ 1 , 1 ]
(as Θ1 > Θ2)
r = w/cosΘ2
x = L
y = T + h

[ 1 , 1 ]
(as Θ1 < Θ2)
r = h/2 = w/2
x = L + r
y = T + r

[ 1 , 2 ]
r = w/2
x = L + r
y = T + h - r

[ 1 , 3 ]
r = h/(sinΘ1-sinΘ2)
r = w/(cosΘ1-cosΘ2)
x = L - rcosΘ2
y = T + rsinΘ1

[ 1 , 4 ]
r = w
x = L
y = T + rsinΘ1

fujillin · Answer

No6です。

自分でUPした画像を再取得してみると、UPしたときよりもサイズが小さくなっているので、そのままのデータをDLできるのかどうか不明ですが、解像度を約4倍にしたものをUPします。（200Kの制限があるので、このくらいまで）

式は作成したのみで、実際の検証・確認を行っていませんので、ご自分でも確かめてください。（+、-符号などの間違えがあるかも）

＜以下、図の解説です＞
・十字線は、円の中心を軸としたx,yのサブ座標軸を示しています
・赤線の円弧が対象オブジェクト。（・は始点、→は終点を示す）
・赤の点線は、Top、Left、Width、Heightの基準となると思われる枠線
・[1,2]は始点、終点の位置の場合分け（点が何象限にあるか）
・Θ1、Θ2は弧端の中心からの回転角（=Adjustments）
・T、L、w、hはそれぞれTop、Left、Width、Heightを意味する
・rは円の半径、x、yは中心点の座標値の計算値

DOUGLAS_ · Answer

＃性懲りもなく、また登場してしまいました。

　　　<(_ _)>

＞微妙に円の位置がずれる現象
について
http://blog.goo.ne.jp/tenkasa/e/84ba84294d6a3ddb …
をご覧ください。

　ご参考になれば幸いです。　　　　<(_ _)>

redfox63 · Answer

すみません #3ですが m(__)m
回答の後半部分の半径の求め方ですがこれは間違ってますね

始点が X/Y軸上にある場合にしか適用できないようです

円弧が第1象限内始点終点があるなら 左下が中心なように思います
同様に第2(X-/Y+)なら右下、第3(X-/Y-)なら右上、第4(X+/Y-)なら左上

描画済みの円弧からの情報では中心/半径を正確に求めるのは困難なように思います

redfox63 · Answer

ShapeのHightやWidth、Top、Leftなどから
円弧の始点、終点を求めることが不能なのではないでしょうか

始点、終点の座標がわかっていて開き角がわかっているなら
その2点の距離の半分と開き角の半分のSINから半径は求めることが出来ます

x1,y1が始点、x2,y2が終点　開き角がAngle(度)とするなら
w = x1 - x2
h = y1 - y2
l = sqr( w * w + h * h ) / 2
' 円周率の算出
pi = atn(1) * 4
r = l / sin( Angle * pi / ( 180 * 2 ) )
といった具合に算出できます

中心の計算は 始点(または終点)に対して
x1 + r * cos(開始角度)
y1 + r * sin(開始角度)
といった具合で求められそうです ... +-の符号などは考慮する必要がありそうですが

Arcの場合開きが90度以下なら WidthまたはHightのどちらか大きいほうが半径
90度超えて180度未満なら 短いほうが半径
180度を超えて270度未満なら長いほうの半分が半径
270度を超えた場合は Width,Heightともに同じなのでこの半分
といった具合だろうと思います

DOUGLAS_ · Answer

[回答番号：No.1] の DOUGLAS_ です。

　先ず、お詫びから。。。
＞というようなコトなら、私にでも割り出せます
　とんでもない思い上がりでした。

Sub Macro1()
　Dim myDeg As Single
　ActiveSheet.Shapes.AddShape(msoShapeArc, 100#, 100#, 100#, 100#).Select
　For myDeg = 1 To 360
　　Selection.ShapeRange.Adjustments.Item(1) = myDeg
　　Application.ScreenUpdating = True
　　If myDeg Mod 90 = 0 Then Application.Wait (Now + TimeValue("0:00:2"))
　Next
End Sub

　新規ブックで上記のマクロをお試しいただけるとお分かりになるかと存じますが、myDeg が 90℃ ごとに円弧の位置がずれていきます。
　当然、「既に記入済みのオートシェイプ円弧図形」には、IncrementRotation メソッドで回転もかけられているものもあろうかと存じますので、「円弧図形の半径、中心点の算出方法」は簡単ではない、ということに今頃気が付いた次第です。お恥ずかしい。。。

　ちょっと私には荷が重すぎますので、ご参考になりそうなものをご紹介して、とりあえずこの場から逃げさせていただきます。ご要望にお応えできなくて申し訳ございませんでした。

　指定された２点を通る円弧を描くVBAです。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1320207633

＃私自身が検証して、「円弧図形の半径、中心点の算出方法」を考えればよいのでしょうが、時間がかかりそうですので、ご紹介だけにさせていただきます。ご参考になるとよいのですが。。。　　　<(_ _)>

DOUGLAS_ · Answer

＃回答ではありません。回答が全然付かないようですので、恐る恐る書いてみますね。　（笑　（＾凹＾）

　ご質問のカテゴリが
＞プログラミング > Visual Basic 
とのコトですが、プログラム言語とかバージョンとかをお示しになった方が回答が付きやすいのかなぁ、と感じました。

　あと、ＣＧ関係かなと存じますが、
＞中心点からスケールをかける
とは、どういう意味でしょうか？

　例えば、エクセルのＶＢＡで、ワークシート内に配置された
＞既に記入済みのオートシェイプ円弧図形を選択し
＞円弧図形の半径、中心点の算出方法
というようなコトなら、私にでも割り出せますし、それでもご参考に供せるようでしたら、試してはみますが。。。

オートシェイプ円弧の中心点、半径の求め方について

こんにちは。

No6です。

No6、No7です。

No6です。

＃性懲りもなく、また登場してしまいました。

すみません #3ですが m(__)m

ShapeのHightやWidth、Top、Leftなどから

[回答番号：No.1] の DOUGLAS_ です。

＃回答ではありません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング