---

Grafik.jpg

Hi zusammen

Ich suche eine nützliche Konstruktionsmöglichkeit die z.B. im GIS-Bereich häufig zum tragen kommt und hoffentlich bereits jemand mal mit LISP realisiert hat oder weiss wo man das finden könnte (für AutoCAD 2006). Ich suchte bereits im Forum, jedoch fallen mir keine Begriffe ein die das genau beschreiben was ich suche. Ich versuche es mal zu erklären:

Ich habe einen Punkt X, davon ausgehend möchte ich diverse Linien zeichnen und dazu eine Länge und einen Winkel angeben. Die erste Linie hat natürlich einen Winkel ausgehend von der X-Achse und eine Länge. Anschliessend möchte ich durch eine Angabe eines weiteren Winkels und einer neuen Länge die zweite Linie gezeichnet haben usw. bis zur x-ten Linien. Es soll dabei immer:

a) vom Mittelpunkt ausgegangen werden
b) der neue Winkel immer von der zuletzt gezeichneten Linie gerechnet werden und nicht von der X-Achse
c) die Linienlänge immer vom Mittelpunkt aus gerechnet werden.

Das könnte dann als Resultat so aussehen wie auf dem JPG. Ziel ist es dann, die äussersten Punkte miteinander verbinden zu können (grüne Linien).

Gibts sowas oder wie konstruiere ich das in AutoCAD?

[Diese Nachricht wurde von Hänk am 03. Jul. 2006 editiert.]

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

---

Zitat:

---

Original erstellt von Hänk:
wie konstruiere ich das in AutoCAD?

---

relativ schnell
mit Bordmitteln @..<..
innerhalb von 1 Minute

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

---

erste linie zeichnen, bks objekt auf die erste linie legen, mit polarkoordinaten nächste linie zeichnen usw. bks objekt und linie kannst du zusammenfassen und auf einen button legen.

ciao georg

[Diese Nachricht wurde von gmk am 04. Jul. 2006 editiert.]

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

---

sowas?

(defun c:Wasauchimmer(/ P W L W_abs Liste)
(setq P (getpoint "\nBasispunkt:"))
(setq W_abs 0)
(while (and(setq W (getreal "\nRelativwinkel in [°]:"))
          (setq L (getreal "\nLinienlänge:"))
      )
  (setq W_abs(+ W_abs W))
  (setq P2 (mapcar '+ P(list(* L(cos(* W_abs 0.017453292)))(* L(sin(* W_abs 0.017453292))) (caddr P))))
  (setq Liste (cons P2 Liste))
  (command "_line" P P2 "")
  (if (>(length Liste)1)
    (command "_line" (car Liste) (cadr Liste)"")
  ) 
)
)

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Genial einfach und simpel und immer schon gesucht

der zehner rollt schon rueber

gruss einsamer deutescher in Holland

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