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

■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

記事引用 [メール受信/OFF] 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[3]: また・・修正です。 /makino 返信無し
 
上記関連ツリー

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

All 上記ツリーを一括表示
 
上記の記事へ返信