Yuhto さんから �u 以外で、坪 で表示してほしいとリクエストを頂きました。

もし、坪換算も欲しい人は使ってみて下さい。

換算比は　121/400　で計算しています（根拠は知らん）

以下BATファイル『面積計算.bat』
（batファイルの名前は別に何でもかまいません）

@REM  線，円弧で囲まれた図形の面積計算
ECHO off
REM  バッチファイルによる設定
REM 
REM  #jw        外部プログラムの宣言
REM  #cd
REM  #hm　面積|1)�u|2)坪|
REM  #:1
REM  #:2
REM  #h1
REM  #hc 計測範囲を指定
REM  #ht10
REM                         #ht20
REM  #ht30
REM  #ht40
REM  #e
 
jgawk -v MD=%1 -f 面積計算.awk  jwc_temp.txt > temp.txt
del input.txt
rename jwc_temp.txt input.txt
rename temp.txt jwc_temp.txt 

REM pause

goto end

線、円弧（楕円はだめ）で囲まれた図形の面積を計算します

左（右）ＡＭ１２時　で範囲確定すると、その位置に結果を書出します。

線が途切れていたり、余分な線、円弧が有るとエラーとなります。
（データ整理した方が良いかも）

穴が有る図形は計算出来ません
（別々に測定して引き算して下さい）


:end

いきなり、ここから読んだ人へ、元スレにbatファイルが有ります、セットで
使ってください

１行目の GG が�u，GGG が 坪 の表示書式です、使いやすいように変えて下さい

以下を『面積計算.awk』でセーブして下さい
（こちらは名前を変えると、batファイルも変更が必要）

BEGIN{pi=atan2(0,-1);GG="%.3f";GGG="%.4f"
        i=0;j=0;s=0;err=0;
}
/^hs/ { split($0,asc) };
/^lg/ {lg=substr($1,3);sc=asc[index(" 0123456789abcdef",lg)]};
/^ [.0-9-]/  && NF==4 {xs[++i]=$1;ys[i]=$2;xe[i]=$3;ye[i]=$4}
/^ci/ && NF==8 && $7==1{
        cx[++j]=$2;cy[j]=$3;cr[j]=$4;cs[j]=$5+$8;ce[j]=$6+$8;
        xs[++i]=$2+cos(($5+$8)/180*pi)*$4;xcs[j]=xs[i];
        ys[i]=$3+sin(($5+$8)/180*pi)*$4;ycs[j]=ys[i];
        xe[i]=$2;ye[i]=$3;
        xs[++i]=$2;ys[i]=$3;
        xe[i]=$2+cos(($6+$8)/180*pi)*$4;xce[j]=xe[i];
        ye[i]=$3+sin(($6+$8)/180*pi)*$4;yce[j]=ye[i];
        }
