|
Lisp : Überprüfung von Elementwahl
ryfCAD am 23.08.2019 um 16:05 Uhr (1)
Hallo und besten Dank!Habe die Lösung von Spider_DD mal integriert und funktioniert:@cadffm: die Formatierung geht mit copy-paste irgendwie verloren, kopiere aus Notepad++, die Einrückungen mache ich mit Tabscode:(defun c:rC-Messen_Winkel-Prozent( / sli li x1 x2 y1 y2 proz Prozentstr winkel Winkelstr) ;Meldung (princ " ") (princ "
rC © ryfB FUNKTION: misst Neigung einer Linie in Grad und %") (princ) ;Linie wählen: (while (not (and (setq sli (entsel "
Linie wählen ")) (= (cdr (asso ...
| | In das Form Lisp wechseln |
|
Lisp : Prozent zu Grad, Grad zu Prozent
ryfCAD am 20.08.2019 um 15:37 Uhr (1)
Also, ich habe die Lösung:;---------------------------------------------------;Funktion Tangens TAN:(defun tan (x) (cond ((equal (cos x) 0.0 1.0e-16) (if (minusp x) -1.0e200 1.0e200 ) ) (T (/ (sin x) (cos x)) ) ));---------------------------------------------------;Funktion Umrechnung Grad zu Bogenmass(defun G2B (x) (* (/ (* pi 2) 360) x));---------------------------------------------------Funktion Umrechnung Winkelmass zu Prozent(defun c:rC-Winkel2Prozent (/ Prozent Winkel Prozentstr Winke ...
| | In das Form Lisp wechseln |
|
Lisp : Überprüfung von Elementwahl
ryfCAD am 23.08.2019 um 12:55 Uhr (1)
Hallo zusammen,ich habe ein Tool zur Ermittlung der Neigung einer Linie erstellt. Frage:Die Prüfung ob die Elementwahl eine Linie ist, geht doch sicher viel einfacher oder?Elegant wäre doch, wenn sich eine Einzelwahl wiederholt, bis das gewählte Element eine Linie ist oder auch wenn nichts gewählt wird. while, cond... ich kriege es einfach nicht hin.Hier mal der Code (ich programmiere immer vollständig mit allen setq etc.)----------------------------------------------------------------------------(defun c: ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
