---

Teilung.zip

Hallo Leute,
habe da ein weiteres Problem mit dem o.g. Betreff.
Bei den Teilungen bekomm ich nur eine Teilung und nicht die, wo ich will, z.B. bei einem Kreis möchte ich ne 12er Teilung.
Vielleicht findet Ihr den Fehler bei den Anhängen. Wäre über jede hilfe sehr dankbar.

Gruß
Joi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
schau Dir doch mal das hier an. Ist es das was Du versuchst?
Gruß Peter

DEFINE teilen
  LOCAL N
  LOCAL P1
  LOCAL P2
  LOCAL Dummy
  LOCAL Delta
  LOOP
    READ NUMBER 'Anzahl der Segmente?' N
    READ PNT 'Bitte Startpunkt anwÌhlen!' P1
    READ PNT 'Bitte Endpunkt anwÌhlen!' P2
    LET Delta ((P2 - P1)/N)
    REPEAT
      LET Dummy (P1+(Delta*(N-1)))
      C_LINE PERPENDICULAR Dummy Dummy
      END
      SPLIT Dummy Dummy
      END
      LET N (N-1)
    UNTIL (N=1)
  END_LOOP
END_DEFINE

define teilen_x
local p
local p1
local n
local w
local w1
  loop
    read pnt 'Bitte Mittelpunkt anwÌhlen !' p
    read pnt 'Bitte einen Teilungspunkt anwÌhlen !' p1
    read number 'Bitte Anzahl der Teilungen angeben !' n
    let w (360/n)
    let w1 (ang (p1-p))
    if (w1 < 0)
      let w1 (w1+360)
    end_if
    repeat
      let p1 (p + pnt_xy (len(p-p1)*cos w1) (len(p-p1)*sin w1))
      point p1
      let n (n-1)
      let w1 (w1+w)
      if (w1 > 360)
        let w1 (w1-360)
      end_if
    until (n = 0)
  end_loop
end_define

DEFINE kreuz
  LOCAL P1
  LOOP
  READ PNT 'Bitte Mittelpunkt anwÌhlen!' P1
  C_LINE HORIZONTAL (P1)
  C_LINE VERTICAL (P1)
  END
  END_LOOP
END_DEFINE

DEFINE linievollweiÞ
  SOLID WHITE
END_DEFINE

DEFINE liniestrichpunktgelb
  DOT_CENTER YELLOW
END_DEFINE

DEFINE liniestrichgrÏn
  DASHED GREEN
END_DEFINE

DEFINE lÎschhilfs
DELETE SELECT C_GEO GLOBAL ALL CONFIRM
REDRAW
END
END_DEFINE

DEFINE grund
COLOR WHITE
LINETYPE SOLID
  TEXT_SIZE 3
  TEXT_FRAME OFF
EDIT_PART TOP
END
END_DEFINE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP