|
Lisp : load ersetzen durch irgendwas mit vl...
CADmium am 17.02.2011 um 08:05 Uhr (0)
Zitat:Original erstellt von wronzky:...schon ausprobiert? Das [onfailure] ist doch genau das gleiche.Grüsse, HenningDachte ich auch, .. deswegen hab ich es auch noch nie errorgecatcht, aber .... des Menschen Wille ist sein Himmelreich ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
P S I am 30.09.2004 um 16:38 Uhr (0)
Hallo Thomas Ja das Attribut befindet sich ja im Plankopf und in allen 75 dwg s ist der selbe Plankopf mit dem selben Attribut... Attribut Name: 0ATTUSER der ist für den INDEX eintrag gedacht. ich suche noch deinen Link...?? in deiner vorgehenden Antwort habi ich mal nach gelesen..doch dieses script verstehe ich nicht. ------------------ Freundliche Grüsse Solution for AutoCAD & Inventor [Diese Nachricht wurde von P S I am 30. Sep. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
|
Lisp : load ersetzen durch irgendwas mit vl...
wronzky am 17.02.2011 um 13:45 Uhr (0)
OK, jetzt habe ich es verstanden. Du willst die Fehler im LISP-Teil der Datei abfangen, und nicht die Dateifehler auf BS-Ebene (Datei nicht gefunden, Lesefehler o.ä.)....Da hast Du mit vl-catch-all-apply natürlich recht.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
CADmium am 14.11.2011 um 11:31 Uhr (0)
(setq Dmin 1.5)(setq Dmax 6.5)(mapcar (lambda(Y)(ssdel Y AWS)) (vl-remove-if (lambda(X ) ( Dmin (setq Y(cdr(assoc 40(entget X)))) Dmax)) (mapcar cadr(ssnameX(setq AWS (ssget "_X" ((0 . "CIRCLE")))))) )) (sssetfirst nil AWS)na dann scheint dein Lispwissen doch noch sehr rudimentär ...... und welche Bsp. aus dem Internet hast du verwendet? ... im Raten sind wir nicht so gut------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte d ...
|
| In das Form Lisp wechseln |
|
Lisp : load ersetzen durch irgendwas mit vl...
wronzky am 16.02.2011 um 17:34 Uhr (0)
Zitat:...bei Fehler abfangen kann...aber bei (load) gibt es doch eine Fehlerroutine: (load filename [onfailure])Press [F1] to continue...Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 16. Feb. 2011 editiert.]
|
| In das Form Lisp wechseln |
 |
Lisp : Diverse Blöcke ersetzen
Merci-Dir am 21.12.2020 um 15:39 Uhr (15)
Hallo cadwomen,wie geschrieben, ich habe einen ganzen anderen Weg eingeschlagen. Aber wenn es einem helfen kann - gerne. Ich habe die Blocktypen TypA, TypB.... als dynamischen Block via Sichbarkeit zusammengefasst. So kann ich auf den LISP-Ausdruck gar verzichten und schalte über die Sichtbarkeitsgriffe die benötigten BlockUntertypen ein. Hoffe es ist nicht zu knapp erklärt.ps: den grünen Haken - (als gelöst) habe ich bereits geschaltet.Grüße
|
| In das Form Lisp wechseln |
|
Lisp : Element aus Liste ersetzen
cadplayer am 31.05.2013 um 13:04 Uhr (0)
@reltro:Vielen Dank für deine Funktion. Auch wenn sie schwer durchschaubar aussieht, warum hast du denn alles so in Unterfunktionen verschachtelt?Ich müsste nur wissen, wie folgende Symbole und variablen bedient werden?Code:setter data key newValue subdata otherdata key nose tailOder anders herum gefragt, wie könntest du mit deiner Funktion meine Liste manipulieren?------------------Gruss Dirkhttp://cadplayerlounge.blogspot.se
|
| In das Form Lisp wechseln |
|
Lisp : load ersetzen durch irgendwas mit vl...
Andreas Kraus am 16.02.2011 um 22:50 Uhr (0)
@HenningWenn die Datei mit der Datenliste aus irgend einem Grund (Abbruch beim schreiben,...) einen Fehler enthält bricht mir normalerweise das ganze Programm mit einer Fehlermeldung ab.Mit dem Code von Thomas nicht mehr, jetzt kann ich irgendwie darauf reagieren (kommt auf die Situation an).------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
CADmium am 30.09.2004 um 15:34 Uhr (0)
Text? Attribut? Plankopf? .. Also , wenn es sich beim Plankopf um eine Blockrefernz mit Attributen handelt, und der Block- und der Attributname in allen Zeichnungen gleich ist.. dann könnte dir ein Umstricken des Tools aus diesem weiterhelfen... ...wenn nicht - dann auch, aber mit mehr Änderungsaufwand. ------------------ - Thomas - Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
| In das Form AutoLisp wechseln |
|
Lisp : String in Liste ersetzen
JC Wasti am 30.10.2006 um 15:06 Uhr (0)
Zitat:Original erstellt von joern bosse:Hallo Wasti,na ein Versuch noch ohne subst:Code:(defun c:test2 ( / obf1) (setq obf (list "A0" "A1" "A2" "A3" "A4")) (while obf (if (=(car obf)"A2") (setq obf1 (cons "A=" obf1)) (setq obf1 (cons (car obf) obf1))) (setq obf (cdr obf))) (reverse obf1))Danke Jörn für dein Bemühen.Du hast mich auf ne Idee gebracht. Aber so gehts auch!10Us4U!
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
Brischke am 09.11.2011 um 10:56 Uhr (0)
Zitat:Original erstellt von CADmium: besser (repeat (sslength AUSWAHL) .... denk an das Laufzeitverhalten und die Zeit, was die ständige Prüfung kostet .. wie Axel schon sagte: "...auch wenn die Prozessoren immer schneller werden, muss man sie deshalb noch lange nicht quälen ...."... oder noch besser mit (mapcar (lambda (EL) ..)(if aws (bau_elemli aws)))siehe dazu auch hier:Grüße Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen. defun-tools Das Downloa ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
Meldin am 14.11.2011 um 21:54 Uhr (0)
Zitat:Mans kanns auch übertreiben!Hehe ja hast du in deinem Post gerade bewiesen. Ich denke du weist selber wie das ist wenn man solche Sachen verdreht und sich dann auf die suche begeben muss.Und gerade Sachen die man sich in aller klarheit Namentlich ablegt wie Durchmesser und man nie einen Durchmesser in der Größe finden wird. Weil dann kann eine Fehlersuche für jemanden der noch nicht so Fit ist so enden ------------------Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
CADmium am 14.11.2011 um 20:06 Uhr (0)
Mans kanns auch übertreiben! .... dann darf die Variable auch nicht Y heißen ... und in der engl. Version auch nicht Durchmesser und in dem lambda baucht man das Y gar nicht .. ( das wäre evtl. noch konstruktiv gewesen)(setq MinValue 1.5)(setq MinValue 6.5)(mapcar (lambda(Y)(ssdel Y AWS)) (vl-remove-if (lambda(X ) ( MinValue (cdr(assoc 40(entget X))) MaxValue)) (mapcar cadr(ssnameX(setq AWS (ssget "_X" ((0 . "CIRCLE")))))) )) (sssetfirst nil AWS)------------------ - Thomas - "Bei 99% aller Probl ...
|
| In das Form Lisp wechseln |
