|
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
Brischke am 10.05.2004 um 10:30 Uhr (0)
Hallo Ralph, Ist vielleicht noch irgendein anderer Befehl aktiv? Was steht denn im Textfenster? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
Brischke am 10.05.2004 um 10:38 Uhr (0)
Hallo Ralph, verändere mal die Zeile (setvar CMDECHO 1 ) auf 1 dann schau noch einmal, was im Textfenster so steht. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
Brischke am 10.05.2004 um 11:17 Uhr (0)
Sicher, dass dieser Layer 0_Li_Cy_013 existiert? Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : acad_strlsort
Bernd10 am 10.05.2004 um 11:26 Uhr (0)
Hallo Achim, Zitat: Original erstellt von Dabrunz: Code: .. ((and (or (= ibuken1 4) (= ibuken2 4)) (or (= ibuken1 3) (= ibuken2 3))) (setq svglwinexpl t) ; -- das ist unnötig - siehe (1) ) .. Diesen bisherigen Code habe ich wie folgt ersetzt: ((and (= ibuken1 4) (= ibuken2 3)) (setq svglwinexpl t) ) ((and (= ibuken1 3) (= ibuken2 4)) (setq svglwinexpl nil) ) Zitat: Original erstellt von Dabrunz: Versuche hiermit einmal ( 1 7 _ - 1 : 0 ) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
Brischke am 10.05.2004 um 11:48 Uhr (0)
Hallo Marc,wozu ist dies: (if ( (- (length LST) (length (vl-remove ELEM LST))) 1) überhaupt drin? Es ist doch gar nicht notwendig, das Element von der Liste zu entfernenDeshalb dann soCode:(defun DOUBLES? (LST / RETVAL) (foreach E LST (if (not (member E RETVAL)) (setq RETVAL (cons E RETVAL)) ) ) (reverse RETVAL) );oder an Stelle der (foreach ..) (mapcar (lambda (E) (if (not (member E RETVAL)) (setq RETVAL (cons E RETVAL)) ) ) LST )Grüße Holger------------------Holger Brischke(defun - ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
Brischke am 10.05.2004 um 12:45 Uhr (0)
Hallo Marc,Ok, habe es nicht getestet, nur überflogen und dann geschrieben.Hier deshalb das ganze ohne (vl-..) und so wie du es benötigst. Ich habe das ganze dann auch so gemacht, dass du mal dies und mal jenes als Ergebnis erhältst.Code:(defun DOUBLES? (LST WIE / RETVAL CHECK);|WIE - T = Liefert die doppelten Einträge der Liste LSTWIE - nil = Liefert die nicht doppelt vorhandenen Einträge der Liste LSTBSP:(DOUBLES? (0 1 2 3 4 5 6 6 7 8 9 6 11) T); - (6)(DOUBLES? (0 1 2 3 4 5 6 6 7 8 9 6 11) nil); - (0 1 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : schnitt linie mit kreis/lwpolylinie
Brischke am 10.05.2004 um 13:44 Uhr (0)
Hallo Jan, Die Berechnung von Schnittpunkten ist doch seit vlax-... überhaupt kein Problem mehr. Schau mal in der VBA-Hilfe nach der Methode IntersectWith . Ebenso kannst du mal auf den einschlägig bekannten Sieten mal etwas die Suchfunktion mit desem Begriff quälen oder eben stöbern. Du wirst bestimmt fündig. z.B. hier Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
marc.scherer am 10.05.2004 um 18:11 Uhr (0)
Hi ABDN, das Acad unter irgendwelchen Umständen ab so ca. 2002 Probleme mit dem setzen der Sysvar CLAYER aus AutoLisp heraus hat, kenne ich schon. Habe schon seit Jahren ein Lisp im Einsatz, welches mir Layer so setzt, wie sie aus ner externen Parameter-Datei kommen. Lief immer bestens mit setvar clayer am Ende bis irgenwann (R2002??) sporadisch die Fehlermeldung: Fehler: Einstellung für AutoCAD-Variable zurückgewiesen: CLAYER kam. Daraufhin habe ich mein Tool abgeändert. Den aktuellen Layer stell ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gleicher Wert in einer Liste finden
tom.berger am 10.05.2004 um 21:52 Uhr (0)
Zitat: Original erstellt von Manuel Sauter: Hallo Zusammen, ich habe eine Liste mit zugelassenen Wandstärken (setq zulWst (list 50.0 100.0 150.0 200.0 250.0 300.0 350.0)) Aus einer Berechnung erhalte ich die tatsächliche Wandstärke nWst1 Nun würde ich gern überprüfen ob die errechnete Wandstärke in der zulässigen Liste vorhanden ist. Aus den Beiträgen des Forums habe ich erkannt das ich mit member nicht weit komme. Ich denke ich muß mit dem Befehl equal arbeiten, da ich hier ja kleine Abweichungen von ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gleicher Wert in einer Liste finden
mapcar am 11.05.2004 um 02:42 Uhr (0)
@achim: gesetzt den Fall, die Lösung darf VLISP verwenden Machen wir das jetzt mit? Jede Lösung ist willkommen, Hauptsache, es kommt kein V im Funktionsnamen vor? --- vl-some ist ein stinknormale Lisp-Funktion, hat ja mit dem ganzen vla-...-Kram absolut nichts zu tun. Der Namenszusatz vl- resultiert aus kaufmännischen Gegebenheiten, aber nicht aus inhaltlichen. Egal, da kommt es sowieso auf das lambda an, das Drumherum ist nicht so wichtig. Gruß, Axel gesetzt den Fall, die Lösung darf VLISP verw ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attributwert ändern!
Markus_cad am 11.05.2004 um 07:32 Uhr (0)
Hallo Marc, danke mal für Dein Lisp. Aber hättest Du mir noch ein Bsp. für die cons Liste? Wo muß der Elementname des Blockes stehen? Danke Gruss MARKUS
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp automatisch starten...
CADmium am 11.05.2004 um 08:30 Uhr (0)
du hast zum Menu auch eine *mnl Datei erstellt in der dann auch die Zeile (load LISP.lsp ) vorkommt? Die *mnl wird beim Laden des Menus mit ausgeführt und damit auch alle darin enthaltenen Anweisungen... d.h. einfach die load-Zeilen für deine Lisps mit reinpacken ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 11. Mai. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
