macad専用掲示板 [One Tree All Message]

ツリー一括表示
MaCAD 2.62にアップです。 /N.Misumi (06/07/24(Mon) 09:44) #234
`└` 折返階段UP・DN記号を /makino (06/07/26(Wed) 15:05) #236
`└` 少し修正してみました。 /makino (06/07/27(Thu) 16:01) #237
`└` Re[3]: また・・修正です。 /makino (06/07/28(Fri) 13:25) #238
`└` 次は横向き用です /makino (06/07/29(Sat) 11:55) #239

親記事　/ ▼[ 236 ]

■234 / 親階層)

　MaCAD 2.62にアップです。

□投稿者/ N.Misumi 1回-(2006/07/24(Mon) 09:44:46)
https://www.aa.alpha-net.ne.jp/nmisumi

記事内容:[|]　

皆さんおはようございます。

変形図形機能を拡張し，設備記号も作成可能になりました。
変形図形サンプルを多数公開しました。

http://www.geocities.jp/se_m646/

前回のバ－ジョンからの変更点
http://www.geocities.jp/se_m646/page003.html

[ □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 234 ] / ▼[ 237 ]

■236 / 1階層)

　折返階段UP・DN記号を

□投稿者/ makino 1回-(2006/07/26(Wed) 15:05:34)
https://www.geocities.jp/se_m646/

記事内容:[|]　

N.Misumiさま、皆さんこんにちは。

新バージョンでの変形データーを作って見ました。
とりあえず縦用です。
開始点がＵＰ側になり、方向（角度）で向きが変わります。

以下データー

#折返階段UP・DN記号（縦用）　対角指示(角度で向き変更)

gpoint_read2
#図形をW2000XH2000で作成
%gpread_x1=0
%gpread_x2=2000
%gpread_y1=0
%gpread_y2=2000

%haba=abs(%gpread_x2-%gpread_x1)-2000
%takasa=abs(%gpread_y2-%gpread_y1)-2000

$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%kakudo1=%result_a

line:500+%haba*0.25:1500+%takasa*0.75:500+%haba*0.25:0:0:0:0:-1
line:500+%haba*0.25:1500+%takasa*0.75:1500+%haba*0.75:1500+%takasa*0.75:0:0:0:-1
line:1500+%haba*0.75:1500+%takasa*0.75:1500+%haba*0.75:0:0:0:0:-1
arc:1500+%haba*0.75:0:20:1:180:180:0:0:0:-1
arc:500+%haba*0.25:0:20:1:180:180:0:0:0:-1
moji:500+%haba*0.25:-250:0:2:6:0:"UP":-1
moji:1500+%haba*0.75:-250:0:2:6:0:"DN":-1

#矢印
line:1500+%haba*0.75:507.9912:1557.4194+%haba*0.75:722.2837:0:0:0:-1
line:1500+%haba*0.75:722.2837:1557.4194+%haba*0.75:722.2837:0:0:0:-1
line:1500+%haba*0.75:507.9912:1442.5805+%haba*0.75:293.6987:0:0:0:-1
line:1500+%haba*0.75:293.6987:1442.5805+%haba*0.75:293.6987:0:0:0:-1
#破断
line:1644.8888+%haba*0.75:546.814:2081.8317+%haba*0.75:663.8925:0:0:0:-1
line:1355.1111+%haba*0.75:469.1683:1425.8218+%haba*0.75:591.6428:0:0:0:-1
line:1425.8218+%haba*0.75:591.6428:1574.1781+%haba*0.75:424.3396:0:0:0:-1
line:1574.1781+%haba*0.75:424.3396:1644.8888+%haba*0.75:546.814:0:0:0:-1
line:1355.1111+%haba*0.75:469.1683:909.2517+%haba*0.75:349.7007:0:0:0:-1

%yoko_bai1=1
%tate_bai1=1

if %kakudo1>90 then
%yoko_bai1=-1
%tate_bai1=1
endif
if %kakudo1>180 then
%yoko_bai1=-1
%tate_bai1=-1
endif
if %kakudo1>270 then
%yoko_bai1=1
%tate_bai1=-1
endif

$readkakudo_set:0
$bairitu_set:%yoko_bai1:%tate_bai1

[ 親 234 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 236 ] / ▼[ 238 ]

■237 / 2階層)

　少し修正してみました。

□投稿者/ makino 2回-(2006/07/27(Thu) 16:01:59)
https://www.geocities.jp/se_m646/

記事内容:[|]　

皆さんこんにちは。
少し修正してみました。
ＵＰ・ＤＮ文字は０度のままで、中間壁厚を考慮して作図します。

以下データー

#折返階段UP・DN記号壁厚考慮（縦用）　対角指示(角度で向き変更)

