|
AutoLisp : Datenrückgabe Funktion
Brischke am 17.10.2005 um 11:14 Uhr (0)
Zitat:Original erstellt von Gerd_Ecke:Hallo Mitstreiter,beginne mich ein wenig mit LISP zu beschäftigen.Erstelle eine Routine die Blöcke und Attribute in eine Textdatei schreibt.Mit folgenden Zeilen schreibe ich die XYZ werte in besagte Datei, ohne Probleme :(Princ (rtos (car (cdr (assoc 10 (entget aa)))) 2 3) Datei )(Princ "; " Datei)(Princ (rtos (cadr (cdr (assoc 10 (entget aa)))) 2 3) Datei )(Princ "; " Datei)(Princ (rtos (caddr (cdr (assoc 10 (entget aa)))) 2 3) Datei )Da aber mein Excel als de ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Datenrückgabe Funktion
Gerd_Ecke am 17.10.2005 um 11:35 Uhr (0)
Hallo Brischke!Zehn Punkte mein Werdegang war TurboPascal-Delphi-VBA.Danke Funktion funktioniert jetzt tadellos.Hallo Joern Bosse!Danke würde auch gehen, aber ich schreibe die Routinen für Kollegen in meiner Abteilung die kein AutoCAD sondern IntelliCAD haben, so daß ich nur die Grundfunktionen von Lisp nutzen kann.Mit freundlichen grüßenGerd Ecke------------------ACAD 2000, Map 2006, GeoCADwenig LTplus pur (ICAD)alles unter w2k
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Datum überprüfen
fuchsi am 17.10.2005 um 13:53 Uhr (0)
Zitat:Original erstellt von wasc:danke auch für die antwort ! da ich mit VBSkript noch sehrwenig zu tun hatte, ist es ein bisschen schwer für mich nachzu-vollziehen was da genau passiert !! der code funktioniert aber super !!!ich verwende das VB Scripting sehr häufig in Lisp, da man damit alles machen kann, was die VB Scriptsprache ermöglicht.Es gibt z.B.: zwar ein Alert in Lisp, jedoch kein OK Cancel Abfrage oder ien Inputbox.Das ist mit diesem Tools sehr leicht realisierbar(defun InputBox ( _prompt _tit ...
|
| In das Form AutoLisp wechseln |
|
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 |
