|
AutoLisp : Attributwert ändern!
Markus_cad am 07.05.2004 um 15:37 Uhr (0)
Hallo, hab ein kleines Problem! Ich habe mehrere Zeichnungen, auf denen alle der gleich Block NUMMER drauf ist. In dem Block gibt es eine Attribut, das Zahl heißt. Und möchte jetzt den Attributwert der auf allen Blättern unterschiedlich ist nur von 123_456 in 123/456 ändern. Eigentlich nur aus dem _ einen / machen. Kann mir vielleicht jemand einen Tip für ein Lisp-programm geben. Besten Dank im voraus. Gruß MARKUS
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attributwert ändern!
StephanJP am 07.05.2004 um 15:50 Uhr (0)
Warum ein Lisp? Das geht doch mit dem Text ersetzen aus Acad-Pur! ------------------ gruß Stephan
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attributwert ändern!
Proxy am 07.05.2004 um 16:50 Uhr (0)
hmmmmm, *dummdaherschau* ... ich wusste garnicht dass AC bei -rename auch Attribute als Parameter hat... ------------------ 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 : 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 |
