ＭＥ１０マクロのページです
（下書き線）

2000.01.02 更新 

---

リスト

---

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

    　１．下書き線・中心点と角度・テキスト
　　　２．下書き線・中心点と角度・Ｒ
　　　３．下書き線・十字線 2000.10.15
　　　４．下書き線・指定点の十字線 2000.10.15
　　　５．下 書き線・交点の十字線 2000.10.15
　　　　　（交わって無くてもＯＫ）

---

{下書き線・中心点と角度・テキスト
  1999.03.24 - 1999.06.06}

DEFINE Ma_cline_center_angle_text
  LOCAL Point_temp
  LOCAL Line_pnt1

  Ma_text_designate                               {文字・要素の指定}

  LET Line_pnt1 (INQ 101)                         {原点位置の取得}
  C_LINE Assistance PT_ANG Line_pnt1
END_DEFINE

---

{ 下書き線・中心点と角度・Ｒ
  1999.01.29}

DEFINE Ma_cline_center_angle_r
  LOCAL Point_temp
  LOCAL Line_pnt1

  LOOP
    READ PNT '** 円、円弧又はフィレットを指示して下さい。 **' Point_temp
    INQ_ELEM Point_temp                           {要素情報の取得}
  EXIT_IF (((INQ 403) = CIRCLE) OR ((INQ 403) = ARC) OR ((INQ 403) = FILLET) OR ((INQ 403) = C_CIRCLE))
  END_LOOP

  LET Line_pnt1 (INQ 101)                         {中心点位置の取得}
  C_LINE Assistance PT_ANG Line_pnt1
END_DEFINE

---

{ 下書き線・十字線
  1999.11.12
  2000.06.26  描画を独立}

DEFINE Ma_cline_cross_draw
  PARAMETER Point

  C_LINE Assistance HORIZONTAL Point              {水平仮線の描画}
  C_LINE Assistance VERTICAL Point                {鉛直仮線の描画}

END_DEFINE

---

{ 下書き線・指定点の十字線
  1999.11.12}

DEFINE Ma_cline_cross
  LOCAL Point

  LOOP
    READ PNT '** 十字線の交点を指示して下さい。終了は [ESC] キーを押して下さい。 **' Point
    Ma_cline_cross_draw Point                     {十字線の描画}
  END_LOOP

END_DEFINE

---

{ 下書き線・交点の十字線
  2000.06.26
}
DEFINE Ma_cline_intersection

  LOOP
    Ma_element_intersection_point                 {交点を求める}
    IF ((TYPE Gl_fruit) = PNT)
      Ma_cline_cross_draw Gl_fruit                {十字線の描画}
    END_IF

  END_LOOP

END_DEFINE

---

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

---