AUTOCADで断面係数を出せるマクロを探していてここにたどり着きました。計算させましたが、Zx・Zyの値のみ手計算したのと違ってました。私はマクロが全く理解できず、どこを変えれば良いかが分らない為、教えていただきたく連絡します。Zy=2127.06申し訳ありませんが、教えてください。吉田さんの算定結果のうち断面係数が手計算の結果と異なる原因は、おそらく図芯のずれだと思います。上のスクリーンショットをご覧いただくとお分かり頂けると思いますが、図芯座標が、X座標・Y座標ともに0(ゼロ)になっていますね^^そこで、解決策としてはこうなります↓1.適当な位置に作図して、2.一旦断面算定を行い、3.図芯の位置に「点」を打ち、4.図形と点を、原点(0,0)に移動してから5.もう一度算定する。面倒ですが・・・お試しください。AM早速の回答ありがとうございました。図芯がずれているときも同様の作業をすれば大丈夫でした。図芯が原点に移動するマクロがあれば大変助かりますが、それは、ぼちぼち勉強してみます。ありがとうございました。求める図形の図芯に一時的にUCSの原点を設定して、断面算出処理が終わったらもとに戻すとか・・・。AMたびたび申し訳ありません。Zx=4500.0となります。正方形は問題ありませんでした。申し訳ありませんが、よろしくお願いします。AMどうもありがとうございました。PMこちらこそ、ご指摘ありがとうございました。おかげさまでコードを修正することが出来ました。PMはじめまして内田と申します。断面系数算定コードを使わせてもらっている者です。任意の座標で計算出来ないかと思い、VBAコードを下記のようにいじってみましたら上手くいったように思います。“centroid(1)”を削除する。ついては全く知りませんので、これで良いのかどうかは分かりません。ご確認いただければ嬉しく思います。PM内田さんはじめまして^^ご指摘ありがとうございます。記事中のコードも併せて修正させていただきます。図芯に点を描画するコードも追加いたしますのでご利用ください。昔の記事にコメント失礼いたします。図形が何処にあっても~という部分が当方ではうまく機能しません。(図形の座標位置によって断面係数の値が異なる)修正前のように一旦VBS実行後、図形の図芯を原点となるよう移動して再度実行するとうまく計算できます。AutoCAD2015環境です。PM何度も申し訳ありません。あと、計算結果のIy、Ix等のyとxが逆になっていると思います。コメントをキャンセルメールアドレスが公開されることはありません。WordPress.。