Indexへ
(8074)//【8075】→(8120)
------------------------
【タイトル】計算するのが楽しいxPGetZ UP！
【記事番号】 8075 (*)
【 日時 】06/10/08 21:59
【 発言者 】ＭＡＳＡ
【 リンク 】http://www.geocities.jp/me109e4jp/index.html



ブロック図形を使わないで、任意の図形から実点を自動作図する新作ですのでxPGetZとします。

JW_CAD for Windowsから外変xPを利用して、実点のXY座標と名前を取り込んで、
空洞のある多角形の二次モーメント等、断面諸量を計算するエクセルブックです。
各々の面積及び図心座標も計算します。
JWWにもどって図心位置及び断面諸量を書き入れます。

金桜さんにスクリプトを全面書き直していただきました。感謝いたします。

自動で円弧は細かく、多角形は端点に実点を打ちます。

このため、かなり正確に計算できるので、面倒だった計算が、楽しくなります。

拙宅でＤＬできます。


Indexへ
(8075)←【8120】//(8076)
------------------------
【タイトル】xPGetZの図心及び面積に1000個までの制限がありました。
【記事番号】 8120 (8075)
【 日時 】06/10/14 00:22
【 発言者 】ＭＡＳＡ
【 リンク 】http://www.geocities.jp/me109e4jp/index.html



拙作ｘPGetZのDLありがとうございます。バグ報告です。ご迷惑をおかけいたします。

拙作のxPGetZで図心及び面積の計算式に1000までの制限のままで
1000個以上の点数になってしまうと計算が合わなくなります。

修正版をUP致しましたのでお手数ですが再DLをお願いいたします。

ご自分で修正なさるお方はGetZP.xlsの

図心シートの保護解除をしてO列からAE列を再表示して下のセルを

Q4　=IF(J11="","",SUM(A))　　　
R4　=IF(K11="","",ROUND(SUM(A),3))
Q8　=IF(K11="","",SUM(Gy)/R4)　
R8　=IF(K11="","",SUM(Gx)/R4)
S8　=IF(M11="","",ROUND(SUM(Gy)/T4,3))
T8　=IF(M11="","",ROUND(SUM(Gx)/T4,3))

のように修正しした後に、3桁のチェックをクリックしてください。
数式がコピーされます。

よろしくお願いいたします。