皆さん、こんにちは。
HPの最新版データーが飛んでしまいましたので・・(^^;)
以下のアドレスより、ソフトをダウンロードしてください。
（ただし、XPタイプのみです）
Macad バージョン3.10
http://www.geocities.jp/se_m646/Ma310xp.lzh
◇バ−ジョン 3.10での変更点
・立ち上げ時の常に最大化をやめ、終了時の位置・サイズを記憶して立ち上がるようにした。
立ち上がる設定フォーム全てを,絶対位置から相対位置に変更した。
・消去コマンド/複写コマンド/移動コマンドに「文字個別」ボタンを追加し、
文字NO個別選択が出来るようにした。
・鉄骨部材Ｃ形綱に２Ｃタイプを追加した。
・計算コマンドの集計の数値の範囲選択ができないことがある不具合を修正した。
・プロ電機能の関数を追加し一部を修正した。
・case{No,1,2,3,4,5,6,・・}NO位置の数値を返す。｛｝内は式、変数で入力可能
例 case{5,10,20,30,40,100/2}=50 (5番目の100/2を返す)
・文字が重なって配置されている場合で、文字を選択（編集）する時に文字数が少ない方を優先に選択出来るようにした。
（複写/移動/消去コマンド右クリック、増減コマンド等で可能）。
・偏心率計算でＦｅを計算し出力するようにした。
・文特コマンド文修正の修正フォームに計算ボタンを追加し、フォーム内でプロ電計算ができるようにした。
・文字Xコマンドの増減を使用した時に、たまに浮動小数点エラーがでる不具合を修正した。
・寸法コマンドに、カンマ表示/非表示、小数点表示/非表示ボタンを追加した。
・Ma図形選択時の「元レイヤ」ボタンがチェックされても図形が書込みレイヤに配置されてしまう
不具合を修正した。（たぶん・・・）
・ショートカットキー設定で12多角形が設定出来ない不具合を修正した。
以上です。
No.417Makino2008年9月26日 17:30
こんにちは。
バグらしいものを発見したら
遠慮せず言ってください。(^^)
バグはなるべく修正したいと思います。
（直せそうなものに限りますが・・・）
> コマンド「線X」で線の端を削除する場合
確認しました。
> お仕事に、MaCadに、秋の行楽に、お身体のご自愛を基本にがんばってください。
どーも、どーも。(^^;)
No.423Makino2008年10月2日 17:59
Makino様 お世話になっております。
お忙しい中のバージョンアップ有難う御座います。
> ・ショートカットキー設定で12多角形が設定出来ない不具合を修正した。
また、早速修正していただいてありがとうございます。
これで、JWWと同じ感覚で作図できます。
また、厚かましい要望なのですが、
コマンド「線X」で線の端を削除する場合
JWW（いつもJWWを引き合いに出して済みません）では、線の部分をクリックし他点は線の無い部分を左クリックすれば線が削除されます が、
Maの場合、線の部分をクリックし他点はその線の端を右クリックしなければ消えなく、線の無い部分を左クリックすれば線は消えますが、端点から新しく左クリックしたところまで線が引かれるので、右クリックでその線を消さなければならなくなります。
そうゆう仕様ですと言われればそううなんですが、できれば、線の無い部分を左クリックすれば線は消えてしまうようになりませんでしょうか？
自分に都合のいいように、これからも変な要望を出しそうですが気にせず聞き流してください．．．たまには、これは! という要望も有ると思いますので宜しくお願いします。
だいぶ、MaCadにも慣れてきましたが、機能が豊富なので使いこなすにはまだまだ掛かりそうです。
お仕事に、MaCadに、秋の行楽に、お身体のご自愛を基本にがんばってください。
No.422fccmt2008年9月30日 08:11
こんばんは。
> 更新、お疲れ様でした。
どーも。(^^)
> ブラウザのソースを保存・修正されては？
少し前のバックアップがありましたので、
足りないソースを保存して、何とかなりそうです。(^^;)
No.421Makino2008年9月29日 00:32
どーも、こんばんは。
ご無沙汰しております。
> ソースが飛んでしまったのでしょうか ?
> 大変でしたね。
少し前のバックアップがありましたので、何とかなりそうです。
> いいですね。
> この解説でやっと理解できました。
今はこの機能が無いと仕事になりません。(^^;)
> 体調には十分お気をつけてご活躍下さい。
お気遣いありがとうございます。
No.420Makino2008年9月29日 00:28
Makinoさん、こんばんは。(*^^*)
更新、お疲れ様でした。
> HPの最新版データーが飛んでしまいましたので・・
って、元ソースが無くなったのですか？(^^;
ブラウザのソースを保存・修正されては？
頂いて帰ります。m(_ _)m
No.419めぐめぐ2008年9月26日 18:32
Makinoさん こんにちは
ご無沙汰しています。
> HPの最新版データーが飛んでしまいましたので・・(^^;)
> 以下のアドレスより、ソフトをダウンロードしてください。
> （XPタイプのみとします）
>
> Macad バージョン3.10
> http://www.geocities.jp/se_m646/Ma310xp.lzh
ソースが飛んでしまったのでしょうか ?
大変でしたね。
今回の修正とアップご苦労様です。
起動時の最大化機能の変更いいですね。
>消去コマンド/複写コマンド/移動コマンドに「文字個別」ボタンを追加し、
>文字NO個別選択が出来るようにした。
またまた他にはない機能ですね。
重宝します。
>気まま解説 の 数式計算 ---文字コマンドで数式の計算をする。
いいですね。
この解説でやっと理解できました。
今まではExcelで作成しデータを貼り付けていましたが手間が少しは省けます。
P.S
この2,3日朝夕が過ごしやすくなりました。
体調には十分お気をつけてご活躍下さい。
No.418N.Misumi2008年9月26日 17:43 （だいたひかる風）
わたしだけ？・・・
ＭＡ図形を呼び出す場合
�@ 「ＭＡ図」をクリック
�A 呼び出したい図形をクリック
�B 「決定」をクリック （図形上でダブルクリックでも可）
�C 貼り付けたい場所を指定
ですが、�Cの前に おまじない
「書き込みレイヤ」「元レイヤ」の順番でそれぞれをクリック
しましょう。 でないと、「元レイヤ」のスイッチが押されていても
「元レイヤ」で図形を呼び出すことができません。すべて「書き込み
レイヤ」になってしまいます。
以上、「わたしだけ？・・・」でした。
ＰＳ 牧野さま お元気でしょうか？ 暑い夏も通り過ぎ
やっと 元の体調にもどりつつある今日このごろ。
牧野様もお体 ご自愛くださいませ。
No.410小森2008年9月3日 18:47
>地階工事では風も通らないため、釜の中にいるようで
耐震補強工事ですか？
頑張ってください。
>崩していたのは体調ではなく、体形（ビールによる）ですね。
>涼しくなっても体形は戻りませんが・・・。
ははー(^^) そうでしたか。
PS
元レイヤの件ですが、原因は分かりました。
No.416Makino2008年9月22日 16:49
> >元の体調にもどりつつある今日このごろ。
>
> 体調を崩されていたのですか？
> くれぐれもお体には気を付けて下さい。
ありがとうございます。
地階工事では風も通らないため、釜の中にいるようで
大変でした。 頑丈な鉄筋屋さんや生コンのオペレーター
の方が、熱中症一歩手前でした。 確かに鉄筋が焼けて
しまって触れなかったですから・・・。
崩していたのは体調ではなく、体形（ビールによる）ですね。
涼しくなっても体形は戻りませんが・・・。
No.412小森2008年9月10日 14:42
ご無沙汰してます。
> 「書き込みレイヤ」「元レイヤ」の順番でそれぞれをクリック
> しましょう。 でないと、「元レイヤ」のスイッチが押されていても
> 「元レイヤ」で図形を呼び出すことができません。
どーも。
スイッチの判定が完全でないようです。
>元の体調にもどりつつある今日このごろ。
体調を崩されていたのですか？
くれぐれもお体には気を付けて下さい。
>牧野様もお体 ご自愛くださいませ。
はーい。(*^_^*)
No.411Makino2008年9月7日 15:48
初めまして、Macadにはまっている初心者です。
早速ですが、「設定」＞「ｼｮｰｯﾄｶｯﾄｷｰ設定」の�@の「U」に「12 多角形」を設定しょうと
するのですが、設定されずに空白になります。その他のｷｰでは、設定されるようです。
JWWで「U」ｷｰを「多角形」にしているため出来れば同じｷｰにしたく思います。
当方だけの症状かも知れませんが手隙の時にでもチェックをお願いします。
今気づいたのですが、「文字」コマンドのサブメニュ−の「字ＮＯ」にカーソルを持って
ゆき左クリックで「基本設定」になるのは隠しコマンドですか？
No.413fccmt2008年9月19日 17:32
fccmtさん、兵庫の爺やさん
こんにちは。
>作者さぁ〜〜〜ん。(^^;
ははー(^^;)
回答ありがとうございました。
多角形の件は不具合を確認し特定出来ましたので
修正します。
基本設定等の件は、特に隠しコマンドでもありません。
バージョン履歴に記載しています。
ps
本当の隠しコマンドは・・・(^^;
（皆さんには特に必要のないものと思いますで・・）
No.415Makino2008年9月22日 15:28
> 設定されずに空白になります。
爺ちゃんも、空白になりますね。
作者さぁ〜〜〜ん。(^^;
> 左クリックで「基本設定」になるのは隠しコマンドですか？
メニュ−バ−までマウスを動かさずに、操作出来るようにされているのでしょうね。
隠しコマンドかどうかは判りませんが、他にもありますよ。
一番多いのは、左クリックで”初期値に戻す”でしょうか。
・ 部材コマンドの「XYずれ」を左クリック 等
他には、印刷コマンドの「倍率」、線コマンドの「毎」、
線コマンドの「傾き」を右クリック 等。
No.414兵庫の爺や2008年9月20日 19:31
Makino様
お元気ですか。
コブチ
No.406コブチ2008年7月8日 22:13
Makino様
安心しました。
これからもよろしくお願いします。（安が抜けていました。すみません。）
コブチ
No.409コブチ2008年7月14日 15:34
Makino様
心しました。
これからもよろしくお願いします。
コブチ
No.408コブチ2008年7月14日 15:31
コブチさん。
どーも。(^^)
>お元気ですか。
長い間静かにしていますが、
元気ですよ！
お気遣いありがとうございます。
ただ本業が忙しすぎて、
ネットまで手が取れない状態が続いていまして・・・(^^;)
No.407Makino2008年7月9日 01:46
牧野様、ご無沙汰しています。
「文字配置と変形図形」
文字を配置する際、文字の基点位置を指示しますが
--------------
l ・ ・ ・ l
l l
l ・ ・ ・ l
l l
l ・ ・ ・ l
--------------
文字配置参照を図面から座標取得し
変形図形の配置基点に置き換えて
変形図形内基点ポイントの座標として
文字の参照、基点→終点位置(1)
文字=A1 →変形図形_柱〔□〕
文字参照、基点→終点位置(2)
文字=A2 →変形図形_梁1〔〓〕
文字=A2 →変形図形_梁2〔〓〕
配置として、文字配置=座標読取り
といった型で作業分類し一気に
変形図形を配置することはできない
ものでしょうか。
ご検討いただければ幸いです。
No.405藤嶋2008年5月12日 10:31
ｊｗｃａｄでは、ヘロン作図ができたのですがmacadでの作図方法がわからないので教えてくださいーーーー
No.400aki2008年4月17日 13:46
１ △コマンド選択
２ ２辺ボタンクリック
３ 距離ボタンクリック
４ コンボボックスに残りの２辺の数値入力
５ １点目右クリック
６ ２点目右クリック
７ 方向クリック完了
です。
No.404Makino2008年4月20日 21:44
jwcadでは、ヘロン作図は底辺の寸法を数字を書き込み作図ボタンで2辺・3辺を書込み底辺の端と端を右クリックすれば、三角形（ヘロン求積三角形）が簡単に作図できるが
macadでの操作がわからない。
No.402aki2008年4月20日 20:10
おはようございます。
まず先に３角形を作図しておきます。
左の計算コマンド選択
上のヘロン求積ボタンクリックして、
三角形頂点３点を右クリックしていきます。
全ての三角形を完了したら、
結果出力ボタンをクリックし計算式表を配置すれば完了です。
少数点等の変更は、設定ボタンをクリックして行います。
> ｊｗｃａｄでは、ヘロン作図ができたのですがmacadでの作図方法がわからないので教えてくださいーーーー
No.401Makino2008年4月18日 04:11
お世話になります。
お仕事のほうは、いかがですか。
まだまだ、追い込み状態でしょうか
おつかれさまです。
今後の、開発のお役に立てばと思い
下記のホームページソフトを紹介しておきます。
http://www.ringolab.com/note/daiya/archives/003522.html
No.398藤嶋2008年4月4日 11:02
ど-も、こんばんは。
> まだまだ、追い込み状態でしょうか
ええ、そうですね。(^^;)
情報をありがとうございます。
No.399Makino2008年4月5日 04:54
連続的コマンドの命令を
キーボードマクロ機能のように
記憶させ連続作業できるような
ことはできないでしょうか。
No.391藤嶋2008年3月5日 08:47
追伸
エクセルの効率的活用
下記ホームページ
http://www.temma.jp/freesoft/xj.html
Excelアドイン xj等(セル行をｍｍ単位に)
No.396藤嶋2008年3月7日 06:52
N.Misumiさん 、早速のご回答ありがとうございます。
もし、N.Misumiさんが推奨されるものがありましたら
お教えください。
No.395藤嶋2008年3月7日 06:43
使用用途が解りませんがキーボードコマンドを使ったソフトは結構あります。
そちらを探してMaCADのキーボード操作をjっこうさせる方法は如何ですか ?
No.394N.Misumi2008年3月6日 15:21 現在、忙しい状態が続いていまして
Makino さま、健康には注意され頑張ってください。
下記ホームベージを紹介cad機能に付加されでば
嬉しい代物です。参考までに
http://homepage3.nifty.com/a-naga/download.html
Excelアドイン 入力補助 Ver.1.000
No.393藤嶋2008年3月6日 11:43
どーも、こんばんは。
できませ〜〜ん。 (^^;
ps
現在、忙しい状態が続いていまして・・（;^^Ａ
No.392Makino2008年3月5日 21:49
makinoさん おはようございます。
しばらくのぞいていなかったのですが解説が倍になっていますね。
文字コマンド, 階段作成などいいですね。
基点の変更で右と左クリックのあるのは初めて知りました。
終わりのない気まま解説頑張って下さい。
楽しみが増えました。
No.384N.Misumi2008年2月10日 07:43 この記事は投稿者により削除されました
No.3902008年2月28日 14:12
どーも、こんばんは。
> しばらくのぞいていなかったのですが解説が倍になっていますね。
はは。(^^;
まだ作成に結構時間が掛かっていますが、
始めた当初よりも、大分要領が分かってきました。
> 終わりのない気まま解説頑張って下さい。
何も考えずに始めましたが、
やはりそうなんですかね〜終わりがないのですかね-。(¨;)
> 楽しみが増えました。
ブログよりは、ネタには不自由しませんね。
地道にがんばりたいと思います。
No.385Makino2008年2月10日 21:18
牧野様、大変お疲れ様です。
昨年４月、この場で我々意匠屋が利用できる「耐震診断・耐震補強」のための
変形についてお話させていただいておりました。
いくつか作業をして、ほぼ利用に耐えられる変形になったと思いますので
またまた評価ください。
耐震診断判定委員会用の提出図（Ａ３ヨコ・１／５の柱梁断面リストと１／１で
入力する柱の傾斜図）です。
IF文やLOOPが入れ子になっているものもありますが、いまのところ問題はありません。
#****************************************************************************
#Ｄ１０ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D10)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
%wa=0.03
if %umu=0 then
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
%wa=0.03
loop 5 do
arc:%ichi_x1-0.18+%LL1:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-0.36)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１３ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D13)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
if %umu=0 then
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
line:%ichi_x1+%LL1-0.6:%ichi_y1 :%ichi_x1+%LL1:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1+%LL1-0.6:%ichi_y1+0.6:%ichi_x1+%LL1:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-0.6)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１６ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D16)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
if %umu=0 then
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1:%ichi_y1:%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1+%LL1-1:%ichi_y1:%ichi_x1+%LL1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1:%ichi_y1:%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1:%ichi_y1:%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１９ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D19)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
%wa=0.05
if %umu=0 then
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ２２ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D22)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
if %umu=0 then
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
# arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ２５ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D25)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=3
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
%wa=0.05
if %umu=0 then
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7 :1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.7 :1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1.4)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１０ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%ichi_x1=%LLx1-0.36
%ichi_y1=0
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-0.36
%ichi_y1=%LLy1-0.36
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-0.36
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.36
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-0.36-1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-0.36
%ichi_y1=%LLy1-0.36-1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.36-1.2
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-0.36
%ichi_y1=1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=1.2
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#****************************************************************************
#Ｄ１３ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-0.6
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1-0.6
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-0.6
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.6
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-0.6-1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1-0.6-1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.6-1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-0.6
%ichi_y1=1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#*****************************************************************************
#Ｄ１６ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-1
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
endif
endif
#*****************************************************************************
#Ｄ１９ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%ichi_x1=%LLx1-1
%ichi_y1=0
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1-2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1-2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#******************************************************************************
#Ｄ２２ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-1
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#*****************************************************************************
#Ｄ２５ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=4
%gpread_y1=0
%gpread_y2=5
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-1.4
%ichi_y1=0
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1.4
%ichi_y1=%LLy1-1.4
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1.4
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1.4
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1.4-2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1.4
%ichi_y1=%LLy1-1.4-2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
endif
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1.4-2.8
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1.4
%ichi_y1=2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2.8
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#**************************************************************************
#腹筋・巾止筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input"腹筋の径 D10=0 D13=1"%kei1=0
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
%LLx1=%gpread_x2-%gpread_x1
%LLy1=(%gpread_y2-%gpread_y1)/2
%ichi_x1=0
%ichi_y1=%LLy1
line:%ichi_x1 :%ichi_y1+0.18:%ichi_x1+%LLx1+0.03:%ichi_y1+0.18:0:%l_col:3:%l_lay
#------------------------------------------------------------
if %kei1=0 then
%ichi_x1=%LLx1-0.36
%ichi_y1=%LLy1
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
%ichi_x1=0
%ichi_y1=%LLy1
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#------------------------------------------------------------
if %kei1=1 then
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1
line:%ichi_x1 :%ichi_y1+0.3:%ichi_x1+0.6:%ichi_y1-0.3:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1-0.3:%ichi_x1+0.6:%ichi_y1+0.3:0:%l_col:%l_typ:%l_lay
%ichi_x1=0
%ichi_y1=%LLy1
line:%ichi_x1 :%ichi_y1+0.3:%ichi_x1+0.6:%ichi_y1-0.3:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1-0.3:%ichi_x1+0.6:%ichi_y1+0.3:0:%l_col:%l_typ:%l_lay
endif
#****************************************************************************
#柱梁 断面
#--------変更可
%rc_c=1
%rc_l=1
%s_c=2
%s_l=2
#--------
input"巾 "%rchaba=400
input"成 "%rcsei=600
input"スラブ無=0 スラブ付=1 ＷＧ=2"%yuka=0
input"梁天からスラブ天までの距離"%kyo=0
%shaba=%rchaba-80
%ssei=%rcsei-80
#ＲＣ躯体
%rx1=%rchaba*0.5*(-1)
%rx2=%rchaba*0.5
%ry1=%rcsei*0.5*(-1)
%ry2=%rcsei*0.5
#鉄筋
%sx1=%shaba*0.5*(-1)
%sx2=%shaba*0.5
%sy1=%ssei*0.5*(-1)
%sy2=%ssei*0.5
line:%sx1:%sy1:%sx1:%sy2:0:%s_c:1:%s_l
line:%sx1:%sy2:%sx2:%sy2:0:%s_c:1:%s_l
line:%sx2:%sy2:%sx2:%sy1:0:%s_c:1:%s_l
line:%sx2:%sy1:%sx1:%sy1:0:%s_c:1:%s_l
#躯体
if %yuka=0 then
line:%rx1:%ry1:%rx1:%ry2:0:%rc_c:1:%rc_l
line:%rx1:%ry2:%rx2:%ry2:0:%rc_c:1:%rc_l
line:%rx2:%ry2:%rx2:%ry1:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx1:%ry1:0:%rc_c:1:%rc_l
endif
if %yuka=1 then
line:%rx1:%ry1:%rx1:%ry2-120:0:%rc_c:1:%rc_l
line:%rx1:%ry2-120:%rx1-200:%ry2-120:0:%rc_c:1:%rc_l
line:%rx1-200:%ry2:%rx2+200:%ry2:0:%rc_c:1:%rc_l
line:%rx2:%ry2-120:%rx2+200:%ry2-120:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx2:%ry2-120:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx1:%ry1:0:%rc_c:1:%rc_l
endif
if %yuka=2 then
line:%rx1:%ry1:%rx1:%ry2:0:%rc_c:1:%rc_l
line:%rx1:%ry2:%rx2:%ry2:0:%rc_c:1:%rc_l
line:%rx2:%ry2:%rx2:%ry2-%kyo:0:%rc_c:1:%rc_l
line:%rx2:%ry2-%kyo:%rx2+200:%ry2-%kyo:0:%rc_c:1:%rc_l
line:%rx2:%ry2-%kyo-120:%rx2+200:%ry2-%kyo-120:0:%rc_c:1:%rc_l
line:%rx2:%ry2-%kyo-120:%rx2:%ry1:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx1:%ry1:0:%rc_c:1:%rc_l
endif
#*****************************************************************************
#柱の傾斜量（耐震診断調査図）
#図寸に設定
zusun_set
%gpread_x1=-10
%gpread_x2=10
%gpread_y1=10
%gpread_y2=0
%s_l1=6
%s_c1=9
$motolayer_set
input"柱頭の傾斜量 上方向（mm）"%data1=1
input" 右方向（mm）"%data2=1
input" 下方向（mm）"%data3=0
input" 左方向（mm）"%data4=0
dot:0:0:%s_c1:%s_l1
if %data1>0 then
line: 0 :0: 0 :2:0:%s_c1:1:%s_l1
line:-0.75:2: 0.75:2:0:%s_c1:1:%s_l1
line: 0.75:2: 0 :5:0:%s_c1:1:%s_l1
line: 0 :5:-0.75:2:0:%s_c1:1:%s_l1
moji:0:5:0:1:1:0:%data1:%s_l1
endif
if %data2>0 then
line: 0 : 0 : 2 : 0 :0:%s_c1:1:%s_l1
line: 2 : 0.75: 2 :-0.75:0:%s_c1:1:%s_l1
line: 2 :-0.75: 5 : 0 :0:%s_c1:1:%s_l1
line: 5 : 0 : 2 : 0.75:0:%s_c1:1:%s_l1
moji:5:0:0:1:8:0:%data2:%s_l1
endif
if %data3>0 then
line: 0 : 0: 0 :-2:0:%s_c1:1:%s_l1
line:-0.75:-2: 0.75:-2:0:%s_c1:1:%s_l1
line: 0.75:-2: 0 :-5:0:%s_c1:1:%s_l1
line: 0 :-5:-0.75:-2:0:%s_c1:1:%s_l1
moji:0:-5:0:1:5:0:%data3:%s_l1
endif
if %data4>0 then
line: 0 : 0 :-2 : 0 :0:%s_c1:1:%s_l1
line:-2 : 0.75:-2 :-0.75:0:%s_c1:1:%s_l1
line:-2 :-0.75:-5 : 0 :0:%s_c1:1:%s_l1
line:-5 : 0 :-2 : 0.75:0:%s_c1:1:%s_l1
moji:-5:0:0:1:3:0:%data4:%s_l1
endif
#******************************************************************************
No.386小森2008年2月13日 18:30
こんばんは。
> 外構図シリーズや矩計に利用できる内部建具シリーズをＵＰできれば
凄そうですね。
楽しみです。
> 少しでも、ＭＡを利用して図面作成の時間を減らせるように、ＭＡが
速く正確にですね。
私も作りたい変形図形沢山あるのですけど
なっかなか、時間とれ無くって・・・(^^;)
> もっともっと普及するように、陰ながらお手伝いできればと思います。
そっそうですか。
ありがとうございます。(^^)
No.389Makino2008年2月14日 21:37
お世話になります。
>
> 梁断面の上ば筋・下ば筋の鉄筋配置は特に凄いですね〜。
>
構造の事は素人ですので、トレーサーとして使い易くしてみましたが・・・。
みなさん、いかがでしょうか？
>
> そして、まとめてダウンロード出来るようにもしました。
> （小森さんが公開はだめ、と言われれば即削除致します。。(^^;）
>
いえいえ。こんな稚拙なものでもよければ。
また、次には多少牧野様の添削が必要な（私が一番お願いしたいのですが）
外構図シリーズや矩計に利用できる内部建具シリーズをＵＰできれば
いいなと思います。 当初は個人利用の目的でしたので、レイヤーや線の
指定を利用者が自由にできるよう、改変している最中ですが・・・。
少しでも、ＭＡを利用して図面作成の時間を減らせるように、ＭＡが
もっともっと普及するように、陰ながらお手伝いできればと思います。
No.388小森2008年2月14日 10:05
こんばんは。
今回かなりの数の変形図形の公開ありがとうございます。
梁断面の上ば筋・下ば筋の鉄筋配置は特に凄いですね〜。
良く出来ていますので、気ままに解説で、
呪文よりも実際、画像で皆さんにも分かり易く
と思い勝手ながら作成してみました。
そして、まとめてダウンロード出来るようにもしました。
（小森さんが公開はだめ、と言われれば即削除致します。。(^^;）
No.387Makino2008年2月14日 01:25
またまた、お世話になります。
変形図形における数値の丸め処理 $atai_marume に四捨五入がないのは
どうしてでしょうか？
「きままに解説」 文字コマンドで数式の計算ができ、図面に貼り付けることが
できるのは知りませんでした。 計算書等の作成には大変便利だと思います。
ただ、「きままに解説」にあります計算結果小数点桁数以下は「切捨て」しか
ないようで、「切り上げ」「四捨五入」がないことが残念です。
それが判った時点で、文字コマンドで数式の計算から得られた結果（イコールから
右の文字列）だけを取り出せるような変形図形を作成すればいいんじゃないかと
思いましたが、そのようなテキストを加工するコマンドもなく、行き詰ってしまい
ました。 それが本文上段の質問なのですが・・・。
No.374小森2008年2月1日 16:22
こんばんは。
> そして、なぜか納得してしまいましたが・・・やはり有ったほうが
> 便利かと思いますが。
確かにそうでしょうね。(^^;
> 「気ままに解説」 へぇーそんな事もできるんだぁー だらけ。
バリバリの小森さんにそう言って頂けると、
始めて良かったかな〜って思います。
でも始めたのはいいですけど、いつ終わりが来るのでしょうね。（汗）
今はなるべく長い解説になりそうな機能は後回しにしてます。。。
作業は最初よりは少し慣れてきましたけど。(^^;
No.383Makino2008年2月10日 04:44
お世話になります。
> 四捨五入がないのは、ただ単に嫌いだからです。（笑）
おぉー、すごい理由ですね。 思わず笑ってしまいました。
そして、なぜか納得してしまいましたが・・・やはり有ったほうが
便利かと思いますが。
「気ままに解説」 へぇーそんな事もできるんだぁー だらけ。
No.382小森2008年2月9日 17:42
こんにちは。
四捨五入がないのは、ただ単に嫌いだからです。（笑）
やはり必要なのでしょうね。
見直してみます。
>「切り上げ」「四捨五入」がないことが残念です。
「きままに解説」 を作成中に切り捨てだけ？・・・と思いました。(^^;)
No.375Makino2008年2月2日 07:14
Makino さん、
ＨＰ御開設、Macad公開 ４周年 おめでとうございます。m(_ _)m
機能のより一層の充実、期待してますよ。(*^^*)
ご健康で、お仕事に ますますご活躍されますよう お祈りいたします。
No.376兵庫の爺や2008年2月5日 09:50
こんにちは〜。
いつもありがとうございます。
マイペースでがんばります。(^^)
No.381Makino2008年2月6日 14:38
Makino さん、
遅くなりましたがＨＰ御開設、Macad公開 ４周年 おめでとうございます。
これからも充実した機能の公開を期待してます。
体調には十分気をつけてご活躍下さい。
No.380N.Misumi2008年2月6日 11:11
どーも。こんばんは。
> もう ４周年になるんですね！。
いつの間にか４年がたっています。
モニター２２インチワイド買ったので、
喜んで仕事してたら、気にいらない所が見つかりますね。
なんかきりがないですね。(^^;)
No.379Makino2008年2月5日 20:16
makinoさん こんにちは。
もう ４周年になるんですね！。
この間と思っていましたが これからも 続けて新Verの公開・開発
楽しみにしております。
No.378●矢吹 丈(KCF)●2008年2月5日 17:33
こんにちは。
> ＨＰ御開設、Macad公開 ４周年 おめでとうございます。m(_ _)m
ありがとうございます。(^^)
> 機能のより一層の充実、期待してますよ。(*^^*)
ははは。（汗）
> ご健康で、お仕事に ますますご活躍されますよう お祈りいたします。
はい。がんばります。
No.377Makino2008年2月5日 16:01
この記事は投稿者により削除されました
No.3692008年1月29日 15:31
内容の書き込みありがとうございました。
今の段階では、どうするかは分かりませんが、
参考にさせて頂きます。
> 実は私なりにvbにてcadを作成していたのですが、
そうでしたか〜。
CADを作成してみると、色々と大変なことが多いですよね。
私も些細な事に３ヶ月以上も費やしたことがあります。
その時ほとんど諦めてました・・・
でも何とかできたので、その時はホッとしました。
開発頑張ってください。(^^)
No.373Makino2008年1月30日 23:56
早速の御回答有難うございます。
> その内容についてですが、
> 宜しければどのような操作を行いたいのか、
> 今後のUPの参考にしたいと思いますので、教えて頂けたら助かります。
> （出来ればで宜しいですよ・・・(^^;）
行いたい操作をまとめました。
・変形図形実行
・変形図形pz1ファイル選択
・変形図形貼り付け
・jwc,dxf形式保存
実は私なりにvbにてcadを作成していたのですが、
垂直線・複線・伸縮機能でどうしても少数点以下で誤差がでてしまいまして
非常に高精度のMacadの変形図形の利用を考えるようになりました。
Macadの垂直線・複線・伸縮・ファイル保存機能等の関数をDLL化して
公開していただけると非常に有難いです。
非常にわがままな内容で申し訳ございません。
> 有償シェアウェアとしても宜しいでしょうか？
> ええ、ご自由にされてかまいません。
> 宜しいです。
> 条件等がありましたら御回答お願い致します。
> 条件等も特に何もありません。
> 万が一、機能拡張のために将来仕様変更をする事があるかも知れません。
> その時はご理解をお願いします。
わかりました、良い御対応有難うございます。
No.372澤里2008年1月30日 09:48
はじめまして。
いや、外部プログラムを作成されている方が
おられるとは思ってもいませんでした。
> 変形図形から変形図形ファイルを選択、貼り付けまで
> 外部プログラムから操作は可能でしょうか？
出来ません。
> 外部プログラムから参照出来る関数、プロシージャ等は公開しているのでしょうか？
公開をしていません。
と言うよりも作成していません。
その内容についてですが、
宜しければどのような操作を行いたいのか、
今後のUPの参考にしたいと思いますので、教えて頂けたら助かります。
（出来ればで宜しいですよ・・・(^^;）
> 有償シェアウェアとしても宜しいでしょうか？
ええ、ご自由にされてかまいません。
宜しいです。
> 条件等がありましたら御回答お願い致します。
条件等も特に何もありません。
万が一、機能拡張のために将来仕様変更をする事があるかも知れません。
その時はご理解をお願いします。
No.371Makino2008年1月29日 18:01
牧野様、はじめましてお世話になります。
Macadを使わせて頂いております。
変形図形機能はユーザにより自由に編集出来るので大変重宝しております。
2つ御質問がありまして御回答お願い致します。
掲示板をチェックしましたが既出時は御了承願います。
-1-
開発ソフトVBにてMacadを利用した自動作図プログラムを作成しているのですが
外部プログラムからMacadを起動する事は出来るのですが、
変形図形から変形図形ファイルを選択、貼り付けまで
外部プログラムから操作は可能でしょうか？
外部プログラムから参照出来る関数、プロシージャ等は公開しているのでしょうか？
-2-
上記の開発中のソフトですが、Macad導入が必須条件となるのですが
有償シェアウェアとしても宜しいでしょうか？
条件等がありましたら御回答お願い致します。
以上です。
御確認宜しくお願い致します。
No.370澤里2008年1月29日 15:34
牧野様、年末のバージョンアップ大変ありがとうございました。
また、ホームページのリニューアルお疲れ様です。
さて、Ｍａのサンプルにあります階段の断面の変形を少しいじって、
２点の指定で（２点目は左右どちらでも）、希望する蹴上げ寸法以下の
近似値と、その段数で階段長さを均等に分割するものを・・・と思い
作り始めたのですが。 分からないエラーメッセージが出てしまいます。
結果は、希望どうりの作図にはなるのですが・・・。
これが出来上がれば、木製階段と鉄骨階段の変形を作るつもりです。
また、お願いになりますが添削お願いできないでしょうか？
#--------------------------------------------------------
#階段 （下階より左右どちらかの上階の対角 ２点指示）
input"けあげ（mm）"%keag=180
#踏み面200 けあげ100で作成
%l_col=1
%l_lay=1
%gpread_x1=0
%gpread_x2=0
%gpread_y1=0
%gpread_y2=300
#２点の座標取得
gpoint_read2
#階段の長さと高さ
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%takasa=%gpread_y2-%gpread_y1
%nagasa=%gpread_x2-%gpread_x1
%sta_x=%gpread_x1
%end_x=%gpread_x2
%sta_y=%gpread_y1
%end_y=%gpread_y2
#蹴込み
if %end_x>%sta_x then
%kek=20
endif
if %end_x<%sta_x then
%kek=-20
endif
#段数
$bunkatu_atai:%takasa:%keag:0
%dansu=%result_a+1
#蹴上げ・踏面
%kea=%takasa/%dansu
%fumizura=%nagasa/(%dansu-1)
#ループ処理
loop %dansu-1 do
line:%f+%kek:%k :%f :%k+%kea:0:1:%l_col:%l_lay
line:%f :%k+%kea:%f+%fumizura+%kek:%k+%kea:0:1:%l_col:%l_lay
%k=%k+%kea
%f=%f+%fumizura
endloop
line:%f+%kek:%k:%f:%k+%kea:0:1:%l_col:%l_lay
No.361小森2008年1月18日 18:27
> 「気ままに解説」 さっそくの対応ありがとうございます。
ええ、私もどうしようかと思っていました。
> 出版されるんでしょうね・・・(^^); 楽しみです。
いやいや、それは無いでしょう。(^^;
> そして、バージョンアップ たいへんお疲れ様でした。
建具コマンドにはビックリで・・・即処理しました。
No.368Makino2008年1月26日 03:43
「気ままに解説」 さっそくの対応ありがとうございます。
項目が増え続けても安心です。きっと、そのうち解説本（ムックと言うんですか？）
出版されるんでしょうね・・・(^^); 楽しみです。
そして、バージョンアップ たいへんお疲れ様でした。
No.367小森2008年1月25日 19:04
せっかくですので、
以前作成された図形も、まとめて公開たいと思います。
> これからもページが増え続ける・・・
それはどうか分かりませんよ。(笑)
> クリックすると、その解説へ飛ぶようにできないでしょうか？
何とか作り変えました。
No.366Makino2008年1月23日 01:31
> 気ままに解説で紹介させて頂きました。
ど〜も。変形に関しては、皆様にお使いいただけるよう、あるいは
もっと実用的に見直している最中です。 ただ、さわればおかしく
なるものが多々ありまして・・・。牧野様の添削をお願いしなけれ
ばならない事態に陥ってしまいまして・・・また、よろしくお願い
いたします。
「きままに解説」の件ですが、これからもページが増え続ける
ことだろうと思います。 どこかに、目次を作っていただいて
クリックすると、その解説へ飛ぶようにできないでしょうか？
将来のためによろしく、お願いいたします。
No.365小森2008年1月22日 19:24
いつも、公開ありがとうございます。
気ままに解説で紹介させて頂きました。
No.364Makino2008年1月19日 17:48
牧野様、さっそくの添削ありがとうございました。
お蔭様で「階段３部作(?)」できました。
鉄骨階段の０段目に変な立ち上がりが作図されてしまい
ますが、ご愛嬌ということで・・・。
#------------------------------------------------------------------------木製階段
階段 （下階より左右どちらかの上階の対角 ２点指示）
input"けあげ（mm）"%keag=180
%l_col=3
%l_lay=3
%gpread_x1=0
%gpread_x2=500
%gpread_y1=0
%gpread_y2=500
#２点の座標取得
gpoint_read2
#階段の長さと高さ
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%takasa=%gpread_y2-%gpread_y1
%nagasa=%gpread_x2-%gpread_x1
%sta_x=%gpread_x1
%end_x=%gpread_x2
%sta_y=%gpread_y1
%end_y=%gpread_y2
#蹴込み
if %end_x>%sta_x then
%kek=15
endif
if %end_x<%sta_x then
%kek=-15
endif
#段数
$bunkatu_atai:%takasa:%keag:0
%dansu=%result_a+1
#蹴上げ・踏面
%kea=%takasa/%dansu
if %dansu<=1 then
%fumizura=1
endif
if %dansu>1 then
%fumizura=%nagasa/(%dansu-1)
endif
%k1=0
%f1=0
#ループ処理
loop %dansu-2 do
line:%f1+%kek:%k1 :%f1+%kek :%k1+%kea-30:0:%l_col:1:%l_lay
line:%f1+%kek:%k1+%kea-30:%f1 :%k1+%kea-30:0:%l_col:1:%l_lay
line:%f1 :%k1+%kea-30:%f1 :%k1+%kea :0:%l_col:1:%l_lay
line:%f1 :%k1+%kea :%f1+%fumizura+%kek:%k1+%kea :0:%l_col:1:%l_lay
%k1=%k1+%kea
%f1=%f1+%fumizura
endloop
line:%f1+%kek:%k1 :%f1+%kek :%k1+%kea-30:0:%l_col:1:%l_lay
line:%f1+%kek:%k1+%kea-30:%f1 :%k1+%kea-30:0:%l_col:1:%l_lay
line:%f1 :%k1+%kea-30:%f1 :%k1+%kea :0:%l_col:1:%l_lay
#--------------------------------------------------------------------------ＲＣ階段
階段 （下階より左右どちらかの上階の対角 ２点指示）
input"けあげ（mm）"%keag=180
%l_col=1
%l_lay=1
%gpread_x1=0
%gpread_x2=500
%gpread_y1=0
%gpread_y2=500
#２点の座標取得
gpoint_read2
#階段の長さと高さ
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%takasa=%gpread_y2-%gpread_y1
%nagasa=%gpread_x2-%gpread_x1
%sta_x=%gpread_x1
%end_x=%gpread_x2
%sta_y=%gpread_y1
%end_y=%gpread_y2
#蹴込み
if %end_x>%sta_x then
%kek=20
endif
if %end_x<%sta_x then
%kek=-20
endif
#段数
$bunkatu_atai:%takasa:%keag:0
%dansu=%result_a+1
#蹴上げ・踏面
%kea=%takasa/%dansu
if %dansu<=1 then
%fumizura=1
endif
if %dansu>1 then
%fumizura=%nagasa/(%dansu-1)
endif
%k1=0
%f1=0
#ループ処理
loop %dansu-2 do
line:%f1+%kek:%k1 :%f1 :%k1+%kea:0:%l_col:1:%l_lay
line:%f1 :%k1+%kea:%f1+%fumizura+%kek:%k1+%kea:0:%l_col:1:%l_lay
%k1=%k1+%kea
%f1=%f1+%fumizura
endloop
line:%f1+%kek:%k1:%f1:%k1+%kea:0:%l_col:1:%l_lay
#--------------------------------------------------------------------------鉄骨階段
階段 （下階より左右どちらかの上階の対角 ２点指示）
input"けあげ（mm）"%keag=180
%l_col=2
%l_lay=2
%gpread_x1=0
%gpread_x2=500
%gpread_y1=0
%gpread_y2=500
#２点の座標取得
gpoint_read2
#階段の長さと高さ
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%takasa=%gpread_y2-%gpread_y1
%nagasa=%gpread_x2-%gpread_x1
%sta_x=%gpread_x1
%end_x=%gpread_x2
%sta_y=%gpread_y1
%end_y=%gpread_y2
#蹴込み
if %end_x>%sta_x then
%kek=20
endif
if %end_x<%sta_x then
%kek=-20
endif
#段数
$bunkatu_atai:%takasa:%keag:0
%dansu=%result_a+1
#蹴上げ・踏面
%kea=%takasa/%dansu
if %dansu<=1 then
%fumizura=1
endif
if %dansu>1 then
%fumizura=%nagasa/(%dansu-1)
endif
%k1=0
%f1=0
#ループ処理
loop %dansu-2 do
line:%f1+%kek:%k1 :%f1+%kek :%k1+20 :0:%l_col:1:%l_lay
line:%f1 :%k1+%kea-20:%f1 :%k1+%kea:0:%l_col:1:%l_lay
line:%f1 :%k1+%kea :%f1+%fumizura+%kek:%k1+%kea:0:%l_col:1:%l_lay
%k1=%k1+%kea
%f1=%f1+%fumizura
endloop
line:%f1+%kek:%k1 :%f1+%kek :%k1+20 :0:%l_col:1:%l_lay
No.363小森2008年1月19日 04:11
こんばんは。
変形図形は少し変数名判断が雑になってまして・・・(^^;)
「%k」の変数名事態は問題ないのですが、
「%kea」の変数に「%k」が一致し%kの部分が変換されてしまったため、
エラーがでています。
ですから合致しないような変数名「%k1」とかえました。
「%f」も同様ですので「%f1」と変更しました。
（プログラムを修正しないといけないのですが・・・）
もう一つ
(%dansu-1)が初期値で０で計算してしまうので、
%nagasa/０＝∞のエラーがでています。
下記のように１以下の場合は、１になるように処理を追加しました。
if %dansu<=1 then
%fumizura=1
endif
if %dansu>1 then
%fumizura=%nagasa/(%dansu-1)
endif
これで無事動きました。
以下修正データーです。
階段 （下階より左右どちらかの上階の対角 ２点指示）
input"けあげ（mm）"%keag=180
%l_col=1
%l_lay=1
%gpread_x1=0
%gpread_x2=500
%gpread_y1=0
%gpread_y2=500
#２点の座標取得
gpoint_read2
#階段の長さと高さ
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%takasa=%gpread_y2-%gpread_y1
%nagasa=%gpread_x2-%gpread_x1
%sta_x=%gpread_x1
%end_x=%gpread_x2
%sta_y=%gpread_y1
%end_y=%gpread_y2
#蹴込み
if %end_x>%sta_x then
%kek=20
endif
if %end_x<%sta_x then
%kek=-20
endif
#段数
$bunkatu_atai:%takasa:%keag:0
%dansu=%result_a+1
#蹴上げ・踏面
%kea=%takasa/%dansu
if %dansu<=1 then
%fumizura=1
endif
if %dansu>1 then
%fumizura=%nagasa/(%dansu-1)
endif
%k1=0
%f1=0
#ループ処理
loop %dansu-2 do
line:%f1+%kek:%k1 :%f1 :%k1+%kea:0:1:%l_col:%l_lay
line:%f1 :%k1+%kea:%f1+%fumizura+%kek:%k1+%kea:0:1:%l_col:%l_lay
%k1=%k1+%kea
%f1=%f1+%fumizura
endloop
line:%f1+%kek:%k1:%f1:%k1+%kea:0:1:%l_col:%l_lay
No.362Makino2008年1月18日 19:23
Macad Ver3.00 祝公開 プログラム電卓の威力は 凄い！。
今年も 宜しく お願い致します。
No.353●矢吹 丈(KCF)●2008年1月1日 06:14
小森さん。
おめでとうございます。
今年もよろしくお願いします。
No.359Makino2008年1月7日 01:33
牧野さま、みなさま
あけまして おめでとうございます。
本年もよろしくお願いいたします。
No.358小森2008年1月5日 12:51
矢吹さん、N.Misumiさん、kazuさん、藤嶋さん、皆さん。
明けましておめでとうございます。
昨年も超マイナー機能ばかりで、、、(^^;)
今年も超マイナー機能の何から取り掛かろうかな〜なんて考えています。
皆さん、今年も宜しくお願い致します。
No.357Makino2008年1月2日 06:33
Makino さん, みなさん
あけましておめでとうございます。
さらなるMaCADの発展をお願いいたします。
今年も昨年同様よろしくお願いいたします。
No.356N.Misumi2008年1月1日 10:27
Makino さん、あけましておめでとうございます。(*^^*)
素晴らしい機能満載のアップ、お疲れさまでした。
今年も ( ^^)／C□☆□D＼(^^ ) したいですね。
本年も宜しくお願い致します
No.355kazu2008年1月1日 10:24
昨年は、精力的なMacad Verup お疲れ様でした。
目覚しい発展を期待しております。
今年もお付き合い宜しくお願い致します。
No.354藤嶋2008年1月1日 07:19
合計739件 (投稿176, 返信563)
