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

■248 / 3階層) 　線面取り（Ｗ線処理）
□投稿者/ makino 9回-(2006/08/01(Tue) 20:55:14)
https://www.geocities.jp/se_m646/

    記事内容:[|]　

    ２線を線面取しＸ・Ｙ辺寸法を別々に指定出来ます。
    内側線を指示してください。

    以下データー


    #線面取り（Ｗ線用面取）　２線指示（内側線を指示）

    input"指示線１の辺面取り寸法(mm)"%men_sun1=100
    input"指示線２の辺面取り寸法(mm)"%men_sun2=100
    input"壁厚(mm)　"%kabeatu1=120

    gsen_read2
    #元レイヤON
    $motolayer_set
    #指示線のグループに移動
    $group_set:%sread_glp1
    $urasen_set:0:11

    %kaku1=%sread_kakudo2
    $rotate:0:0:0:%men_sun2:%kaku1
    %zax1=%result_x1
    %zay1=%result_y1

    line:-%men_sun1:0:%zax1:%zay1:0:%sread_col1:%sread_typ1:%sread_lay1
    #外側へx複線1
    $fukusen_zahyou:-%men_sun1:0:%zax1:%zay1:-%kabeatu1
    %szxa1=%result_x1
    %szya1=%result_y1
    %szxa2=%result_x2
    %szya2=%result_y2
    #外側へx複線2
    $fukusen_zahyou:-%men_sun1:0:0:0:-%kabeatu1
    %szxb1=%result_x1
    %szyb1=%result_y1
    %szxb2=%result_x2
    %szyb2=%result_y2
    #外側へx複線3
    $fukusen_zahyou:0:0:%zax1:%zay1:-%kabeatu1
    %szxc1=%result_x1
    %szyc1=%result_y1
    %szxc2=%result_x2
    %szyc2=%result_y2
    #外側x線分と面部分の交点
    $sen_koten:%szxa1:%szya1:%szxa2:%szya2:%szxb1:%szyb1:%szxb2:%szyb2
    %kotx1=%result_x1
    %koty1=%result_y1
    #外側ｙ線分と面部分の交点
    $sen_koten:%szxa1:%szya1:%szxa2:%szya2:%szxc1:%szyc1:%szxc2:%szyc2
    %kotx2=%result_x1
    %koty2=%result_y1
    #線作図
    line:%kotx1:%koty1:%kotx2:%koty2:0:%sread_col1:%sread_typ1:%sread_lay1

    #ダミー朱線
    line:0:%men_sun2:0:200+%men_sun2:0:10:9:-1
    line:-200-%men_sun1:0:-%men_sun1:0:0:10:9:-1

    #削除範囲補助線(PenNO2と3指定で線外PenNO2交点位置までのびる)
    #内側
    line:-%men_sun1:-2:-%men_sun1:2:0:2:9:-1
    line:-%men_sun1+3:-2:-%men_sun1+3:2:0:3:9:-1
    line:-2:%men_sun2:2:%men_sun2:%kaku1:2:9:-1
    line:-2:%men_sun2-3:2:%men_sun2-3:%kaku1:3:9:-1
    #外側
    line:%kotx1:-2+%koty1:%kotx1:2+%koty1:0:2:9:-1
    line:%kotx1+3:-2+%koty1:%kotx1+3:2+%koty1:0:3:9:-1
    line:-2+%kotx2:%koty2:2+%kotx2:%koty2:0:2:9:-1
    line:-2+%kotx2:%koty2-3:2+%kotx2:%koty2-3:0:3:9:-1


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

前の記事(元になった記事) 次の記事(この記事の返信)
←W線用R面取り（辺寸法） /makino →Re[4]: 頂きます。m(_ _)m /めぐめぐ
　
上記関連ツリー

Nomal Ｍａｃａｄ が更新されました。 / めぐめぐ (06/07/30(Sun) 20:18) #243
└Nomal R面取り（半径指定） / makino (06/07/30(Sun) 23:23) #244
  ├Nomal Re[2]: Macad ver2.62b を7/31AM2：00以�.. / めぐめぐ (06/07/31(Mon) 08:48) #245
  └Nomal W線用R面取り（辺寸法） / makino (06/07/31(Mon) 22:55) #247
    └Nomal 線面取り（Ｗ線処理） / makino (06/08/01(Tue) 20:55) #248 ←Now
      └Nomal Re[4]: 頂きます。m(_ _)m / めぐめぐ (06/08/02(Wed) 19:45) #249
        └Nomal Ｗ線用Ｒ面取り(半径指定) / makino (06/08/02(Wed) 20:31) #250

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