---

Bei Autocad kann man viel mit Anfangspunkt, Endpunkt, Winkel und
Sehnenlänge einen Bogen erzeugen.
Wie kann ich einen Bogen erzeugen, wenn ich Anfangspunkt mit Neigung und Bogenlänge habe?
Wer kann mir da weiter helfen?
Gibt es ein kleines Programm dafür?
Gruß
Ralph

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

---

also da du es im lisp-forum fragst, nehme ich mal an, du wills das per lisp machen (entmake). da bleibt dir eigentlich nichts anderes ürbig als die gute alte methematik (über startwinkel, bogenlänge den endwinkel berrechnen)

alternive könntest du aber auch mit (command "_arc" ...  auch den bogen erstellen, wie du es im acad gewohnt bist. allerdings hast du da die probleme mit eingeschaltenem objektfang, die berrecneten punkte sind nicht im sichtbaren berreich des bildschirmes usw.
ich versuche eigentlich diese command befehle soweit als möglich zu vermeiden, und das rate ich auch jedem, der mit lisp proggen will

------------------

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

---

Hallo Ralph,
ich weiß nicht, ob es das richtige ist, aber auf den Service-Disketten des AutoCAD-Magazines gab es mal dies hier.
Programm: BOG_1.LSP
Funktion: zeichnet Rund-, Stich- und gotische Bögen
Autor: Dieter Ribbrock
Plattform: AutoCAD 2000 2000i udn 2002
Bezug: nur auf Service-Diskette 2/2002

------------------
Gruß Heidi

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

---

Danke für die Hilfe.
Weiss aber nicht ganz genau ob mir das weiterhilft.
Ralph

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

---

Wenn ich's recht sehe, reichen Anfangspunkt, Neigung und Länge nicht aus. Ich nehme an, du meinst mit Neigung die Steigung/den Winkel der Tangente im Anfangspunkt - das ist doppeldeutig (zwei mögliche Fälle), je nachdem, ob die Banane rechts oder links herum krumm ist. Und unabhängig davon ist damit noch kein Radius definiert, da sind also unendlich viele Möglichkeiten da. Du müsstest also die Vorgaben schon so einschränken, dass nur ein möglicher Bogen dabei rauskommt.

Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

Also liebe Leute,

hier ein Vorschlag, wie man die Dinge lösen kann:

Code:

---

(defun lbogen(cen p1 len / ang1 ang2 ang3 rad)
  (setq rad(distance cen p1))
  (setq ang1(angle cen p1))
  (setq ang2(+ ang1(/ len rad)))
  (if(minusp len)(setq ang3 ang1 ang1 ang2 ang2 ang3 len(abs len)))
  (entmake
    (list
     '(0 . "arc")
      (cons 10 cen)
      (cons 40 rad)
      (cons 50 ang1)
      (cons 51 ang2)
    )
  )
)

(defun c:lbogen1( / cen)
  (lbogen
    (setq cen(getpoint"\nMittelpunkt: "))
    (getpoint cen"\nStartpunkt: ")
    (getdist "\nBogenlänge (+ UZ, - GUZ): ")
  )
)

(defun c:lbogen2( / cen rad ang)
  (setq cen(getpoint"\nMittelpunkt: "))
  (setq rad(getdist cen"\nRadius: "))
  (setq ang(getangle"\nStartwinkel: "))
  (lbogen cen(polar cen ang rad)
    (getdist "\nBogenlänge (+ UZ, - GUZ): ")
  )
)

---

Ist aber nur auf die Schnelle hingeschrieben, nicht _wirklich_ ausprobiert:-(

Gruß, Axel

PS: Hab das noch mal korrigiert, war ein Fehlerchen drin:-(

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

[Diese Nachricht wurde von mapcar am 25. Feb. 2004 editiert.]

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