|
AutoLisp : Höhenkote Lisp Code 3 Fragen
otterloh am 07.05.2004 um 16:54 Uhr (0)
@ABDN Ralph, es ist nicht üblich u.a. Zeilen aus dem Programm zu entfernen. ;************************************************************ ;HKATTS.lsp ;Benötigt HKATTS.dwg , Layer BEM ;(C) Copyright Konstruktionsbüro W. MEYER, D-85649 Otterloh, 16.12.2002 ;************************************************************ ------------------ Gruß Werner http://Meyer-Werner.bei.T-Online.de
|
In das Form AutoLisp wechseln |
|
AutoLisp : Attributwert ändern!
Proxy am 07.05.2004 um 17:09 Uhr (0)
stehst nicht mehr auf dem Schlauch ... leider hat dieser Befehl IMHO keine Optionen d.h. mann kann es nicht scripten. Aber mit n Lisp könnte es gehen. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
In das Form AutoLisp wechseln |
|
AutoLisp : Attributwert ändern!
marc.scherer am 10.05.2004 um 08:33 Uhr (0)
Hi Markus_cad, hier ein uraltes Lisp von mir, welches Dir helfen könnte: Code: ;;; 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 CHK OBJDATA TXTWRT) (setq ATTNAME (car CHANGELST) TXTWRT (cdr CHANGELST) OBJDATA (entget OBJNAME) ) ;_ end of setq (while (/= (cdr (assoc 0 OBJDATA)) "SEQEND") ...
|
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
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 |