 |
Lisp : Linear und Lisp
CADblue am 19.08.2019 um 11:35 Uhr (15)
Hallo zusammen,bin gerade aus dem Urlaub zurück. Danke für die Beteiligung, werde ich mir gleich mal genauer anschauen.lgblue
|
| In das Form Lisp wechseln |
|
Lisp : Prozent zu Grad, Grad zu Prozent
ryfCAD am 20.08.2019 um 11:46 Uhr (15)
Hallo zusammen,ich kapiere nicht so ganz, wie Lisp folgende Berechnungen erstellt,oder anders gesagt, wie lauten die Formeln korrekt für Lisp?45° sind 100% ist eigentlich klar.----------------------------Die Formel Grad in Prozent:Winkel in Prozent = tan(Winkel in Grad) * 100%(* (tan 45) 100)161.97751906wobei(tan 45)1.61977519Ergebnis sollte 100 sein----------------------------Die Formel Prozent in Grad:Winkel in Grad = atan(Winkel in Prozent / 100%)(atan (/ 100 100))0.78539816wobei(atan 100)1.56079666Erge ...
|
| In das Form Lisp wechseln |
|
Lisp : Prozent zu Grad, Grad zu Prozent
cadffm am 20.08.2019 um 11:48 Uhr (1)
Zitat:45° sind 100% ist eigentlich klar.Eigentlich ist das nicht vollkommen klar, sondern vollkommender Quatsch!Zumindst in dem Zusammenhang mit Mathematik.EDIT: Sorry regen mich gerade über sowas an anderer (nicht Lisp) Stelle auf, komme aber gerne später auf den Fall zurück wenn sich noch keiner bemühte bis dahin.
|
| In das Form Lisp wechseln |
|
Lisp : Prozent zu Grad, Grad zu Prozent
cadffm am 20.08.2019 um 13:05 Uhr (1)
Und für diejenigen die nicht zu Lisp greifen können (LT-User), oder allgemein die CAL/KAL-Nutzerdie müssen bedenken abstatt TAN TANG zu nutzen,ATAN nur ein Argument erwartet und dieses wie TANG in (Dezimalgrad)
|
| In das Form Lisp wechseln |
|
Lisp : Prozent zu Grad, Grad zu Prozent
ryfCAD am 20.08.2019 um 14:47 Uhr (1)
@cadffm:natürlich ist das Quatsch, mathematisch gesehen. Aber bei Neigungsberechnungen in der Architektur sind 45° eben doch 100%Die Umrechnung Prozent zu Winkel habe ich hin gekriegt:(setq Prozent (getreal "Prozent % eingeben: "))(setq Winkel (/ (* (ATAN (/ Prozent 100.0)) 180.0) pi))Die umgekehrte Operation jedoch nicht.Natürlich gibt es in VLisp keine Funktion TAN, Fehler von mir, aber es wird seltsamerweise keine Fehlermeldung ausgegeben.Die Funktion TAN lässt sich jedoch herstellen:(defun c:tan (x) (/ ...
|
| 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 : Variable von rechts abschneiden
Melmacker am 23.08.2019 um 12:45 Uhr (1)
Vielen dank spider_dd. Und sorry wegen "strleng" da stand ich auf dem Schlauch, ich kannte zwar "strlen" schon habe aber immer das "setq" vergessen damit ich mir die Länge der Variable in eine Variable speichern kann. Und danke für den Tipp mit "vl-string-search" bin gerade erst dabei Visual Lisp zu entdecken. MfgMelmacker
|
| 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 |
|
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 : Layer isolieren nach Namen
Andrina08 am 29.08.2019 um 07:48 Uhr (1)
Guten MorgenIch möchte mittels LISP alle Layer, die mit UW beginnen isolieren, um deren gesamten Inhalte zu löschen.... Ich kämpfe nur leider bereits mit dem Ansatz.. Dankeschööööön.
|
| In das Form Lisp wechseln |
|
Lisp : Textinhalt in Blockattribut einfügen per Lisp
fmfm am 03.09.2019 um 09:41 Uhr (1)
Hallo zusammen,ich hatte ein Lisp das mir leider verloren gegangen ist.Mit der Lisp konnte ich von einem bestehenden Text (oder auch MText) den Textinhalt in ein Attribut (Block) übertragen.Leider finde ich diese Lisp im Internet nicht mehr. Kann mir bitte jemand weiterhelfen.Vielen DankEdit: MText Ergänzung[Diese Nachricht wurde von fmfm am 03. Sep. 2019 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Textinhalt in Blockattribut einfügen per Lisp
fmfm am 03.09.2019 um 10:42 Uhr (1)
Genau diese Lisp habe ich gesucht.Vielen Dank !!!mit dem Befehl "ctx" passiert genau das was ich möchte.der Befehl "stx" ist auch interessant.Danke und Grussfmfm
|
| In das Form Lisp wechseln |
 |
Lisp : AEC Stilmanager Klassifizierung bereinigen
cadking am 08.09.2019 um 11:39 Uhr (1)
Hallo Lispler,kann man per Lisp die Einträge im Stilmanager - Klassifizierung - Typirgendwie bereinigen? s. Anhang------------------Danke Stefan
|
| In das Form Lisp wechseln |