END{
        mx=i;mc=j;
        for(i=1;i<mx;i++){
            for(j=i+1;j<=mx;j++){
                if((marum(xe[i],sc)==marum(xs[j],sc))&&\
                   (marum(ye[i],sc)==marum(ys[j],sc))){
                   if(i+1==j)break
                   else{swap(xs,j,xs,i+1);swap(ys,j,ys,i+1);
                        swap(xe,j,xe,i+1);swap(ye,j,ye,i+1);break}
                }
                if((marum(xe[i],sc)==marum(xe[j],sc))&&\
                   (marum(ye[i],sc)==marum(ye[j],sc))){
                   swap(xe,j,xs,j);swap(ye,j,ys,j);
                   if(i+1==j)break
                   else{swap(xs,j,xs,i+1);swap(ys,j,ys,i+1);
                        swap(xe,j,xe,i+1);swap(ye,j,ye,i+1);break}
                }
                }
                if(j>mx){
                if((marum(xs[1],sc)!=marum(xe[mx],sc))||\
                   (marum(ys[1],sc)!=marum(ye[mx],sc))||\
                   (i<mx-1)){err="1"}
                }
        }
        if(err != "1"){
        for(i=1;i<=mx;i++){x[i]=xs[i];y[i]=ys[i]}
        x[i]=x[1];y[i]=y[1];
        for(i=1;i<=mx;i++){
                a=sqrt(x[i]^2+y[i]^2);b=sqrt(x[i+1]^2+y[i+1]^2);
                k1=atan2(y[i],x[i]);k2=atan2(y[i+1],x[i+1]);
                m=menseki(a,b,k2-k1);
                s=s+m;
        }
        for(i=1;i<=mc;i++){
                m=((ce[i]-cs[i]+720)% 360)/360*pi*cr[i]^2
                for(j=2;j<=mx;j++){
                if((marum(x[j],sc)==marum(xcs[i],sc))&&\
                   (marum(y[j],sc)==marum(ycs[i],sc))){s=s+m;break}
                if((marum(x[j],sc)==marum(cx[i],sc))&&\
                   (marum(y[j],sc)==marum(cy[i],sc))){s=s-m;break}
                }
                if(j > mx){err="1"}
        }
        if(err!="1"){
        if(MD==1){
        printf ("ch 0 0 1 0 \""GG" �u\n",abs(s)/1000000)
        printf ("h# %.15g �u \n",abs(s)/1000000)
        }
        if(MD==2){
        printf ("ch 0 0 1 0 \""GGG" 坪\n",abs(s)/400000000*121)
        printf ("h# %.15g 坪 \n",abs(s)/400000000*121)
        }
        }
        else{print "h# 線が繋がっていないか、二重になってます \n"}
        }
}

function swap(a,b,c,d,       e){e=a[b];a[b]=c[d];c[d]=e}

function menseki(a,b,c){return sin(c)*a*b/2}

function abs(atai) {return( atai+0 >= 0 ) ?  atai : -atai }

function sig(atai) {return( atai+0 >= 0) ? 1 : -1 }

function pita(x,y){return(sqrt(x^2+y^2))}

function marum(atai,sc){
       return(int(abs(atai)*1000/sc+0.5)/1000*sc)*sig(atai)}

表示は四捨五入して、指定桁数で、表示されます（文字で書出される部分）

もし、坪 表示で、小数点以下 ２桁で、切捨て表示したい場合

awkファイルの、１行目のGGGの部分を　GGG="%.2f" に変え

６５行目を

        printf ("ch 0 0 1 0 \""GGG" 坪\n",abs(s)/400000000*121-0.005)

とすれば、切捨て表示に出来ると思います。
（早い話、四捨五入する前に、0.005 引いちゃう訳です）

後は、お好きなように、改造なり何なりして下さい。

koさんは No.9756「面積計算で坪 のリクエストを頂きました」で書きました。

>Yuhto さんから �u 以外で、坪 で表示してほしいとリクエストを頂きました。

