|
AutoLisp : Kehrwert in Lisp
dan_rather am 18.10.2005 um 14:21 Uhr (0)
Hallo zusammen,wie kann ich in Lisp den Kehrwert einer Zahl berechen?Danke
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kehrwert in Lisp
joern bosse am 18.10.2005 um 14:31 Uhr (0)
Hallo Dan,(setq a 50.0) = 50/1(setq kehrwert (/ 1.0 a)) = 1/50meinst Du das?------------------viele GrüßeJörn
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kehrwert in Lisp
dan_rather am 18.10.2005 um 14:37 Uhr (0)
im prinzip Ja.Nur wenn ich einen Wert habe 0, z.B. 0.85 mekert Lisp:Division durch 0!Vieleicht gibts ja einen Befehl der mir die reziproke Zahl zurückgibt?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kehrwert in Lisp
joern bosse am 18.10.2005 um 14:56 Uhr (0)
aber0.85 ist doch nicht 0, und wenn dann wäre es nicht schlimm. Du darfst nur nicht 0.0 verwenden.Befehl: (/ 1.0 0.85)1.17647dann kannst Du doch folgendes machen:(setq a 0.85)(if (/= a 0.0)(setq kehrtwert (/ 1.0 a))nil)------------------viele GrüßeJörn
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kehrwert in Lisp
tunnelbauer am 18.10.2005 um 14:50 Uhr (0)
Wenn du einen Wert kleiner 0 hast... und dann schreibst du 0.85 - ist mir da was entgangen ? Teste mal:Code:(setq a 0.85)(/ 1 a)Bei mir klappt es hervorragend... (Ergebnis: 1.17647)------------------GrüsseThomas[Diese Nachricht wurde von tunnelbauer am 18. Okt. 2005 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kehrwert in Lisp
dan_rather am 18.10.2005 um 14:52 Uhr (0)
Tja bei mir auch,war ein Fehler im Übrigen Code der mir den Wert 0 geliefert hat.SorryDanke für die Antworten
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kehrwert in Lisp
benwisch am 18.10.2005 um 16:49 Uhr (0)
Hallo dan_rather, Zitat:Vieleicht gibts ja einen Befehl der mir die reziproke Zahl zurückgibt?Soweit mir bekannt ist: Nein.Schreibe dir doch eine Funktion und lege sie in deiner Bibo ab (ist nix dolles)Formel: Vorschlag:Code:; Funktion gibt den reziproken Wert einer Zahl zurück.; Argument: Integer oder Realzahl(defun :math:rezpro (#num) (cond ((= 0 #num) nil) ((expt #num -1.0)) ))Beispiele Funktionsaufruf:(:math:rezpro 5) = 0.2 ; (:math:rezpro -0.2) = -5.0(:math:rezpro 0) = nil
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Objekte suchen ihn Zeichnung
cad-intensiv am 18.10.2005 um 22:01 Uhr (0)
Zitat:Original erstellt von fuchsi: (setq ss (ssget "X" (list (cons 0 (cdr (assoc 0 ed))))))Warum nimmst du die 0 erst mit CDR weg, um sie dann wieder dran zu hängen?So ist das Beispiel sauber: (setq ss (ssget "X" (list (assoc 0 ed))))Robert------------------Lisp-Seminare in Wien am 25. und 26. Sep 2005 und später in München, Frankfurt, Köln , Berlin ... - Infos unter cad-intensiv@gmx.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 18.10.2005 um 14:29 Uhr (0)
@FuchsiHabe dein Lisp getestet(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString ReplaceString /) (while (/=String (vl-string-subst ReplaceString SearchString String)) (setq String (vl-string-subst ReplaceString SearchSt ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 19.10.2005 um 06:44 Uhr (0)
@FuchsiHabe mir das Lisp nochmal umgebaut um diese Zahlen zu erhöhen 1/2 wird 2/3 das funkt mal.Aber mit Text M1/2 geht das Lisp nicht. Sollte M2/3 werden(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(setq fertig(strcat (itoa (1+ (car a2 ))) "/" (itoa (1+ (cadr a2)))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString Repla ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layer von Objekt(en) ausschalten
Waldemar am 19.10.2005 um 11:59 Uhr (0)
Hallo,habe mir ein Tool geschrieben mit dem ich den Objekt-Layer ausschalten kann. Es funktioniert super! Während der arbeit hab ich festgestellt, es währe schön, wenn ich auch mehrere Objekte auswählen und damit auschalten könnte. Nur da ist mein Lisp am Ende. Kann mir jemand helfen.Schöne GrüßeWaldemar(defun C:LAYFRIWP (/ CM AU LA) ;Systemvariablen werden gespeichert (Setq CM (Getvar "Cmdecho")) ;Systemvariablen werden gesetzt (Setvar "Cmdecho" 0) ;Auswahlsatz wird gebildet (Setq AU (Entget (Car (Entsel ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