input"中間壁厚(mm)　"%data1=200
input"基点　1-中下その他-UP側　"%data2=0

gpoint_read2
#図形をW2000XH2000で作成
%gpread_x1=0
%gpread_x2=2000
%gpread_y1=0
%gpread_y2=2000
%kabesa=%data1*0.25

%haba1=(abs(%gpread_x2-%gpread_x1)-2000)*0.25-%kabesa
%haba2=(abs(%gpread_x2-%gpread_x1)-2000)*0.75+%kabesa
%haba3=abs(%gpread_x2-%gpread_x1)
%takasa=(abs(%gpread_y2-%gpread_y1)-2000)*0.75

$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%kakudo1=%result_a

line:500+%haba1:1500+%takasa:500+%haba1:0:0:0:0:-1
line:500+%haba1:1500+%takasa:1500+%haba2:1500+%takasa:0:0:0:-1
line:1500+%haba2:1500+%takasa:1500+%haba2:0:0:0:0:-1
arc:1500+%haba2:0:20:1:180:180:0:0:0:-1
arc:500+%haba1:0:20:1:180:180:0:0:0:-1

#矢印
line:1500+%haba2:507.9912:1557.4194+%haba2:722.2837:0:0:0:-1
line:1500+%haba2:722.2837:1557.4194+%haba2:722.2837:0:0:0:-1
line:1500+%haba2:507.9912:1442.5805+%haba2:293.6987:0:0:0:-1
line:1500+%haba2:293.6987:1442.5805+%haba2:293.6987:0:0:0:-1
#破断
line:1644.8888+%haba2:546.814:2081.8317+%haba2:663.8925:0:0:0:-1
line:1355.1111+%haba2:469.1683:1425.8218+%haba2:591.6428:0:0:0:-1
line:1425.8218+%haba2:591.6428:1574.1781+%haba2:424.3396:0:0:0:-1
line:1574.1781+%haba2:424.3396:1644.8888+%haba2:546.814:0:0:0:-1
line:1355.1111+%haba2:469.1683:909.2517+%haba2:349.7007:0:0:0:-1

%yoko_bai1=1
%tate_bai1=1
%mkaku1=0

if %kakudo1>90 then
%yoko_bai1=-1
%tate_bai1=1
%mkaku1=0
endif
if %kakudo1>180 then
%yoko_bai1=-1
%tate_bai1=-1
%mkaku1=180
endif
if %kakudo1>270 then
%yoko_bai1=1
%tate_bai1=-1
%mkaku1=180
endif

moji:500+%haba1:-250:%mkaku1:2:6:0:"UP":-1
moji:1500+%haba2:-250:%mkaku1:2:6:0:"DN":-1

$bairitu_set:%yoko_bai1:%tate_bai1

if %data2=1 then
$offset:%haba3*0.5:0
endif

[ 親 234 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 237 ] / ▼[ 239 ]

■238 / 3階層)

　Re[3]: また・・修正です。

□投稿者/ makino 3回-(2006/07/28(Fri) 13:25:16)
https://www.geocities.jp/se_m646/

記事内容:[|]　

踊り場の幅を階段幅と同じとして高さ寸法を決定するように修正しました。

以下データー

#折返階段UP・DN記号壁厚考慮（縦用）　対角指示(角度で向き変更)

input"中心壁厚(mm)　"%data1=200
input"基点　1-中下その他-UP側　"%data2=0

gpoint_read2
#図形をW2000XH2000で作成
%gpread_x1=0
%gpread_x2=2000
%gpread_y1=0
%gpread_y2=2000
%kabesa=%data1*0.25

%haba1=(abs(%gpread_x2-%gpread_x1)-2000)*0.25-%kabesa
%haba2=(abs(%gpread_x2-%gpread_x1)-2000)*0.75+%kabesa
%haba3=abs(%gpread_x2-%gpread_x1)
%takasa=(abs(%gpread_y2-%gpread_y1)-1500)-(%haba3-%data1)*0.25
*0.25

$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%kakudo1=%result_a

line:500+%haba1:1500+%takasa:500+%haba1:0:0:0:0:-1
line:500+%haba1:1500+%takasa:1500+%haba2:1500+%takasa:0:0:0:-1
line:1500+%haba2:1500+%takasa:1500+%haba2:0:0:0:0:-1
arc:1500+%haba2:0:20:1:180:180:0:0:0:-1
arc:500+%haba1:0:20:1:180:180:0:0:0:-1

