|
AutoLisp : Programmteile laden
CADwiesel am 05.05.2004 um 16:27 Uhr (0)
du brauchst initget such mal dazu ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Problem bei Routine zum Durchsuchen einer Entity-Liste
CADwiesel am 06.05.2004 um 16:26 Uhr (0)
(if (member(cdar bementlist) ( AcDb3PointAngularDimension AcDb2LineAngularDimension )) (progn..... ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Problem bei Routine zum Durchsuchen einer Entity-Liste
C. Wincziers am 06.05.2004 um 16:37 Uhr (0)
Hallo Cadwiesel, uff, das ging aber schnell. Und geholfen hat es (natürlich) auch, aber mich würde interessieren, warum mein Konstrukt nicht so funktioniert, wie es soll. Du hast ja mein Problem mit member nur umgangen....(dafür danke ich Dir aber recht herzlich). Mit freundlichen Grüßen, Christian Wincziers
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Problem bei Routine zum Durchsuchen einer Entity-Liste
CADwiesel am 06.05.2004 um 16:44 Uhr (0)
Hilft dir in dem fall nicht der GC 70 weiter? Habs nur mal kurz ausprobiert aber das ist ein unterschied zwischen den verschiedenen bemarten (70 . 34) - (100 . AcDb2LineAngularDimension ) (70 . 33) - (100 . AcDbAlignedDimension ) (70 . 32) - (100 . AcDbAlignedDimension )(100 . AcDbRotatedDimension ) ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Problem bei Routine zum Durchsuchen einer Entity-Liste
C. Wincziers am 06.05.2004 um 17:25 Uhr (0)
Hallo Cadwiesel, ja, hatte ich auch schon probiert. Das sind Bitwerte für die Bemaßungstypen (u.A. auch für eine individuelle Position der Bemaßung usw.). Wie ich allerdings diesen Bitwert in Lisp so herunterrechne, das ich damit auf meine benötigten Bitwerte von 1....5 komme, weiß ich nicht. Das müßte ja irgendwie mit Ganzzahlen gehen..... Mit freundlichen Grüßen, Christian Wincziers
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Höhenkote Lisp Code 3 Fragen
CADwiesel am 10.05.2004 um 09:00 Uhr (0)
na, da bin ich aber froh, das ich so einen Quatsch erst garnicht in meine Programme reinschreibe - Copyright - Kaputtlach und wegschmeiß ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
CADwiesel am 10.05.2004 um 10:02 Uhr (0)
die Fehlermeldung ist nicht Vollständig. Er sagt sicherlich, das der CLAYER nicht gesetzt werden kann. Du musst sicherstellen, das der Azsgangslayer auch noch vorhanden und nicht gefrohren o.ä. ist. ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
CAD-Huebner am 10.05.2004 um 23:26 Uhr (0)
Zitat:Original erstellt von CADwiesel:die langsamkeit von While dürfte doch Axel zur genüge erklärt habenHallo CADwiesel,deine Anmerkung hab ich zum Anlass genommen, das Problem genauer zu untersuchen. Übrigens die Seiten von Axel (mapcar) sind für mich Kult, allerdings hab ich einen Vergleich von Axel zwischen while und foreach aktuell nicht parat und auch auf die Schnelle bei CAD.de und google.de nichts gefunden.Hier mein Test: Ich hab alle hier geposteten Quelltexte (ausser von Dabruns, da hier die Auf ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
CAD-Huebner am 11.05.2004 um 07:58 Uhr (0)
Hier noch eine Variante, die alles andere in den Schatten stellt, da sie mit den Testdaten etva 100 mal schneller als die anderen Funktionen ist:Es wird vorher sortiert, dann kommt man ohne die Member-Funktion aus. Die Funktion benutzt allerdings vl-sort, welches sich bei Integern ungewöhnlich verhält.Zum Vergleich noch mal eine Gegenüberstellung mit Fuchsis Code.[Nachtrag]Dabruns ist zwar nicht Axel, hat die Funktionsweise der Codeansätze und deren Laufzeitverhalten aber ebenso gut erklärt. Sein Code mit ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Attributwert ändern!
CADwiesel am 11.05.2004 um 08:36 Uhr (0)
Hier die gesamte Funktion (defun tauschdas ( / as) (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ;_ end of setq ) ;_ end of repeat elemli ) ;;; Funktion tauscht Attributwerte aus. ;;; Zu übergeben ist eine cons List aus ;;; ("ATTBEZEICHNUNG" . "NEUER TEXTWERT") ;;; sowie der Elementname des Blocks, dessen Werte verändert werden sollen (defun ED-ATT (CHANGELST OBJNAME / ATTNAME BACK CH ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attributwert ändern!
Markus_cad am 11.05.2004 um 10:56 Uhr (0)
Danke CADwiesel, das hier ist ein echt hilfreiches Forum. Weiter so! Gruß MARKUS
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mehrere Zeichnungen mit Script bearbeiten
CADwiesel am 11.05.2004 um 14:44 Uhr (0)
auch ruhig mal nach scriptpro suchen ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
CAD-Huebner am 11.05.2004 um 15:56 Uhr (0)
Hallo Axel,hatte ich doch tatsächlich vergessen den Code mit dem Sortieransatz zu posten, welcher ungleich schneller war.Hier ist er, deshalb konnte Marc mit meiner Codeänderung 2 Beiträge vorher ja auch gar nichts anfangen.Hab wieder das langsamere While genommen (Tschuldigung Cadwiesel, aber ich hab einen Hang zu While Schleifen), das hier eber keinen signifikanten Nachteil aufweist - oder?Code:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(DEFUN DOUB-HUEBNER3 (lst / elem retval cnt) ; Achtung, diese Routine funktion ...
|
| In das Form Lisp wechseln |
