|
Lisp : Lisp Programmierung (ein Dorf in China?)
CADmium am 10.09.2007 um 11:43 Uhr (0)
Dein veschachteltetes if ist ja nutze doch die Funktion cond dafür. Und ganz ehrlich: die Rahmen würd ich einmal zeichen und die dwg dann per DC als Block in die aktuelle Zeichnung ziehen.------------------ - 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 : Lisp Programmierung (ein Dorf in China?)
Grebe am 31.07.2007 um 09:35 Uhr (0)
Zu deinem Layout-Problem:1. Was heisst "Layout wir nix" ? Sitzen die Linien nicht da wo sie sitzen sollten ? Könnte daran liegen, dass in den Optionen und Benutzereinstellungen die Priorität für Koordinateneingabe auf Objektfang steht. Dann könnte der Objektfang zuschlagen. Besser auf tastatureingabe umstellen.2. Ein Diesel-Makro kann nur eine bestimmte Länge haben - evtl. stösst Du da an Grenzen. Dann besser ein Skript erstellen und das per Makro ausführen lassen.3. Warum erstellst du nicht eine DWT, die ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Programmierung (ein Dorf in China?)
Rabbit 007 am 01.08.2007 um 10:29 Uhr (0)
Habe mal was für dich zum Basteln zusammen geschoben.Kopiere den hier drunter stehenden Code einfach mal in deine Befehlszeile.Code:(defun c:Hallo ( / Objektfang) (setq Objektfang (getvar "osmode")) (setvar "osmode" 0) (command "_layout" "n" "Das große Hallo Layout !!!" "") (command "_layout" "se" "Das große Hallo Layout !!!" "") (command "_line" (60.1347 202.589 ) (60.1347 131.438 ) "") (command "_line" (119.352 167.014 ) (60.1347 167.014 ) "") (command "_line" (103.753 202.589 ) (103.753 131.438 ) "") (c ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Programmierung (ein Dorf in China?)
Obi-Wahn am 08.09.2007 um 15:43 Uhr (0)
Optimal. Danke.Lieg ich richtig, dass die ausgabe des letzten befehls der funktion als bestätigung ausgegeben wird? Oder hat das einen anderen Grund, dass der Objektfangvraiablenwert erschienen ist?------------------Garten ist eine Kunstnatur
|
| In das Form Lisp wechseln |
|
Lisp : Von lisp -> lisp aufrufen
helmut51 am 12.09.2007 um 07:01 Uhr (0)
Zitat:Original erstellt von CADmium:du mischt da einiges Hallo Cadmium,perfekte Lösung.nachdem aber(defun c:test ( / )(setq a c:nl)(a)(princ))funktioniert, dachte ich, dass test4 auch funktionieren muss. Hast Du einen kurzen Tipp für mich, was ich mische? Zitat:Original erstellt von tunnelbauer:Ist deine Funktion NL überhaupt definiert?[/B]Natürlich ist NL definiert und der Umweg wird gemacht, da NL auch BLABLA oder WASANDERES sein kann.
|
| In das Form Lisp wechseln |
|
Lisp : Von lisp -> lisp aufrufen
Geos am 12.09.2007 um 07:34 Uhr (0)
In Deiner obigen Version belegst Du a mit "c:nl" - und das ist ein String.------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
Lisp : Von lisp -> lisp aufrufen
Brischke am 12.09.2007 um 08:10 Uhr (0)
Aus Freude, dass ich CADmiums Code etwas verkürzen kann, noch ein Hinweis:Das Verketten der Klammern mit dem String "c:NL" ist nicht notwendig. Man kann auch einfach ((eval (read c)))schreiben.Grüße Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.
|
| In das Form Lisp wechseln |
|
Lisp : Von lisp -> lisp aufrufen
CADmium am 12.09.2007 um 08:01 Uhr (0)
C .. ist ein String , nämlich "C:NL"(strcat "(" c ")") .. macht daraus "(C:NL)" das sieht schon mal wie ein Funktionsaufruf aus, ist aber immer noch ein String(read (strcat "(" c ")"))) macht (c:NL) draus .. ist sowas wie ein Symbol (eval (read (strcat "(" c ")")))und eval evaluiert den übergebenen Ausdruck, d.h. wertet den an das Symbol gebundene Wert aus..ist im diesem Fall nu Subroutine, die ausgeführt wird.(eval (read (strcat "(" c ")")))an c:nl ist ne subroutine gebunden - siehe (type c:nl)(setq a c: ...
|
| In das Form Lisp wechseln |
|
Lisp : Von lisp -> lisp aufrufen
helmut51 am 12.09.2007 um 08:17 Uhr (0)
Zitat:Original erstellt von CADmium:Alles klar?Noch nicht ganz, aber es wird schon.Danke
|
| In das Form Lisp wechseln |
|
Lisp : Bemassungstex nach X oder Y Achse verschieben
CADmium am 12.09.2007 um 08:43 Uhr (0)
... die Y-Koordinate hatte ich mit absicht ausgespart, da ich möchte, das hier nicht nur Tools ect. abgegriffen werden, sondern sich die Fragesteller auch etwas mit Lisp beschäftigen.ein Einstieg hierzu bietet Tutorial von Mapcar, welches mitlerweile auch in Buchform vorliegt ------------------ - 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 : Script aus Lisp mit Command aufrufen
fuchsi am 11.09.2007 um 15:11 Uhr (0)
Zitat:Original erstellt von Peter2:Besten Dank. Mein Kurztest zeigt, dass es mit Übergabe von Strings klappt, dass er aber anscheinend Variablen nicht auswerten kann: Rückgabe nil, keine Meldung, keine Änderung Zitat:(LAYMRG+ ("AM_1" "AM_2") "0")ein gerne gemachter Fehler :(setq AltLayer "IrgendEinAlterLayer")(setq NeuLayer "IrgendEinNeuerLayer")(LAYMRG+ (AltLayer) NeuLayer)kann nicht gehen, in quotierten Listen werden Variabeln nicht evaluiert, sondern als Symbol übergeben-(LAYMRG+ (LIST AltLayer) NeuLay ...
|
| In das Form Lisp wechseln |
|
Lisp : Von lisp -> lisp aufrufen
CADmium am 11.09.2007 um 15:58 Uhr (0)
du mischt da einiges .. les dir mal mapcars Tutorials noch mal genau durch.Probier mal(defun c:nl()(princ"
HALLO"))(defun c:test4 ( / a b c )(setq a "nl") (setq b "c:") (setq c (strcat b a)) (print (strcat "die Variable c ist belegt mit :" c ""))(eval (read (strcat "(" c ")")))(princ))------------------ - 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 : Wer kennt sich aus mit Arbeitsbereichen?
glocker am 14.09.2007 um 16:22 Uhr (0)
Hallo Gemeinde,leider kommt es bei uns immer wieder vor, daß aus irgendwelchen Gründen sämtliche Toolboxen verschwinden. Zwar sind alle Menüs noch intakt (geprüft über CUI) aber der aktuelle Arbeitsbereich enthält keinerlei Toolboxeinträge mehr (daher ist auch keiner mehr zu sehen). Aber der "normale" Benitzer tut sich mit dem zurückladen über Arbeitsbereich/Profil usw... leider etwas schwer.Nun habe ich mich schon an einem Lisp-Tool versucht, um a) den (noch intakten) Arbeitsbereich "MW" unter "SICHER" zu ...
|
| In das Form Lisp wechseln |
