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

■178 / 2階層)  Macadの凄いこと!2.53にUP
□投稿者/ Makino 1回-(2006/04/18(Tue) 16:38:38)
https://www.geocities.jp/se_m646/index.html

    記事内容:[|] 

    独ターK様 
    機能のご紹介に大切な時間を使って頂いて、有り難うございます。m(_ _)m

    矢吹様 おひさしぶりです。

    私も簡単な菱形作成(基点選択付き)変形図形を一つ作成してみました。
    以下をテキストファイルで適当なファイル名で 拡張子*.pz1で保存して変形図形から開
    いてください。
    (不適切であれば削除お願い致します。m(_ _)m)

    以下


    #菱形作成

    input"幅 B入力(mm)"%data1=1000
    input"高さH入力(mm)"%data2=1000
    input"基点位置 1-中心 2-下 3-上"%kiten1=1

    #基点中心
    if %kiten1=1 then
    %haba1=-%data1/2
    %takasa1=-%data2/2
    %haba2=%data1/2
    %takasa2=%data2/2
    %takasa3=0
    line:%haba1:%takasa3:0:%takasa2:0:0:0:-1
    line:0:%takasa2:%haba2:%takasa3:0:0:0:-1
    line:%haba2:%takasa3:0:%takasa1:0:0:0:-1
    line:0:%takasa1:%haba1:%takasa3:0:0:0:-1
    endif

    #基点下
    if %kiten1=2 then
    %haba1=-%data1/2
    %takasa1=0
    %haba2=%data1/2
    %takasa2=%data2
    %takasa3=%data2/2
    line:%haba1:%takasa3:0:%takasa2:0:0:0:-1
    line:0:%takasa2:%haba2:%takasa3:0:0:0:-1
    line:%haba2:%takasa3:0:%takasa1:0:0:0:-1
    line:0:%takasa1:%haba1:%takasa3:0:0:0:-1
    endif


    #基点上
    if %kiten1=3 then
    %haba1=-%data1/2
    %takasa1=-%data2
    %haba2=%data1/2
    %takasa2=0
    %takasa3=-%data2/2
    line:%haba1:%takasa3:0:%takasa2:0:0:0:-1
    line:0:%takasa2:%haba2:%takasa3:0:0:0:-1
    line:%haba2:%takasa3:0:%takasa1:0:0:0:-1
    line:0:%takasa1:%haba1:%takasa3:0:0:0:-1
    endif

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

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[1]: Macadの凄いこと!2.53にUP /●矢吹 丈(KCF)● →Re[3]: Macadの凄いこと!2.53にUP /●矢吹 丈(KCF)●
→JW_CADのコピーCADとは言わせない! /独ターK
 
上記関連ツリー

Nomal Macadの凄いこと!2.53にUP / 独ターK (06/04/17(Mon) 20:06) #176
Nomal Re[1]: Macadの凄いこと!2.53にUP / ●矢吹 丈(KCF)● (06/04/17(Mon) 23:04) #177
  └Nomal Macadの凄いこと!2.53にUP / Makino (06/04/18(Tue) 16:38) #178 ←Now
    ├Nomal Re[3]: Macadの凄いこと!2.53にUP / ●矢吹 丈(KCF)● (06/04/18(Tue) 21:21) #179
    │├Nomal Re[4]: Macadの凄いこと!2.53にUP / 独ターK (06/04/18(Tue) 21:52) #180
    │└Nomal Re[4]: Macadの凄いこと!2.53にUP / Makino (06/04/18(Tue) 22:47) #181
    └Nomal JW_CADのコピーCADとは言わせない! / 独ターK (06/04/19(Wed) 04:56) #182
      └Nomal Re[4]: JW_CADのコピーCADとは言わせ.. / Makino (06/04/20(Thu) 11:47) #185
        └Nomal Re[5]: JW_CADのコピーCADとは言わせ.. / 独ターK (06/04/20(Thu) 14:04) #186
          └Nomal Re[6]: JW_CADのコピーCADとは言わせ.. / Makino (06/04/20(Thu) 14:30) #188
            └Nomal Re[7]: JW_CADのコピーCADとは言わせ.. / Makino (06/04/21(Fri) 13:47) #192
              └Nomal Re[8]: JW_CADのコピーCADとは言わせ.. / 独ターK (06/04/23(Sun) 01:22) #195 dokuta-k.gif/3KB
                └Nomal Re[9]: JW_CADのコピーCADとは言わせ.. / Makino (06/04/23(Sun) 02:17) #196
                  └Nomal Re[10]: JW_CADのコピーCADとは言わせ.. / 独ターK (06/04/24(Mon) 02:31) #197
                    └Nomal アナログ時計作ってみました。 / Makino (06/04/25(Tue) 00:04) #200

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