---

AcadLISP.zip

Hallo zusammen,
ich möchte in meinen prog die in variablen gespeicherten Winkel immer
nur auf den Bereich zwischen 0° und 90° eingrenzen.
D.h. wenn die Variable "winkel" mir den wert 270° übergibt soll er als 90° weitergegeben werden.
Gibt es in Autocad die möglichkeit Winkel immer in dem Bereich ausgebe zu lassen. Ich hänge mal mein Prog an um eventuell das Problem besser zu erläutern.

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

---

Ich habe das Programm nicht angesehen, aber probiers mal mit der Zeile

Code:

---

(setq winkel (- winkel (* 90 (fix (/ winkel 90)))))

---

------------------
Nodda,

Stefan 

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

---

Und nachdem ich mich schlau gemacht habe weiß ich, dass man auch

Code:

---

(setq winkel (rem winkel 90))

---

nehmen kann.

------------------
Nodda,

Stefan 

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

---

Danke Stefan,
aber das wars nicht. Außerdem wird durch fix die Angabe ungenau.

In dem zusammenhang eine andere Frage.
Kann man die Quickinfos in Acad 2006 auslesen?

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

---

Hallo dan

wie soll sich denn der Bereich der Winkel ergeben?
0° - 90° = 0° - 90°
90°-180° = 90°-0°  (oder 0°-90°)
180°-270 = 0°-90°   
270°-360° = 90°-0°  (oder 0°-90°)

für's jeweils erste probiere mal folgendes:

-prinzipieller Vorschlag, rechne mit den mit (angle ...) erhaltenen Winkeln im Bogenmaß weiter, dann ersparst Du Dir jedemenge (angtof ..)(antos ..)(atof ..)
(setq winkel (angle .. )) liefert Winkel zwischen 0 und 2*pi (360°)
alles was größer ist als pi (180°) geht wieder bei 0 los, also

(if (> winkel pi) (setq winkel (- winkel pi)))

alles was jetz noch größer ist als pi/2 (90°) soll blos der "Rest" bis pi sein (also von 180° nach rechts gemessen)

(if (> winkel (/ pi 2)) (setq winkel (- pi winkel)))

Viele Grüße
spider

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

---

Hallo!
Ich hatte gar keine Benachrichtigungsmail bekommen (oder übersehen).

Ich habe jetzt mal ins Programm geguckt. Geht es um den Abschnitt mit der Zuordnung zur Variable BOAB in der Funktion R:BOGEN? Dann dreht es sich also um den Tangens. Der wiederholt sich nur alle 180 Grad. Also kannst du nur auf 180 Grad einschränken.
Die Funktion FIX diente nur dazu den Rest der Division (/ winkel 90) zu ermitteln. Die Genauigkeit bleibt erhalten, weil ja von der Variablen Winkel der durch 90 teilbare Anteil abgezogen wird. Aber in meinem 2. Posting habe ich ja die Richtige LISP-Funktion angegeben.

------------------
Nodda,

Stefan 

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

---

@spider
Danke für die Anregung
werde es ausprobieren und mich wieder Melden

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