|
AutoLisp : Zweites Element
wronzky am 21.07.2005 um 17:27 Uhr (0)
Hallo Rabbit, ich wusste doch, da hatten wir schon mal was... Code: ;gibt aus Liste liste ab Startposition startpos (0 = 1.Element) jedes n te Element zurück (defun get-nth-sub-list (liste startpos n / counter ergebnis länge) (if (= n 0) (setq n 1)) (setq counter startpos länge (length liste) ) (while ( counter länge) (Setq ergebnis (cons (nth counter liste) ergebnis)) (setq counter (+ n counter)) ) (reverse ergebnis) ) Grüsse, Henning Jesse ------------------ VoxelMa ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp immer kränker?
wronzky am 05.08.2005 um 14:56 Uhr (0)
Sehr komisch!Mit dem Speicherplatz hats nichts zu tun:- setz mal i als anfangswert auf -1000 und repeat auf 1000 - kein Problem.- anders bei:Code:(list (list 220 220 220)) ergibt schon BAD ARGUMENT TYPE. Aber nur, wenn die erste Zahl zwischen 220 und 239 liegt...????????Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp immer kränker?
wronzky am 05.08.2005 um 16:59 Uhr (0)
Noch was ganz komisches:Der Fehler ist eigentlich kein Fehler, dennCode:(vl-catch-all-apply list ((220 220 220)))liefert korrekt ((220 220 220)) zurück und kein #%catch-all-apply-error%. Und erst nach der Rückgabe kommt BAD ARGUMENT TYPE, allerdings ohne die sonst übliche Erläuterung, welches Argument denn nun falsch ist.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Automatisierungsfehler: Keine Datenbank
kkapeller am 10.08.2005 um 22:41 Uhr (0)
Hai!Ich habe ein Lisp-Programm, das in den Acad-Versionen 2002-2005 perfekt funktioniert hat.Auf einigen Computer mit Acad 2006 erscheint folgende Fehlermeldung:Fehler: Automatisierungsfehler: Keine DatenbankDas Lispprogramm beinhaltet Reactoren, welche die Zeichnung "intelligent" machen - sprich, wird ein Element verschoben, werden automatisch die anderen nachgezogen. Beim Löschen eines dieser Elemente werden die anderen auch automatisch gelöscht usw...Wer kennt diese Meldung und wie kann ich das Problem ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kugel mit entmake
wronzky am 12.08.2005 um 11:19 Uhr (0)
Zitat:Original erstellt von mapcar:(entmake) erzeugt keine ACIS-Objekte. Da ist nix dran zu rüttelnHi Axel!dann probier doch mal das:Code:(defun c:make-sphere () (entmake ((0 . "3DSOLID") (5 . "2C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbModelerGeometry") (70 . 1) (1 . "koo j n o ") (1 . "h J1410(1 nl ^VL kqoqm QK mk Y-6 ^*8 nm nnenmeki mooj ") (1 . "rn fqfffffffffffffffj:rooh n:rono ") (1 . "=0;& {rn {n {rn {rn |") (1 . "3*2/ {rn {rn {m {o |") (1 . ",7:33 {rn {rn {rn {l ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kugel mit entmake
wronzky am 12.08.2005 um 19:59 Uhr (0)
Zitat:Original erstellt von mapcar:Trotzdem bleibe ich bei meiner Kernaussage: Die Praxis ist so begrenzt, dass es im Prinzip *nicht* geht.Na, ich würde das zwar umgekehrt sagen (Im Prinzip gehts, aber die Praxis ist zu begrenzt), aber im Prinzip hast Du Recht.Es stellt sich allerdings die Frage warum?Immerhin kriegt man ja mit diesen drei Funktionen:Code:(defun get-decoded-ele-data (objekt / liste data) (decode-code-ele-data (entget objekt)))(defun decode-code-ele-data (data / liste) (foreach n data (p ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : 90 Grad rotieren
wronzky am 25.08.2005 um 12:39 Uhr (0)
Hallo Dominik!ich hatte hier mal die Funktion get-bounding-box eingestellt. Mit einer kleinen Änderung kriegt man damit auch so eine Art "Schwerpunkt". In Wirklichkeit ist das die Mitte des umschreibenden Rechtecks, aber bei den meisten Grundobjekten damit auch der "Schwerkunkt", bzw. die "Mitte" des Objekts.Hier der geänderte Code:Code:(defun get-bounding-box-center (ename / vlaname minb maxb) (vl-load-com) (setq vlaname (vlax-ename-vla-object ename)) (vla-GetBoundingBox vlaname minb maxb) (setq minb (vla ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : bflösch mtext -> .mtext funzt nicht
wronzky am 16.09.2005 um 11:22 Uhr (0)
Hallo Martin,manchmal hilft auch die AutoCAD Hilfe (Auszug aus der Hilfe zu BFLÖSCH):ObjektARX-Anwendungsbefehle, die mittels acedRegCmd registriert wurden, können Sie aufrufen, indem Sie dem Befehlsnamen eine Punkt (.) voranstellen, gefolgt von dem Gruppennamen des Befehls und einem weiteren Punkt (.). Der Befehl MTEXT kann beispielsweise durch .acad_mtext.mtext aufgerufen werden.]Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelma ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anfängerfrage
wronzky am 16.09.2005 um 12:20 Uhr (0)
Hallo Walter,Du kannst den Index in ssname so lange hochzählen, bis der nil zurückgibt:Code:(setq index 0)(while (setq b (ssname a index)) (print (entget b)) (setq index (1+ index)))Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gummiband ausblenden
wronzky am 23.09.2005 um 12:46 Uhr (0)
Na, wie wäre es denn mit so einem grread-Programm, das so lange rumschiebt, bis wieder die Maustaste gedrückt wird:Code:(defun c:my-move ( / weiter as p1 alt_p1 code) (setq weiter t as (ssget) p1 (getpoint "Basispunkt:")) (setvar "cmdecho" 0) (prompt "
Zweiter Punkt der Verschiebung:") (while weiter (setq code (grread t 5 0)) (setq alt_p1 p1 p1 (cadr code) code (car code)) (cond ((= code 5) (if (not (equal p1 alt_p1)) (command "_move" as "" alt_p1 p1))) ((= code 3) (setq weiter nil)) ) ) (setvar "c ...
|
| In das Form AutoLisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
wronzky am 07.10.2005 um 10:26 Uhr (0)
Zitat:Original erstellt von Peter2:Es zeigt sich, dass- es mit der erhofften "vl-" Funktion anscheinend schlecht ausschautHi Peter!also es gibt sie doch (!):Code:(defun del-1st-ele (liste ele / found) (vl-remove-if (lambda (x) (if (and (= x ele) (not found)) (setq found t))) liste))Ob die nun schneller, geschickter oder langsamer ist, als die bisher besprochenen, wer testets aus?Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman. ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linienstärke Einstellungen ändern...
wronzky am 25.10.2005 um 13:04 Uhr (0)
Und der Vollständigkeit halber:(setenv "LineWeightDisplayScale" "10")Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Skalieren und schieben
wronzky am 26.10.2005 um 17:37 Uhr (0)
Hi Sterei Zitat:Original erstellt von sterei:;(command "_move" ob ip1 sp1) ;von istpunkt nach sollpunkt(command "_move" ob "" ip1 sp1) ;Du musst vorher die Objektwahl abschliessen!Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
