ＭＥ１０マクロのページです
（入出力）

2000.12.03 更新 

---

リスト

---

＃macro.lzh＃（マクロファィルです。）

　　　１．部分ストア 2000.12.03
　　　２．パー ツの自動ファイル名発生保存 2002.06.18 2000.12.03

---

{ 部分ストア
  1998.11.01-1998.11.03}

DEFINE Ma_store_parts
  PARAMETER Pa_kubetu1
{           保存方法      0 新規
                          1 更新
}
  PARAMETER Parts_name
  PARAMETER File_name

  IF (Gl_file_type = 0)                           {ＭＩ保存}
    IF (Pa_kubetu1 = 0)                           {新規保存}
      STORE MI Parts_name File_name
    ELSE
      STORE MI Parts_name DEL_OLD File_name
    END_I
F 

  ELSE
    IF (Pa_kubetu1 = 0)
      STORE Parts_name File_name
    ELSE
      STORE Parts_name DEL_OLD File_name
    END_IF
 

  END_IF

END_DEFINE

---

{ パー ツの自動ファイル名発生保存
  1999.01.26-2002.06.18
}

DEFINE Ma_store_data_autoname
{      現在のカレントディレクトリーに保存します。}
  LOCAL Parts_id
  LOCAL Parts_name
  LOCAL Storefile

  PRT_EDITOR                                      {パーツエディターを開く}

  LOOP
    READ STRING "** 保存する 'パーツ名' 又は 'ＩＤ' をクリックしてください。 **" Parts_id
    EDIT_PART Parts_id                            {カレント・パーツに移動}

    INQ_ENV 7
    LET Storefile ('~' + (INQ 302)+ '#' + (INQ 301)) {ファイル名の発生}

    Ma_store_parts 1 Parts_id Storefile           {保存}
  END_LOOP
 
END_DEFINE

---

気をつけて作りました、使用してのトラブルに責任は持てませんが、
自由にお使い下さい。（伏 見　表）

---