恐縮です(^^ゞ　ありがとうございました。
動作もばっちり！さすが！

>REM  #hm　面積|1)�u|2)坪|

そのまま使って頂きまして、ありがとうです。ちょっとうれしい！
遅い時間までの作業ほんとにありがとうございました。_(_^_)_

koさんは No.9756「面積計算で坪 のリクエストを頂きました」で書きました。

#9667の改訂版ですよね！
利用させていただきます。
koさん毎回ありがとうございます。

 先の面積計算の外変，使用させて頂きたいのですが，
どのようにしてJWWのﾌｫﾙﾀﾞｰに組み込んだら，いいのでしょうか？
詳しく教えて下さい．

こんにちは、okaです。
いや〜本当にすごいですね。
随分積算が楽になりそうです。m(__)m

勝手に利用させてもらってこんなこと
言っていいのかどうかと思ったのですが・・・
ごめんなさい。質問させてください。
DOS窓が一瞬現れて計算後に、「構文エラーです。」
と表示されて、すぐ見えなくなっちゃうんです。
答えに異常はないのですが、これって問題はないこと
なのでしょうか？
私の導入方法が悪かったのかもしれないので、
そうでしたら心当たりを教えていただけないでしょうか？

よろしくお願いします。

okaさんは No.9803「本当にありがとうございます。」で書きました。

>DOS窓が一瞬現れて計算後に、「構文エラーです。」
>と表示されて、すぐ見えなくなっちゃうんです。

申し訳ありません、全然見当が付きません。

おそらく、batファイル上の問題と思いますが、「構文エラーです。」
と言う表示は見たことが有りません。

初めて使う時は、input.txt が見つかりません と表示されますが、
気にしないで下さい
（デバッグの為にｊｗｗから書出したデータのバックアップです）
ゴミファイルが、フォルダに一つ残りますが、お許しを

ＯＳによって、batファイルの仕様が若干違う様ですが、ＸＰでしょうか？
当方もＸＰで、作りました。

ＸＰになったら、ＤＯＳプロンプトが無くなって、勝手にＤＯＳ窓が閉じる
様になっちゃいました、batファイルの

rem pause

もその残骸です

なにか、良い方法は有るのでしょうか？

お力になれずに、すみません

こんにちは、okaです。
レスありがとうございます。
エラー表示がでるのは、職場のWindows Meです。
たった今テストしたら、
自宅のWindows XPでは、エラーは表示されませんでした。

まぁ答えが間違ってでてくる訳でもないし、
全然問題ないので、このまま利用させていただきます。
ありがとうございました。

もう少しバージョンアップして見ました
内容は

１：複数の図形を選択可能
２：円も計算
３：穴の開いた図形も、穴を含めて計算後、穴形状のみを範囲選択して
　　元のデータから、穴面積×２を引いて計算
４：書込みレイヤと書込み文字種をBATファイルで指定可

この程度です。

結果の書出し部分が別に分かれたので、同じデータで何度も�uや坪表示に
書出し出来ます

その反面、操作が増えました

興味が御ありでしたら、乗っけますが如何でしょう？
（サイズ的に一度に乗せられないので、ちょっと躊躇しています）

koさんは No.9837「もう少しバージョンアップして見ました」で書きました。

>もう少しバージョンアップして見ました

ｋｏ様、いつもありがとうございます。
貴重な外部変形プログラム、有り難く使用させてもらっています。

お年玉、宜しくお願い致します。m(_ _)m

こんにちは、okaです。
是非載せてください。
楽しみにしています。
では。

単位選択の部分が改行されちゃいますので直して下さい

もしかしたら、前バージョンの方が作業性は良いかも知れないので
別フォルダに置いて、確認するか、ファイルネームを変えたほうが良いかも

書込み文字種と書込みレイヤを一々入力するのが面倒なら#cの前に半角
スペースをたくさん入れて無効にすると、書込み文字種で書込みレイヤに
書き込まれます
（#ht20 の所くらい空ける）


毎回同じ形態なら、:2の所の %3 %4 を直に指定した方が便利です

例）　文字種を２に限定　/M2
　　　レイヤをｆに限定　/Lf


一応『面積計算.bat』

@REM  線，円弧で囲まれた図形と円の面積計算
ECHO on
goto %1
REM  バッチファイルによる設定
REM 
REM  #jw        外部プログラムの宣言
REM  #cd
REM  #hm　面積|新規範囲(L)|結果書込(R)|追加範囲(3)|穴範囲(4)|
REM  #:1
REM  #:3
REM  #:4
REM  #h1
REM  #hc 計測範囲を指定
REM  #ht10
REM                         #ht20
REM  #ht30
REM  #ht40
REM  #hr
REM  #e
REM  #:2
REM  #0  書出位置を指定(R)Read (L)Free
REM  #k  記入単位|�u(L)|坪(R)|C�u(3)|アール(4)|畝(5)|反(6)|ｴｰｶｰ(7)|平方
インチ(8)|平方ﾌｨｰﾄ(9)| /_
REM  #c  書込み文字種：/_/M
REM  #c  書込みレイヤ：/_/L
REM  #hr
REM  #e
:1
jgawk -v MOD=1 -f 面積計算.awk  jwc_temp.txt > temp.txt
del input.txt
rename jwc_temp.txt input.txt
rename temp.txt jwc_temp.txt
copy jwc_temp.txt kotae.txt
REM pause
goto end
:3
:4
jgawk -v MOD=%1 -f 面積計算.awk  jwc_temp.txt kotae.txt > temp.txt
del input.txt
rename jwc_temp.txt input.txt
rename temp.txt jwc_temp.txt
copy jwc_temp.txt kotae.txt
REM pause
goto end

:2
jgawk -v MOD=2 -v TNI=%2 -f 面積計算.awk kotae.txt %3 %4 > temp.txt
del input.txt
rename jwc_temp.txt input.txt
rename temp.txt jwc_temp.txt 

REM  pause

goto end

線、円弧、（楕円はだめ）で囲まれた図形と円の面積を計算します

線が途切れていたり、余分な線、円弧が有るとエラーとなります。
（データ整理した方が良いかも）

穴が有る図形は一旦、穴も含めて範囲選択、決定し
次に穴範囲で穴形状だけを範囲指定、決定します
（始めの面積から、穴面積の2倍を引き算します）

:end

長いので２分割です

『面積計算.awk』

BEGIN{pi=atan2(0,-1);GG="%.3f";GGG="%.2f";GGGG="%.3f"
        fg="z"; fl="z";fm="z";hf="z"
        i=0;j=0;k=1;l=1;s=0;err=0;es=0
   if(MOD==2){
    if(ARGC > 2){
        for(i=3;i<=ARGC;i++){
            if(ARGV[i-1]~/^\/L[0-9a-fA-F]/)
                lyr = substr(ARGV[i-1],3)
            if(ARGV[i-1]~/^\/M[0-9]/)
                mji = substr(ARGV[i-1],3)
            ARGV[i-1]="";
        }
    }
   }
}

#初期値
/^lg/ {lg=substr($1,3); if(fg=="z"){fg=$0;            # ﾚｲﾔｰｸﾞﾙｰﾌﾟ

        sc=asc[index(" 0123456789abcdef",lg)]}};
/^ly/ {ly=substr($1,3); if(fl=="z")fl=$0 };          # ﾚｲﾔ
/^cn/ && length($1) < 5 {mj=substr($1,3);if(mj+0 == 0) {
               aph[0]=$2;apw[0]=$3;apd[0]=$4;apc[0]=$5;}
               if(fm=="z")fm=$0 };                   # 文字種


/^# /{next}
/^err/{err=1}
/^hs/ { split($0,asc);if(hf=="z"){hf=0;print $0 }};
/^ [.0-9-]/  && NF==4 {xs[++i]=$1;ys[i]=$2;xe[i]=$3;ye[i]=$4};
/^#[.0-9-]/  && NF==1 {sss=substr($1,2);print("# SSS="sss)}
/^ci/ && NF==4 {es=es+($4^2)*pi}
/^ci/ && NF==8 && $7==1{
        cx[++j]=$2;cy[j]=$3;cr[j]=$4;cs[j]=$5+$8;ce[j]=$6+$8;
        xs[++i]=$2+cos(($5+$8)/180*pi)*$4;xcs[j]=xs[i];
        ys[i]=$3+sin(($5+$8)/180*pi)*$4;ycs[j]=ys[i];
        xe[i]=$2;ye[i]=$3;
        xs[++i]=$2;ys[i]=$3;
        xe[i]=$2+cos(($6+$8)/180*pi)*$4;xce[j]=xe[i];
        ye[i]=$3+sin(($6+$8)/180*pi)*$4;yce[j]=ye[i];
        }
END{if(i<3&&i!=0){err=1;print("err")}
        mx=i;mc=j;l=1;n[1]=1
        for(i=1;i<mx;i++){
            for(j=i+1;j<=mx;j++){f="0"
                if((marum(xe[i],sc)==marum(xs[j],sc))&&\
                   (marum(ye[i],sc)==marum(ys[j],sc))){
                   if(i+1==j){f=1;break}
                   else{swap(xs,j,xs,i+1);swap(ys,j,ys,i+1);
                        swap(xe,j,xe,i+1);swap(ye,j,ye,i+1);f=1;break}
                }
                if((marum(xe[i],sc)==marum(xe[j],sc))&&\
                   (marum(ye[i],sc)==marum(ye[j],sc))){
                   swap(xe,j,xs,j);swap(ye,j,ys,j);
                   if(i+1==j){f=1;break}
                   else{swap(xs,j,xs,i+1);swap(ys,j,ys,i+1);
                        swap(xe,j,xe,i+1);swap(ye,j,ye,i+1);f=1;break}
                }
                }
                if(f==1 && i==mx-1){
                  if((marum(xs[n[l]],sc)==marum(xe[i+1],sc))&&\
                     (marum(ys[n[l]],sc)==marum(ye[i+1],sc))){n[++l]=i+2}
                else{err="1";print("err")}
        }
                if(f=="0"){
                  if((marum(xs[n[l]],sc)==marum(xe[i],sc))&&\
                     (marum(ys[n[l]],sc)==marum(ye[i],sc))&&i!=mx-1)
                {n[++l]=i+1}
                else{err="1";print("err")}
                }
                else{print("# f="f"  j="j"  i="i)}
        }

        if(err != "1"){ml=l
        for(l=1;l<ml;l++){ss=0
        for(i=n[l];i<n[l+1];i++){x[i]=xs[i];y[i]=ys[i]}
        x[i]=x[n[l]];y[i]=y[n[l]];
        for(i=n[l];i<n[l+1];i++){
                a=sqrt(x[i]^2+y[i]^2);b=sqrt(x[i+1]^2+y[i+1]^2);
                k1=atan2(y[i],x[i]);k2=atan2(y[i+1],x[i+1]);
                m=menseki(a,b,k2-k1);
                ss=ss+m;
        }
        for(i=1;i<=mc;i++){
                m=((ce[i]-cs[i]+720)% 360)/360*pi*cr[i]^2
                for(j=n[l]+1;j<n[l+1];j++){
                if((marum(x[j],sc)==marum(xcs[i],sc))&&\
                   (marum(y[j],sc)==marum(ycs[i],sc))){ss=ss+m;break}
                if((marum(x[j],sc)==marum(cx[i],sc))&&\
                   (marum(y[j],sc)==marum(cy[i],sc))){ss=ss-m;break}
                }
        }
        s=s+abs(ss)
        }
        s=s+es
        if(MOD==1){
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }
        if(MOD==3){
          s=sss+s
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }
        if(MOD==4){
          s=sss-s*2
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }
        if(MOD==2){
          if(lyr!=""){printf("ly%s\n",lyr)}
          if(mji!=""){printf("cn%s\n",mji)}
          if(TNI==1){
          printf ("ch 0 0 1 0 \""GG" �u\n",abs(sss)/1000000)
          printf ("h# %.13g �u \n",abs(sss)/1000000)
          }
          if(TNI==2){
          printf ("ch 0 0 1 0 \""GGG" 坪\n",abs(sss)/400000000*121)
          printf ("h# %.13g 坪 \n",abs(sss)/400000000*121)
          }
          if(TNI==3){
          printf ("ch 0 0 1 0 \""GGGG" C�u\n",abs(sss)/100)
          printf ("h# %.13g C�u \n",abs(sss)/100)
          }
          if(TNI==4){
          printf ("ch 0 0 1 0 \"%.3f a\n",abs(sss)/100000000)
          printf ("h# %.13g a \n",abs(sss)/100000000)
          }
          if(TNI==5){
          printf ("ch 0 0 1 0 \"%.4f 畝\n",abs(sss)/12000000000*121)
          printf ("h# %.13g 畝 \n",abs(sss)/12000000000*121)
          }
          if(TNI==6){
          printf ("ch 0 0 1 0 \"%.5f 反\n",abs(sss)/120000000000*121)
          printf ("h# %.13g 反 \n",abs(sss)/120000000000*121)
         }
          if(TNI==7){
          printf ("ch 0 0 1 0 \"%.5f acre\n",abs(sss)/4047000000)
          printf ("h# %.13g acre \n",abs(sss)/4047000000)
          }
          if(TNI==8){
          printf ("ch 0 0 1 0 \"%.3f in^u2\n",abs(sss)/645.16)
          printf ("h# %.13g 平方インチ \n",abs(sss)/645.16)
          }
          if(TNI==9){
          printf ("ch 0 0 1 0 \"%.3f ft^u2\n",abs(sss)/92903.04)
          printf ("h# %.13g 平方フィート \n",abs(sss)/92903.04)
          }
        }
        }
        else{print "h# 線が繋がっていないか、二重になってます \n"}
        printf("%s\n%s\n%s\n",fg,fl,fm);
}

function swap(a,b,c,d,       e){e=a[b];a[b]=c[d];c[d]=e}

function menseki(a,b,c){return sin(c)*a*b/2}

function abs(atai) {return( atai+0 >= 0 ) ?  atai : -atai }

function sig(atai) {return( atai+0 >= 0) ? 1 : -1 }

function pita(x,y){return(sqrt(x^2+y^2))}

function marum(atai,sc){
       return(int(abs(atai)*1000/sc+0.5)/1000*sc)*sig(atai)}

ECHO off にするのを忘れていました

見苦しかったら、

ECHO on

を

ECHO off

にして下さい

面積計算有難うございます。
バージョンアップのスピードもすごいですね。
ありがたく使わせていただきます。
早速ですが、
範囲指定でなく、最初に連続線を指定すると、
穴あけ部分の線を指定しませんよね。
そこで次に穴あけの線を指定すると、
計算結果は、穴あけ部分の面積が2倍　差し引かれます。
使うほうが、気をつければいいのですが、連続線を右クリックで指定できるので
便利に使うとうっかりしそうです。
初期範囲で連続線右クリックはないほうがいいかも、、、
皆さんは、如何でしょうか？
koさん　気を悪くしないでください。
私が使ってみて、気がついた所を、かってに書かせていただきました。
とにかく、便利な外変　有難うございます。

mashimoさんは No.9848「穴あけ計算が少し、、、」で書きました。

>範囲指定でなく、最初に連続線を指定すると、
>穴あけ部分の線を指定しませんよね。
>そこで次に穴あけの線を指定すると、
>計算結果は、穴あけ部分の面積が2倍　差し引かれます。
>使うほうが、気をつければいいのですが、連続線を右クリックで指定できるので
>便利に使うとうっかりしそうです。
>初期範囲で連続線右クリックはないほうがいいかも、、、

確かに、その通りです。

ただ、登録図形や、ｊｗｃ保存すると、Ｒ面取りした部分等で、右クリック指定
での選択が切れる場合が有ります。

いっそ全部範囲選択した方が楽かなと思ったしだいです。

穴部分の選択の手間は同じですから

しかし、穴でも外形でも無い線が有る場合、右クリック選択は有効ですよね

とすると、２倍減算と１倍減算の２つそろえた方が良いですか？

batファイルの変更部分

メニュー一個追加とラベル#:5追加

REM  #jw        外部プログラムの宣言
REM  #cd
REM  #hm　面積|新規範囲(L)|結果書込(R)|追加範囲(3)|穴２倍(4)|穴１倍(5)|
REM  #:1
REM  #:3
REM  #:4
REM  #:5


ラベル:5追加

:3
:4
:5
jgawk -v MOD=%1 -f 面積計算.awk  jwc_temp.txt kotae.txt > temp.txt

awkファイルに1倍減算追加

１０８行目辺り

        if(MOD==4){
          s=sss-s*2
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }

の後に
        if(MOD==5){
          s=sss-s
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }

を追加

こんな感じ↓
　　　　　・
　　　　　・
　　　　　・
        if(MOD==4){
          s=sss-s*2
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }
        if(MOD==5){
          s=sss-s
          printf("#%.15g\n",s)
          printf("h# 途中経過 %.13g \n",s)
          }
        if(MOD==2){
          if(lyr!=""){printf("ly%s\n",lyr)}
          if(mji!=""){printf("cn%s\n",mji)}
　　　　　・
　　　　　・
　　　　　・

これでどうですか？

すばやい対応有難うございます。
*2を消すか、範囲選択で気をつけるか、、、
考えていましたが、選択肢を増やせばよかったんですね。
プログラムのことは、わからないので、テキスト見ながら危険なことを考えていました。
実用上ぜんぜん問題ないと思います。
本当に有難うございました。

こんにちは、okaです。
koさんありがとうございます。
とっても早い対応に驚かされるばかりです。
便利なものありがとうございます。
感謝感謝！

koさん、すばらしい外変ありがとうございます。
円弧線を含んだ面積が範囲指定するだけで算出できるなんて
正直、私には感動物でした。
この「面積計算」を是非仕事に活用したいと考えています。

私の場合、面積計算にはヘロンをよく使います。
つまり、円弧線を含む部分の面積は小さく三角形にして
面積を計算してこれを施主（役所）に出来形成果図として
提出していました。

「面積計算」を実務で使用する場合、ネックになるのは
計算表なのですが････。

正直に言います。koさん、「面積計算」に計算表作図を追加
出来ないでしょうか？

それか、計算表を作成するいい方法があればご指導お願いします。

S.Yamamotoさんは No.9874「Re:ECHO off にするのを忘れていました」で書きました
。


>それか、計算表を作成するいい方法があればご指導お願いします。
>

計算表とは、ヘロンちゃんとか三斜面とかの面積計算の元になる数値の
表のことでしょうか？

だとすると、無理です

表にすると、そこに書いた数値で計算しないとツジツマが合いませんよね
そうすると、表に書く時点で、数値を丸めるので、かなり誤差が生じます

他のスレッドにも書きましたが、範囲選択時の基点を頂点、各辺を底辺とする
三角形の積算で面積を求めています

この場合、途中で数値を丸めると、選んだ基点によって結果が変わっちゃいます
（又、この時の線を図面に描くと、とても見づらい）

実は曲線コマンドで書いた図形も計算出来ます
これを表にしたらトンでもない量に成ります

代案として、円弧部分を、円の始点から中心、中心から終点の線を書いて
円弧部分を抜いた形で、ヘロンちゃんで作表して

後で円弧部分の面積を表に追加してはいかがですか？

円弧の長さと半径で面積は出ますよね
（この場合三斜面の表の方がしっくりくる様な気がする）

お力になれずにすみません

koさん、早速の返信ありがとうございます。
>代案として、円弧部分を、円の始点から中心、中心から終点の線を書いて
>円弧部分を抜いた形で、ヘロンちゃんで作表して
>
>後で円弧部分の面積を表に追加してはいかがですか？

上記の方法で一度試してみます、どうもありがとうございました。

また、何かあればご指導お願いします。

初歩的な質問ですみません・・・

>円弧の長さと半径で面積は出ますよね
>（この場合三斜面の表の方がしっくりくる様な気がする）

どう出すんですか？
無知で申し訳ないです。
自分はいつも「円全体の面積×角度/360」でやってました（汗）
あまり弓形は扱わない仕事なもので・・・

keiさんは No.9884「Re:ECHO off にするのを忘れていました」で書きました。

>初歩的な質問ですみません・・・
>
>>円弧の長さと半径で面積は出ますよね
>>（この場合三斜面の表の方がしっくりくる様な気がする）
>
>どう出すんですか？
>無知で申し訳ないです。
>自分はいつも「円全体の面積×角度/360」でやってました（汗）
>あまり弓形は扱わない仕事なもので・・・

弓型の面積じゃ無くて、扇型の面積です

考え方として
円の面積は三角形の面積の求め方と同じです

円弧の長さ×半径／２

円弧＝底辺
半径＝高さ

円弧の長さを測定コマンドで測るのなら、この方法です

角度と半径から計算する場合、「円全体の面積×角度/360」と同じです



弓型の面積は扇型から三角形を引けばＯＫですよね

>弓型の面積じゃ無くて、扇型の面積です
>
>考え方として
>円の面積は三角形の面積の求め方と同じです
>
>円弧の長さ×半径／２
>
>円弧＝底辺
>半径＝高さ
>
>円弧の長さを測定コマンドで測るのなら、この方法です
>
>角度と半径から計算する場合、「円全体の面積×角度/360」と同じです
>
>
>
>弓型の面積は扇型から三角形を引けばＯＫですよね

ありがとうございます。
あまりにもあほな質問で恐縮・・・

keiさんは No.9884「Re:ECHO off にするのを忘れていました」で書きました。

>初歩的な質問ですみません・・・
>
>>円弧の長さと半径で面積は出ますよね
>>（この場合三斜面の表の方がしっくりくる様な気がする）
>
>どう出すんですか？
>無知で申し訳ないです。
>自分はいつも「円全体の面積×角度/360」でやってました（汗）
>あまり弓形は扱わない仕事なもので・・・

円の面積＝r*r*π
円の周長＝2r*π

円弧の面積＝円の面積 * ( 円弧の長さ/円の周長 )
          ＝r*r*π * ［ 円弧の長さ/(2r*π) ］
          ＝( r*円弧の長さ )/2

ジョニーさんは No.9754「JWWにgif形式のデータを貼り付ける」で書きました。

>JWWにgif形式のデータを貼り付けるにはどうしたら良いのですか？
>どなたかおわかりになる方、ご教授下さい。
私の場合はこの無料ソフトを利用してJPG,BMPに変換して利用してます
色々と利用できます　一度試してください

http://homepage1.nifty.com/k_okada/
GIFは標準で対応してます

皆様ごくろう様です
この方法がいいのかどうか不明ですが
裏わざとして（ごめんなさい）
Ｃドライブに新規フォルダーを作成してJWW-Aと変更します
そこにJWW2.30を解凍しないで入れておきます、そこから解凍するのですが
解凍先をC:\JWW-Aとして解凍します　これでデスクトップに新しいアイコンを
作れば完了です　または、解凍するときにC:\JWW-Aと変更でもOK可と
ただしJW_WIN.JWFはどちらも同じものとなります
学校の環境も残して自分の環境も作れます

>皆様ごくろう様です
>この方法がいいのかどうか不明ですが
>裏わざとして（ごめんなさい）
>Ｃドライブに新規フォルダーを作成してJWW-Aと変更します
>そこにJWW2.30を解凍しないで入れておきます、そこから解凍するのですが
>解凍先をC:\JWW-Aとして解凍します　これでデスクトップに新しいアイコンを
>作れば完了です　または、解凍するときにC:\JWW-Aと変更でもOK可と
>ただしJW_WIN.JWFはどちらも同じものとなります
>学校の環境も残して自分の環境も作れます

あくまで私の個人的意見ですが、↑はやめておいた方が無難と思います。
JWWは複数のバージョン同時インストールを考慮しているとは思えません。
フォルダを分けても、状態保存に使用されるレジストリキーは同じ場所です。
片方の使用によりもう一方に影響が出る可能性が・・・
(レジストリを使用していない2.17以前のなら、一個は入れてもいいかもしれません
が)