#矢印
line:1500+%haba2:507.9912:1557.4194+%haba2:722.2837:0:0:0:-1
line:1500+%haba2:722.2837:1557.4194+%haba2:722.2837:0:0:0:-1
line:1500+%haba2:507.9912:1442.5805+%haba2:293.6987:0:0:0:-1
line:1500+%haba2:293.6987:1442.5805+%haba2:293.6987:0:0:0:-1
#破断
line:1644.8888+%haba2:546.814:2081.8317+%haba2:663.8925:0:0:0:-1
line:1355.1111+%haba2:469.1683:1425.8218+%haba2:591.6428:0:0:0:-1
line:1425.8218+%haba2:591.6428:1574.1781+%haba2:424.3396:0:0:0:-1
line:1574.1781+%haba2:424.3396:1644.8888+%haba2:546.814:0:0:0:-1
line:1355.1111+%haba2:469.1683:909.2517+%haba2:349.7007:0:0:0:-1

%yoko_bai1=1
%tate_bai1=1
%mkaku1=0

if %kakudo1>90 then
%yoko_bai1=-1
%tate_bai1=1
%mkaku1=0
endif
if %kakudo1>180 then
%yoko_bai1=-1
%tate_bai1=-1
%mkaku1=180
endif
if %kakudo1>270 then
%yoko_bai1=1
%tate_bai1=-1
%mkaku1=180
endif

moji:500+%haba1:-250:%mkaku1:2:6:0:"UP":-1
moji:1500+%haba2:-250:%mkaku1:2:6:0:"DN":-1

$bairitu_set:%yoko_bai1:%tate_bai1

if %data2=1 then
$offset:%haba3*0.5:0
endif

[ 親 234 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 238 ] / 返信無し

■239 / 4階層)

　次は横向き用です

□投稿者/ makino 4回-(2006/07/29(Sat) 11:55:09)
https://www.geocities.jp/se_m646/

記事内容:[|]　

皆さん、こんにちは

横向き用変形データーです。

以下データー

#折返階段UP・DN記号壁厚考慮（横向き用）　対角指示(角度で向き変更)

input"中心壁厚(mm)　"%data1=200
input"基点　1-中下その他-UP側　"%data2=0

gpoint_read2
#図形をW2000XH2000で作成
%gpread_x1=0
%gpread_x2=2000
%gpread_y1=0
%gpread_y2=2000
%kabesa=%data1*0.25

%haba1=(abs(%gpread_y2-%gpread_y1)-2000)*0.25-%kabesa
%haba2=(abs(%gpread_y2-%gpread_y1)-2000)*0.75+%kabesa
%haba3=abs(%gpread_y2-%gpread_y1)
%takasa=(abs(%gpread_x2-%gpread_x1)-1500)-(%haba3-%data1)*0.25

$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%kakudo1=%result_a

line:500+%haba1:1500+%takasa:500+%haba1:0:0:0:0:-1
line:500+%haba1:1500+%takasa:1500+%haba2:1500+%takasa:0:0:0:-1
line:1500+%haba2:1500+%takasa:1500+%haba2:0:0:0:0:-1
arc:1500+%haba2:0:20:1:180:180:0:0:0:-1
arc:500+%haba1:0:20:1:180:180:0:0:0:-1

#矢印
line:1500+%haba2:507.9912:1557.4194+%haba2:722.2837:0:0:0:-1
line:1500+%haba2:722.2837:1557.4194+%haba2:722.2837:0:0:0:-1
line:1500+%haba2:507.9912:1442.5805+%haba2:293.6987:0:0:0:-1
line:1500+%haba2:293.6987:1442.5805+%haba2:293.6987:0:0:0:-1
#破断
line:1644.8888+%haba2:546.814:2081.8317+%haba2:663.8925:0:0:0:-1
line:1355.1111+%haba2:469.1683:1425.8218+%haba2:591.6428:0:0:0:-1
line:1425.8218+%haba2:591.6428:1574.1781+%haba2:424.3396:0:0:0:-1
line:1574.1781+%haba2:424.3396:1644.8888+%haba2:546.814:0:0:0:-1
line:1355.1111+%haba2:469.1683:909.2517+%haba2:349.7007:0:0:0:-1

%yoko_bai1=-1
%tate_bai1=1
%kakudo2=-90
%mkakudo1=-90

if %kakudo1>90 then
%yoko_bai1=-1
%tate_bai1=-1
endif
if %kakudo1>180 then
%yoko_bai1=1
%tate_bai1=-1
%mkakudo1=90
endif
if %kakudo1>270 then
%yoko_bai1=-1
%tate_bai1=-1
%kakudo2=90
%mkakudo1=90
endif

moji:500+%haba1:-250:%mkakudo1:2:6:0:"UP":-1
moji:1500+%haba2:-250:%mkakudo1:2:6:0:"DN":-1

$bairitu_set:%yoko_bai1:%tate_bai1

if %data2=1 then
$offset:%haba3*0.5:0
endif

$readkakudo_set:%kakudo2

[ 親 234 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

HOME HELP 新着記事ツリー表示発言ランクファイル一覧検索過去ログ

- Child Tree -