|
Lisp : Problem mit (* Realzahl -1)
CADmium am 18.05.2009 um 15:35 Uhr (0)
bei mir klappt als reduziertes Problem(defun TESTUS ( ) (setq Steigung1 2) (setq Tagentenlänge 100) (setq STICHMAß 50) (setq hoehsPK (polar (list 100 0 0) (/ pi 2) (* (/ (* 100 Steigung1) 100)10))) (setq strsatzPK (/ (* (* (/ (* 100 Steigung1) 100)10) Tagentenlänge) 100 )) (setq strsatzPK (* strsatzPK 1)) (setq zwPK (polar hoehsPK (/ pi 2) strsatzPK)) (setq bogenpk1 (polar zwPK 0 (* -1 Tagentenlänge))) (setq bogenpk2 (polar hoehsPK (/ pi 2) (* Stichmaß 10))) (setq bogenpk3 (polar bogenpk1 0 (* 2 Tagentenlä ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
CADmium am 24.01.2012 um 13:07 Uhr (0)
@cadplayer .. dein Code schon mal mit Linien im Raum probiert? guck mal , auf was sich die Funktionen angle und polar beziehen ... IMHO fähst du besser , wenn du ne allgemeingültige Lösung wie CAL oder halt ordentliche Vektorrechnung nimmst------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Gruppencode 42 ?
CADmium am 31.03.2010 um 13:01 Uhr (0)
am besten (auch mit ein paar Bildchen) ist es IMHO bei www.afralisp.net beschrieben. Ich schenk dir mal ne Funktion die aus den Beiden Bogenendpunkten und dem Bulgefaktor alles weitere Berechnet:Parameter : P1 -[List(3x Real)] - Anfangspunkt P2 -[List(3x Real)] - Endpunkt des Bogensegments BULGE-[REAL] - BogenfaktorRückgabe : INFO [LIST] - R [Real] .. Radius - M [List(3x Real)] .. Mittelpunkt ...
|
| In das Form Lisp wechseln |
|
Lisp : abdecken: rahmen ein/aus
CADmium am 25.06.2008 um 12:42 Uhr (0)
wie ist es mit AUTOSNAP (für Polar)(defun c:POLARSWITCH( / AUTOSNAP) (if(=(logand(setq AUTOSNAP(getvar "AUTOSNAP"))8)8) (setvar "AUTOSNAP" (- AUTOSNAP 8)) (setvar "AUTOSNAP" (+ AUTOSNAP 8)) ))oder meinst du wie in der THreadüberschriftsowas (- kann man auch als switcher proggen)------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
