|
Lisp : Doppelte Listeneinträge entfernen
Meldin am 16.04.2014 um 11:16 Uhr (1)
Also nach einigen Tests sollte Aufgrund eines Fehlers meinem Code erstmals nicht verwendet werden Sorry. ------------------Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden.
|
| In das Form Lisp wechseln |
|
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 : Doppelte Listeneinträge entfernen
Meldin am 17.04.2014 um 13:59 Uhr (1)
@ archtools Schade das du die einzelnen Funktionen und deine Listen Konstruktion nicht gepostet hast. Aber probiere es mal mit der Liste.Code:(SETQ i 1.0) (REPEAT 5000 (SETQ Liste (CONS (- 5000 i) (CONS i Liste)) i (+ 2 i) ) ) Und zeig dann mal was hier deine Zeiten sagen.@CadFFM Achtung es kommt immer darauf an was man verwursten will Append ist für listen gedacht nicht für einzelene Elemente da hat cons die Nase vorn, habe damals dafür einen Test erstellt solltest du dir mal ans ...
|
| In das Form Lisp wechseln |
|
Lisp : Sortierung Masstabsliste
Meldin am 25.03.2019 um 09:27 Uhr (1)
Ja so ist es weil das Beschriftungsobjekt einen verweis auf den Maßstab hat und im grunde in dem prog jedem Maßstab ein neuer Wert zugewiesen wird. Aber der Verweis bleibt der gleiche. Und wie schon erwähnt Zitat:ich gebe noch zu bedenken ein entfernen und hinzufügen so auf keinen fall ratsam Und da sagen die Jungs hier immer die hätten keine Glaskugel Du hast natürlich jetzt auf meine Spielerei aufgabaut die ich dir gezeigt habe.Da du keinen Ansatz hattest sollte es dir zeigen wie du an die Maßstab Da ...
|
| In das Form Lisp wechseln |
|
Lisp : Excel Daten aus sheet einlesen
Meldin am 09.06.2015 um 09:16 Uhr (1)
Zudem was Holger erwähnt hat möchte ich noch eine Idee anhängen die mir gestern eingefallen ist. Zitat:Mit dem Abfragen des UsedRange hatte ich in der Vergangenheit so meine Probleme, da Excel mitunter auch den Bereich als genutzt kennzeichnet, in denen nur irgendwelche Zell-Formatierungen vorgenommen wurden und keine Werte enthalten sein müssen. Für den Fall das es vorkommenkann das man massig leere Datensätze hat könnte man über Code:(setq UsedUsedRange (vlax-invoke-method (vlax-get-property ExcelSeite " ...
|
| In das Form Lisp wechseln |
|
Lisp : Sortierung Masstabsliste
Meldin am 24.03.2019 um 08:50 Uhr (1)
Hallo das ist der Punkt den dir cadffm schon beschreiben hat.Zitat: aber da wir nicht alle Fakten kennenist das schwierig zu helfen. Ich drücke dir mal die Daumen, also Helfer steige ich hier wohl aus (sorry)Wie ist denn Zitat: unberücksichtigt lassen von dir gemeint XRef-Scale löschen = dann lösch ihn.XRef-Scale übergehen (so lassen wie er ist) = dann schreib ihn einfach wieder zurrück.XRef-Scale ans ende verschieben = dann liste neu Sortieren.aber ich denke mal du willst sie löschen.Daher wäre der Ablauf ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Listeneinträge entfernen
Meldin am 15.04.2014 um 15:36 Uhr (1)
@ Theodor -ikarus- hat keine Vorgabe gegeben wie lang seine Liste ist als bin ich auch der Liste des vorhergehenden Beitrag gefolgt. 10000. Da wird dein Code viel zu langsam. Ansonsten ist er in Ordnung.@ archtools Anhand der Auswertung von CAD-Huebner liegen mir folgende Auswertungen mit den verschiedenen Listenlängen vor. Wie hast du es getestet?Mit 2000 Einträgen!Zitat:Test beginnt...0% Doppelte...(DOUB-CADWIESEL 0.227 sec.)(DOUB-MELDIN 0.011 sec.)(REMOVEDUPLICATE 0.174 sec.)50% Doppelte... Member ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute bearbeiten
Meldin am 25.08.2011 um 13:33 Uhr (0)
Also wenn du einen Insert (Objekt) hast z.B. (setq MyBlockObj(car (entsel "
Block wählen : ")))fragst du hat er Attribs also assoc 66 entget MyBlockObjwenn ja solltest du MyBlockObj entnexen (entget(setq MyBlockObj(entnext MyBlockObj))) und das dann so lange bis bei assoc 0 "SEQEND" erscheint.Und dann hast du es vom Start von entnext bis zu seqend liegen dann deine Daten.Zudem habe ich mal aus meiner Sicht die Möglichkeiten zusammengefasst die mir ad-hoc eingefallen sind von einem Attribut das Schriftfeld ...
|
| In das Form Lisp wechseln |
