ME10-Makros - E.V.A. Robert Hoffmann, Entwicklung und Vertrieb von Anwendersoftware

EVA Muster01

{###########################################################################}
{### Datei eva_muster01.mac                                              ###}
{### zeichnet ein Muster von Punkt 1 zu Punkt 2                          ###}
{### Erstelldatum: 24.07.2013                                            ###}
{### (c) 2013 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros: eva_drehen                                    ###}
{###########################################################################}

DEFINE eva_drehen
  PARAMETER Mittelpunkt
  PARAMETER Winkel
  IF (SGN Winkel < 0)
    LET Winkel (360 + Winkel)
  END_IF 
  MODIFY ALL DEL_OLD ROTATE CENTER Mittelpunkt Winkel END
END_DEFINE



DEFINE eva_muster01
  LOCAL P1
  LOCAL P2
  LOCAL P1X
  LOCAL P2X
  LOCAL P1Y
  LOCAL P2Y
  LOCAL Mstab
  LOCAL Faktor
  LOCAL AbstandV
  LOCAL AbstandH
  LOCAL Dummy
  LOCAL DummyX
  LOCAL DummyY
  LOCAL Winkel
  LOCAL Laengeges
  LOCAL P1H
  LOCAL EPX
  LOCAL EPY
  LOCAL Name

  LET AbstandV 5
  LET AbstandH 20

  READ PNT "1. Punkt antippen" P1
  LET P1X (X_OF P1)    LET P1Y (Y_OF P1)
  LET EPX P1X LET EPY P1Y
  LET P1H (PNT_XY P1X P1Y)

  REPEAT
    READ PNT "2. Punkt antippen" RUBBER_LINE P1 P2
    LET P2X (X_OF P2)      LET P2Y (Y_OF P2)
    LET Laengeges (ABS(LEN (P2-P1)))
  UNTIL (Laengeges>(2*AbstandH))

  LET Winkel (ANG(P2 - P1))
  LET Laengeges (ABS(LEN (P2-P1)))

  LET NAME ('_Linie')
  INIT_SUBPART Name
    LINE (PNT_XY P1X P1Y) (PNT_XY (P1X+Laengeges) P1Y) END

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) P1Y) (PNT_XY (P1X+DummyX) (P1Y+Abstandv)) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    LET DummyX (AbstandH/2)
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) P1Y) (PNT_XY (P1X+DummyX) (P1Y-Abstandv)) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    eva_drehen P1H Winkel
  END_PART

END_DEFINE

EVA Muster02

{###########################################################################}
{### Datei eva_muster02.mac                                              ###}
{### zeichnet ein Muster von Punkt 1 zu Punkt 2                          ###}
{### Erstelldatum: 24.07.2013                                            ###}
{### (c) 2013 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros: eva_drehen                                    ###}
{###########################################################################}

DEFINE eva_drehen
  PARAMETER Mittelpunkt
  PARAMETER Winkel
  IF (SGN Winkel < 0)
    LET Winkel (360 + Winkel)
  END_IF 
  MODIFY ALL DEL_OLD ROTATE CENTER Mittelpunkt Winkel END
END_DEFINE



DEFINE eva_muster02
  LOCAL P1
  LOCAL P2
  LOCAL P1X
  LOCAL P2X
  LOCAL P1Y
  LOCAL P2Y
  LOCAL Mstab
  LOCAL Faktor
  LOCAL AbstandV
  LOCAL AbstandH
  LOCAL Dummy
  LOCAL DummyX
  LOCAL DummyY
  LOCAL Winkel
  LOCAL Laengeges
  LOCAL P1H
  LOCAL EPX
  LOCAL EPY
  LOCAL Name

  LET AbstandV 5
  LET AbstandH 20

  READ PNT "1. Punkt antippen" P1
  LET P1X (X_OF P1)    LET P1Y (Y_OF P1)
  LET EPX P1X LET EPY P1Y
  LET P1H (PNT_XY P1X P1Y)

  REPEAT
    READ PNT "2. Punkt antippen" RUBBER_LINE P1 P2
    LET P2X (X_OF P2)      LET P2Y (Y_OF P2)
    LET Laengeges (ABS(LEN (P2-P1)))
  UNTIL (Laengeges>(2*AbstandH))

  LET Winkel (ANG(P2 - P1))
  LET Laengeges (ABS(LEN (P2-P1)))

  LET NAME ('_Linie')
  INIT_SUBPART Name
    LINE (PNT_XY P1X P1Y) (PNT_XY (P1X+Laengeges) P1Y) END

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) (P1Y-AbstandV)) (PNT_XY (P1X+DummyX) (P1Y+Abstandv)) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    eva_drehen P1H Winkel
  END_PART

END_DEFINE

EVA Muster03

{###########################################################################}
{### Datei eva_muster03.mac                                              ###}
{### zeichnet ein Muster von Punkt 1 zu Punkt 2                          ###}
{### Erstelldatum: 24.07.2013                                            ###}
{### (c) 2013 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros: eva_drehen                                    ###}
{###########################################################################}

DEFINE eva_drehen
  PARAMETER Mittelpunkt
  PARAMETER Winkel
  IF (SGN Winkel < 0)
    LET Winkel (360 + Winkel)
  END_IF 
  MODIFY ALL DEL_OLD ROTATE CENTER Mittelpunkt Winkel END
END_DEFINE



DEFINE eva_muster03
  LOCAL P1
  LOCAL P2
  LOCAL P1X
  LOCAL P2X
  LOCAL P1Y
  LOCAL P2Y
  LOCAL Mstab
  LOCAL Faktor
  LOCAL AbstandV
  LOCAL AbstandH
  LOCAL Dummy
  LOCAL DummyX
  LOCAL DummyY
  LOCAL Winkel
  LOCAL Laengeges
  LOCAL P1H
  LOCAL EPX
  LOCAL EPY
  LOCAL Name

  LET AbstandV 5
  LET AbstandH 20

  READ PNT "1. Punkt antippen" P1
  LET P1X (X_OF P1)    LET P1Y (Y_OF P1)
  LET EPX P1X LET EPY P1Y
  LET P1H (PNT_XY P1X P1Y)

  REPEAT
    READ PNT "2. Punkt antippen" RUBBER_LINE P1 P2
    LET P2X (X_OF P2)      LET P2Y (Y_OF P2)
    LET Laengeges (ABS(LEN (P2-P1)))
  UNTIL (Laengeges>(2*AbstandH))

  LET Winkel (ANG(P2 - P1))
  LET Laengeges (ABS(LEN (P2-P1)))

  LET NAME ('_Linie')
  INIT_SUBPART Name
    LINE (PNT_XY P1X P1Y) (PNT_XY (P1X+Laengeges) P1Y) END

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) (P1Y-AbstandV)) (PNT_XY (P1X+DummyX) (P1Y+Abstandv)) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    LET DummyX (AbstandH/2)
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      CIRCLE CENTER (PNT_XY (P1X+DummyX) P1Y) (AbstandV/2) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    eva_drehen P1H Winkel
  END_PART

END_DEFINE

EVA Muster04

{###########################################################################}
{### Datei eva_muster04.mac                                              ###}
{### zeichnet ein Muster von Punkt 1 zu Punkt 2                          ###}
{### Erstelldatum: 24.07.2013                                            ###}
{### (c) 2013 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros: eva_drehen                                    ###}
{###########################################################################}

DEFINE eva_drehen
  PARAMETER Mittelpunkt
  PARAMETER Winkel
  IF (SGN Winkel < 0)
    LET Winkel (360 + Winkel)
  END_IF 
  MODIFY ALL DEL_OLD ROTATE CENTER Mittelpunkt Winkel END
END_DEFINE



DEFINE eva_muster04
  LOCAL P1
  LOCAL P2
  LOCAL P1X
  LOCAL P2X
  LOCAL P1Y
  LOCAL P2Y
  LOCAL Mstab
  LOCAL Faktor
  LOCAL AbstandV
  LOCAL AbstandH
  LOCAL Dummy
  LOCAL DummyX
  LOCAL DummyY
  LOCAL Winkel
  LOCAL Laengeges
  LOCAL P1H
  LOCAL EPX
  LOCAL EPY
  LOCAL Name

  READ PNT "1. Punkt antippen" P1
  LET P1X (X_OF P1)    LET P1Y (Y_OF P1)
  LET EPX P1X LET EPY P1Y
  LET P1H (PNT_XY P1X P1Y)

  LET AbstandV 5
  LET AbstandH 20

  REPEAT
    READ PNT "2. Punkt antippen" RUBBER_LINE P1 P2
    LET P2X (X_OF P2)      LET P2Y (Y_OF P2)
    LET Laengeges (ABS(LEN (P2-P1)))
  UNTIL (Laengeges>(2*AbstandH))

  LET Winkel (ANG(P2 - P1))
  LET Laengeges (ABS(LEN (P2-P1)))

  LET NAME ('_Linie')
  INIT_SUBPART Name

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) (P1Y)) (PNT_XY (P1X+DummyX+AbstandH) (P1Y)) END
      LET DummyX (DummyX+AbstandH+AbstandH)
    END_WHILE

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) (P1Y-AbstandV)) (PNT_XY (P1X+DummyX) (P1Y+Abstandv)) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    LET DummyX (AbstandH/2+AbstandH)
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      CIRCLE CENTER (PNT_XY (P1X+DummyX) P1Y) (AbstandV/2) END
      LET DummyX (DummyX+AbstandH+AbstandH)
    END_WHILE

    eva_drehen P1H Winkel
  END_PART

END_DEFINE

EVA Muster05

{###########################################################################}
{### Datei eva_muster05.mac                                              ###}
{### zeichnet ein Muster von Punkt 1 zu Punkt 2                          ###}
{### Erstelldatum: 24.07.2013                                            ###}
{### (c) 2013 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros: eva_drehen                                    ###}
{###########################################################################}

DEFINE eva_drehen
  PARAMETER Mittelpunkt
  PARAMETER Winkel
  IF (SGN Winkel < 0)
    LET Winkel (360 + Winkel)
  END_IF 
  MODIFY ALL DEL_OLD ROTATE CENTER Mittelpunkt Winkel END
END_DEFINE



DEFINE eva_muster05
  LOCAL P1
  LOCAL P2
  LOCAL P1X
  LOCAL P2X
  LOCAL P1Y
  LOCAL P2Y
  LOCAL Mstab
  LOCAL Faktor
  LOCAL AbstandV
  LOCAL AbstandH
  LOCAL Dummy
  LOCAL DummyX
  LOCAL DummyY
  LOCAL Winkel
  LOCAL Laengeges
  LOCAL P1H
  LOCAL EPX
  LOCAL EPY
  LOCAL Name

  LET AbstandV 5
  LET AbstandH 20

  READ PNT "1. Punkt antippen" P1
  LET P1X (X_OF P1)    LET P1Y (Y_OF P1)
  LET EPX P1X LET EPY P1Y
  LET P1H (PNT_XY P1X P1Y)

  REPEAT
    READ PNT "2. Punkt antippen" RUBBER_LINE P1 P2
    LET P2X (X_OF P2)      LET P2Y (Y_OF P2)
    LET Laengeges (ABS(LEN (P2-P1)))
  UNTIL (Laengeges>(2*AbstandH))

  LET Winkel (ANG(P2 - P1))
  LET Laengeges (ABS(LEN (P2-P1)))

  LET NAME ('_Linie')
  INIT_SUBPART Name

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) (P1Y)) (PNT_XY (P1X+DummyX+AbstandH) (P1Y)) END
      LET DummyX (DummyX+AbstandH+AbstandH)
    END_WHILE

    LET DummyX 0
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      LINE (PNT_XY (P1X+DummyX) (P1Y-AbstandV)) (PNT_XY (P1X+DummyX) (P1Y+Abstandv)) END
      LET DummyX (DummyX+AbstandH)
    END_WHILE

    LET DummyX (AbstandH/2+AbstandH)
    LET DummyY 0
    WHILE (DummyX<(Laengeges))
      TEXT 'test' (PNT_XY (P1X+DummyX-(AbstandH/4)) P1Y) END
      LET DummyX (DummyX+AbstandH+AbstandH)
    END_WHILE

    eva_drehen P1H Winkel
  END_PART

END_DEFINE

Source downloaden

Wenn die Makros nützlich sind, ist eine Spende natürlich gern gesehen :-)

Werbe-Links