|
Lisp : Doppelte Listeneinträge entfernen
Meldin am 14.04.2014 um 13:21 Uhr (1)
Hallo Theodorich habe mal deine Funktion ausprobiert mit der ersten Liste aus dem verlinkten Beitrag und bei mir bekommt sie kalte Füße ich musste sie abbrechen weil es einfach viel zu lange dauerte. Hier mein Testcode:Code:(SETQ i 1.0)(SETQ Liste1 nil) (REPEAT 5000 (SETQ Liste1 (CONS i (CONS (1+ i) Liste1)) i (+ 2 i) ) )(defun REMOVE_DOUBLES (LST) (if LST (cons (car LST) (REMOVE_DOUBLES (vl-remove (car LST) LST))) ))(REMOVE_DOUBLES Liste1)Kann das noch jemand nachvollziehen ? ------------------Gruß W ...
|
| In das Form Lisp wechseln |
 |
Lisp : transparenter Befehl _reraw
Werner-Maahs.de am 27.01.2011 um 14:55 Uhr (0)
Hallo,ich habe eine kleine Routine in der ich grdraw verwende. Die damit erzeugten Linien möchte ich ohne den Befehl zu verlassen entfernen.Ich habe dafür die ZeileCode:(command "_redraw")eingefügt.Leider erhalte ich eine Fehlermeldung. Wenn ich diselben Zeichen von Hand eingebe werden die GRDRAW-Linien entfernt.Das Bild zeigt einen Textbildschirmausschnitt in dem der erste "_grdraw"-Eintrag von Lisp, der 2. Eintrag manuell erfolgteHat jemand eine Lösung?------------------strukturiertes Zeichnen mit Werner ...
|
| In das Form Lisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
Dabrunz am 06.10.2005 um 11:52 Uhr (0)
Tag zusammen.Was hier im Forum an Perlen versteckt ist, überrascht mich immer wieder. Nur noch eine kleine Korrektur an benwischs Code:Code:(defun bw_remove1st (#lst #val) (cond ((null #lst)nil);** das macht MEMBER unnötig ((= (car #lst) #val) (cdr #lst) ) (sonst;** Rekursion (cons ;** das lambda-Konstrukt tat ja vorher auch nix anderes (car #lst) (bw_remove1st (cdr #lst) #val) ) ) ))Nachtrag: Wenn die Liste zu lang wird, resultiert das u.U. in ein schicken Stack-Overflow, insbes. wenn der zu en ...
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien-Stützpunkte entfernen mit entdel
Uwe Neumann am 12.08.2008 um 12:28 Uhr (0)
Hallo Jörn,leider muss das Objekt als Polylinie in der Zeichnung bleiben, da an ihm noch XDATA hängen. Die Polylinie wurde in einem anderen CAD-System erzeugt und muss auch wieder so übergeben werden. Leider wurden bei der Ausgabe aus dem anderen System dort überflüssigerweise Punkte eingefügt - wie und warum: keine Ahnung. Sie liegen genau in der Flucht zwischen AP und EP.Es besteht nun die Aufgabe, diese Polylinien lagemäßig zu ändern - d.h. AP und EP muss geringfügig geändert werden. Um das realisieren ...
|
| In das Form Lisp wechseln |
|
Lisp : Datenbank Zugriff nach Neuinstallation von XP
Niggemann am 08.04.2007 um 23:22 Uhr (0)
Hallo Leutehabe mein Problem gefunden es war das Sicherheitsupdate von Microsoft mit dem Namen: KB 927779 .Selbst die neuste Version von ADOLisp = ADOLisp250 kann das Problem nicht lösen es wird zwar audrücklich darauf hingewiesen aber es stimmt nicht ganz. Nach dem Entfernen des Mirosoft Update läuft mein Lisp wieder normal. Ich Danke Micosoft für einen sinnlos verschwendeten Tag.Mein Tipp last die Finger weg von dem Sicherheitsupdate KB 927779, es macht euren rechner so Sicher das nichts mehr geht.Grüße ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Pfade zu appload/Inhalt über Lisp hinzufügen ?
Juergen55 am 16.03.2005 um 22:10 Uhr (0)
Hallo, ist es möglich über Lisp Pfade zu appload/Inhalt hinzufügen, hab jetzt auf die Schnelle nichts in der Hilfe gefunden ! Dann hab ich noch eine andere sache, Supportpfade gehen ja in der Art: (setenv ACAD (strcat (getenv ACAD ) ; D:MY-PROFIL )) sieht dann so aus: (D:Pfad1;D:Pfad2;D:Pfad3;D:Pfad4;D:Pfad5;D:Pfad6 Ist soweit ganz gut, aber wie kann ich den Supportpfad dann wieder entfernen ? Das ist ja keine normale Liste mehr, gibt es einen Befehl wie VL-REMOVE ? Gruß, Jürgen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Elemente aus Blockreferenz entfernen
Brischke am 30.06.2005 um 12:26 Uhr (0)
Hallo Wolfgang, versuch es mal mit (vla-delete (vlax-ename- vla-object CurrObject)) anstelle des (entdel CurrObject) (ich habe es nicht getestet, aber mit (vla-delete lässt sich Erfahrungsgemäß einiges mehr löschen) EDIT: Was mir eben auch noch aufgefallen ist: Du kannst nicht mit (entnext ..) auf ein bereits gelöschtes Element gehen. Sammle also zunächst mal alle Blockelemente ein und vergleiche danach und lösche. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : einzelne elemente speichern
stk am 02.05.2006 um 10:22 Uhr (0)
ist es grundsätzlich machbar,aus einer Zeichnung Einzelne Elemente in DWG mit Lisp abzuspeichern? bsp.in einer geöffneten Dwgzeichnung sind mehere Zeichnungen vorhanden,wobei davon nur eine zur Weiterverarbeitungbenötigt wird.Es ist mühsam, jedesmal die gesamte Zeichnung unter einen anderen Namen abzuspeichern, und wieder zu öffnen , um die nicht gebrauchten Zeichnungen zu entfernen, so das nur die benötigte Zeichnungübrig bleibt.Also: Zeichnung öffnen,mit Lisp die benötigten Elementemackieren und abspeich ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Rückgabe von (command... an Variable
cadking am 03.11.2019 um 09:09 Uhr (1)
Hallo Lispler,gibt es eine Möglichkeit, dass was der Befehl (command "... zurückgibt an ein (setq zu übergeben?Beispiel:(command "-xref" "_r" "296_G-05-Überströmung")gibt zurück:-xrefOption eingeben [?/Binden/Lösen/Pfad/pFadtyp/Entfernen/Neuladen/Überlagern/Zuordnen] Zuordnen: _rNamen für neu zu ladende XRef(s) eingeben: 296_G-05-ÜberströmungXRef "296_G-05-Überströmung": ..........GebäudemoduleGebaeude 296IntegrationsplanungDeckeÜberströmung296_G-05-Überströmung.dwg"296_G-05-Überströmung" ist unreferenzier ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute extrahieren CDF-Format
cm-Zeichner am 05.03.2012 um 08:50 Uhr (0)
Hallo zusammen!Die Daten vieler Punkt-Blöcke sollen in einem ASCII-File geliefert werden.Punktnummer - numerischX-Koordinate Blockeinfügepunkt - numerischY-Koordinate Blockeinfügepunkt - numerischTextattribut 1 ZeichenTextattribut 5 Zeichen (ist zwar eine Zahl, wegen vorangestellter Nullen aber Text)So muß nun geliefert werden - Beispiel27;341.17;352.92;G,05005Hab mir dazu folgende Vorlagendatei geschriebenC:QUOTE aC ELIM ;BEZ N011000BL:X N010002BL:Y N009002IND C001000KG_NR C005000Mit _. ...
|
| In das Form Lisp wechseln |
|
Lisp : Datei mithilfe von LISP verändern
Lispelmann am 27.02.2008 um 13:29 Uhr (0)
Hallo an alle,mich plagt ein kleines Problem. Kann mir jemand einen Tip geben? Mein Problem: Ich habe eine Textdatei mit 25 Zeilen. Die Zeilen bestehen entweder aus Text (1 bis 2 Wörter) oder aus einer Dezimalzahl. Aufgrund neuer Variablenwerte aus der Zeichnungsebene möchte ich durch eine Lisp-Routine die Inhalte von 3 Zeilen (z.B. Zeile 10, 11 und 12) neu belegen, das heisst, die alten Werte entfernen und diese durch die neuen Variablenwerte ersetzen. Der Rest der Zeilen soll unverändert bleiben. Kann ma ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
woppi am 02.06.2010 um 17:27 Uhr (0)
Zu der Angelegenheit, einen vorhandenen AWS zu filtern der nicht mehr der "letzte" ist (also "_P") nicht funktioniert, habe ich als Lisp Anfänger folgenden Code geschrieben:(command "_select" aws "") (setq aws (ssget "_P") ;setzt den aws wieder aktuell awsPoint (ssget "_P" ((0 . "POINT"))) ) ; Auswahlsatz Punkte um Punkte nach unten zu verschieben (command "_select" aws "e" awsPoint "") ;Punkte aus aws entfernen (command "_draworder" awsPoint "" "U") ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Kann man Variablen dauerhaft...
cadffm am 28.11.2012 um 08:48 Uhr (0)
@JörnDu stehst direkt vor dem Wald der dir die Bäume verdeckt, da müßte man doch etwas mehr als einen Punkt entfernen oder ?(Schreibfehler in der R14-Hilfe)Zitat:(defun C:MAKEXRECORD ( / xrec xname ) ; Erstellen der Xrecord-Datenliste (setq xrec ((0 . "XRECORD") (100 . "AcDbXrecord") (1 . "Dies ist eine Testliste") (10 1.0 2.0 0.0) (40 . 3.14159) (50 . 3.14159) (62 . 1) (70 . 180)) ) ; Entmakex zur Erstellung eines Xrecord ohne Besitzer verwenden (setq xname (entmakex xrec)) ; Neuen ...
|
| In das Form Lisp wechseln |
