Gebruik van pi in een lisp-routine

[Snuffel]

2pi is 360°
pi dus 180°
en 0.5pi 90°

Nu wil ik dat in een lispje gebruiken en alles werkt perfect als ik 0 of pi gebruik.
Als ik 0.5pi of 0.25pi wil gebruiken dan werkt het niet als ik de lisp inlaad.
Met autocad 2002 leek ik dat probleem niet te hebben maar nu we autocad 2006 gebruiken wel.
Of misschien maak ik wel een fout in de notering ervan.
Een vb:
(defun c:sysv120 (/ p1 pt p2)
   (command "layer" "s" "A32-_BINNENSCHRIJNWERK_NIEUW" "")
(setq p1(getpoint "\nInsertionpoint? (linksonder)"))
(setq pt (polar p1 0.25pi 5))
...

Weet iemand wat er fout gaat?
Alvast bedankt

Goetjes Snuffel

[bart]

2pi is 360°
pi dus 180°
en 0.5pi 90°

Nu wil ik dat in een lispje gebruiken en alles werkt perfect als ik 0 of pi gebruik.
Als ik 0.5pi of 0.25pi wil gebruiken dan werkt het niet als ik de lisp inlaad.
Met autocad 2002 leek ik dat probleem niet te hebben maar nu we autocad 2006 gebruiken wel.
Of misschien maak ik wel een fout in de notering ervan.
Een vb:
(defun c:sysv120 (/ p1 pt p2)
   (command "layer" "s" "A32-_BINNENSCHRIJNWERK_NIEUW" "")
(setq p1(getpoint "\nInsertionpoint? (linksonder)"))
(setq pt (polar p1 0.25pi 5))
...

Weet iemand wat er fout gaat?
Alvast bedankt

Goetjes Snuffel

Als je zegt dat 2 pi 360 graden is moet je er wel bij zeggen dat de hoek dan in radialen wordt aangegeven

(setq pt (polar p1 (* 0.25 PI) 5)) zou moeten werken (niet getest)

[HofCAD]

2pi is 360°
pi dus 180°
en 0.5pi 90°

Nu wil ik dat in een lispje gebruiken en alles werkt perfect als ik 0 of pi gebruik.
Als ik 0.5pi of 0.25pi wil gebruiken dan werkt het niet als ik de lisp inlaad.
Met autocad 2002 leek ik dat probleem niet te hebben maar nu we autocad 2006 gebruiken wel.
Of misschien maak ik wel een fout in de notering ervan.
Een vb:
(defun c:sysv120 (/ p1 pt p2)
   (command "layer" "s" "A32-_BINNENSCHRIJNWERK_NIEUW" "")
(setq p1(getpoint "\nInsertionpoint? (linksonder)"))
(setq pt (polar p1 0.25pi 5))
...

Weet iemand wat er fout gaat?
Alvast bedankt

Goetjes Snuffel

Beste Snuffel,

Men kan haast zeggen dat standaard onderstaande procedures
gebruikt worden om hoeken om te zetten.

Code Selecteer Uitklappen


(defun dtr (a)
   (setq a (/ (* a pi) 180))
)
(defun rtd (a)
   (setq a (* (/ a pi) 180))
)


Men gebruikt DTR om van decimale graden naar radialen te gaan,
en men gebruikt RTD om van radialen naar decimalen graden te gaan.
Je kan dus zo als Bart schreef:

Code Selecteer Uitklappen

(defun c:sysv120 (/ p1 pt p2)
(command "layer" "s" "A32-_BINNENSCHRIJNWERK_NIEUW" "")
(setq p1(getpoint "\nInsertionpoint? (linksonder)"))
(setq pt (polar p1 (* 0.25 pi) 5))
...

of je kan:

Code Selecteer Uitklappen

(defun dtr (a)
   (setq a (/ (* a pi) 180))
)
(defun c:sysv120 (/ p1 pt p2)
(command "layer" "s" "A32-_BINNENSCHRIJNWERK_NIEUW" "")
(setq p1(getpoint "\nInsertionpoint? (linksonder)"))
(setq pt (polar p1 (dtr 45) 5))
...

Let dus op de prefix notatie in Lisp.

Met vriendelijke groet,
HofCAD CSI

PS
(dtr 45) geeft 0.785398
(/ pi 4) geeft 0.785398
(* 0.25 pi) geeft 0.785398
(atan 1) geeft ook 0.785398