|
Lisp : cons überschreibt den letzten durch cons dazugefügten eintrag????
joern bosse am 18.03.2009 um 16:10 Uhr (0)
Hallo Steff,hier nochmal ein Beispiel, wie man einen Gruppencodeeintrag zwischen zwei vorhandene packt. Aber Vorausetzung ist, daß Du Dich mit den von CADmium angesprochenen Funktionen auseinandersetzt. Zudem weiß ich nicht, ob Du Dich bereits mit MAPCAR und APPLY auseinandergesetzt hast (die habe ich auch verwendet)Versuch dochmal, den Code Step by Step mit den Überwachungsfenster im Visual-LISP-Editor durchzugehen, dann wird bestimmt einiges klarer.Code:;;;(;;; (-1 . OBJEKTNAME: 75406208>;);;; (0 . ...
|
| In das Form Lisp wechseln |
|
Lisp : Daten einlesen, Block absetzen
KlaK am 07.07.2023 um 12:36 Uhr (1)
Zitat:Original erstellt von 85Nina85:..ich kann mich irgendwie nur schwer für den Civil-Punkteimport begeistern.. ich sehe viele Vorteile, dynamische Punkte etc., aber wenn ich von der Darstellungsseite her schaue finde ich es eher schwierig (oder kenne mich zu wenig aus ) Geht es z.B. um die Änderung der Grösse kann das nur noch über denn Massstab gesteuert werden, oder...? Ja, das Beschäftigen mit der Civil-Philosophie kann lange dauern oder man (bzw. der AG) gönnt sich eine Schulung und arbeitet dann ...
|
| In das Form Lisp wechseln |
|
AutoLisp : 90 Grad rotieren
Brischke am 24.08.2005 um 23:19 Uhr (0)
Hallo archstudent,Ich denke du brauchst erst einmal einen Fahrplan, und dann kannst du dich mit einzelnen Details beschäftigen. In jedem deiner Beiträge kam bisher immer auch ein neuer Wunsch zur Funktionalität heraus .. wäre das alles von Beginn an bekannt gewesen, hätten die Lösungsvorschläge sicher auch anders ausgesehen.Wenn ich das alles richtig interpretiere, dann wählst du irgendwie irgendwelche Zeichnungselemente aus, mit einem KreuzenFenster - ok. Dieser Vorgang gehört mit in das Lisp, nur dann ka ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Sound in Lisp?
CADmium am 05.11.2004 um 17:47 Uhr (0)
Zitat:Original erstellt von cadking:Ich haben AutoCAD 2002 deutsch mit Expresstools 2000i englisch undbekomme trotz Soundkarte keinen Sound. Ich verstehe auch die Syntax nicht. Habe folgendes eingegeben:(vlr-beep-reaction) (defun Beep (/ f) (if (not (getenv "windir")) (progn (setq f (open "con" "w")) (write-char 7 f) (close f) ) ) )(acet-sys-beep 0)aber das ist wohl vollkommen falsch?jo, völlig..wenn du DOS als Betriebssystem hast kannst du (defun Beep (/ f) (if (not ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Alle Einfügepunkte eines Blockes ermitteln
THE_ONE am 19.03.2007 um 12:28 Uhr (0)
Hallo! Frage kann mir vielleicht einer von euch sagen wie man alle Einfügepunkte eines Blockes bekommt- am besten in einer Liste!Hab hier im Forum ein Auto-Nummerierungstool gefunden, das ich mir auf meine Problemstellung angepasst habe! Nur muss ich dazu jeden Einfügepunkt selber angeben. Und eigentlich will ich ja nur das jeder Block eine eindeutige Nummer bekommt die neben dem Block steht (in einem fixen Abstand), dazu bräuchte ich aber die Einfügepunkte des Blockes.hier mal was ich bis jetzt habe:Code: ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLISP Schulung ja/nein?
Brischke am 22.07.2016 um 09:50 Uhr (1)
Hallo,ich hatte mit meiner Antwort noch ein wenig gewartet, da noch eine ausführliche Antwort hinsichtlich der Visionen kommen sollte.Egal. Das was bisher als Vision genannt ist, geht sicher mit Lisp.Zitat:Ich stelle mir das sehr kompliziert vor. Deshalb die Schulung um gewisse Basics zu lernen. Ich finde es irgendwie immer leichter wenn einem, der das Programm beherrscht, dieses erklärt.Dazu eine Anmerkung: Das Erlernen des Programmierens ist aus meiner Sicht nicht davon abhängig, welche Programmiersprach ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zahl Hochzählen
Brischke am 17.02.2003 um 13:44 Uhr (0)
Hallo Heinz, Anmerkungen sind im Text ... Zitat: Original erstellt von Dober Heinz: Hallo Lispler Kann mir das Programm jemand so ändern das ich textstil und höhe selber vorher festlegen kann, ohne das ich den stil Standard änder muss, und Layer auf den Aktuellen. danke heinz (defun c:number (/ nr ipt ant th tlay prefix ) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant(getint "
Startnummer 0 ")) (1- ant) 0 ) ) ;;neu (setq th (getreal "
Texthöhe:") tlay (getstring "
Ziellayer:") ;; (while ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
kadirozen am 02.08.2023 um 14:29 Uhr (1)
Ihr letzter Vorschlag wäre großartig, wenn ich ihn umsetzen könnte.Sie haben Recht mit der Catergorisierung. Anstatt +700 Elemente zu haben, könnten wir die Suche auf die Ebenen mit SEQ, NO_SEQ, CNC, CUT; usw. am Anfang beschränken. Das würde die Anzahl der Codezeilen erheblich reduzieren, und ich müsste in Zukunft keine einzige Codezeile mehr aktualisieren, weil unser Ebenennamensystem gleich bleibt (SEQ am Anfang zum Beispiel).Wenn wir eine neue Methode haben, kann ich einfach die Präfix-Liste aktualisie ...
|
| In das Form Lisp wechseln |
rotate3d.dwg.txt |
Lisp : 3drotate in Lisp
tappenbeck am 19.10.2012 um 10:46 Uhr (0)
Moin !ich muss den Fall nochmal aufnehmen da ich irgendwie nicht das Ergebnis bekomme wie ich es erwarte. Zunächst habe ich den Anfangs- und Endpunkt der Polylinie ermittelt im BKS Welt mit Draufsicht.Dann will ich die Polylinie um die Anfangs-End-Achse drehen.Nun habe ich das auf zwei wege versucht - komme aber an der Befehlszeile nicht zum Ergebnis.Die rote Linie ist die Ausgangslinie. Wenn ich das ganze manuell mit anklicken der Endpunkte (blau) und der Option 2Punkte mache, dann dreht sich das wie grün ...
|
| In das Form Lisp wechseln |
rotate3d.dwg.txt |
Lisp : 3drotate in Lisp
tappenbeck am 19.10.2012 um 10:46 Uhr (0)
Moin !ich muss den Fall nochmal aufnehmen da ich irgendwie nicht das Ergebnis bekomme wie ich es erwarte. Zunächst habe ich den Anfangs- und Endpunkt der Polylinie ermittelt im BKS Welt mit Draufsicht.Dann will ich die Polylinie um die Anfangs-End-Achse drehen.Nun habe ich das auf zwei wege versucht - komme aber an der Befehlszeile nicht zum Ergebnis.Die rote Linie ist die Ausgangslinie. Wenn ich das ganze manuell mit anklicken der Endpunkte (blau) und der Option 2Punkte mache, dann dreht sich das wie grün ...
|
| In das Form Lisp wechseln |
|
AutoLisp : max. Zeichenanzahl in Variablen / Funktionen
Paulchen am 07.12.2005 um 12:32 Uhr (0)
Vielen Dank an alle! Scheinbar habe ich einen kleineren Diskussionsbedarf geweckt...Entschuldigend muß ich gestehen, daß ich aus der "Nicht-Programmierer-sondern-Ingenieur-der-bißchen-mit-Lisp-rumspielt"-Ecke (so ähnlich laut mapcar ) komme. Ich möchte vermeiden, daß ich bereits am Anfang grobe Fehler mache. Eine gewisse Eleganz will ich mir schon selbst abverlangen, zumal man sich später viel Ärger und Arbeit erspart, vom "Spott" der wirklichen Lispler mal ganz abgesehen!@Holger: Danke für den Link, hätt ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Abfrage konstruktion
reltro am 15.06.2013 um 20:51 Uhr (0)
Hey...lambda ist ein verdammt einfaches Ding Wie alles in Lisp gibt es etwas zurück. Bei lambda ist das eine Funktion...ähnlich wie defun nur eben ohne namen, eine anonyme Funktion...wenn du zB. schreibst und ausführst:Code:(defun sample (a / ) (print a))(setq b (lambda (a / ) (print a)))Und dann in der Acad-Console eintipps:Code:!a;bzw!bKannst du die "Geimsamkeit" ausmachen...Der Aufruf ist grundätzlich ähnlich/gleich:Code:(a "das war defun")(b "das war lambda")Das Beispiel ist nicht sonderlich originell ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Mandelbrot
tom.berger am 27.03.2004 um 16:43 Uhr (0)
Zitat: Original erstellt von mapcar: Komplexe Zahlen als Liste von 2 Elementen speichern, dann ist realpart = car und imagpart = cadr. Die Zeiten, wo es noch ganz einfach ging (setq realpart car imagpart cdr) sind aber in AutoLisp leider vorbei. Hallo Axel, Warum? Das funktioniert noch wie schon immer: (setq realpart car) # SUBR @0222ef8c CAR (realpart (1 2 3)) 1 Sogar mein uraltes objectiveCAD funktioniert noch immer, das ja on the fly parametrische Objekte als LISP-Funktionen definiert. Was ...
|
| In das Form AutoLisp wechseln |
