|
AutoLisp : Text automatisch ersetzen
CADmium am 30.09.2004 um 16:43 Uhr (0)
ok... dann speicher dir folgende Zeilen mal als *.lsp : (defun UPDATE-Title-Block ( INSERTNAME ATTRIBNAME ATTRIBWERT / AUSWAHL INDEX OBJEKTDATEN) (if (= (type INSERTNAME) STR) (setq AUSWAHL (ssget _x (list (0 . INSERT )(cons 2 INSERTNAME)))) ) (if(or AUSWAHL (setq AUSWAHL (ssget _x ((0 . INSERT )))) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJEKTDATEN (entget (ssname AUSWAHL (setq INDEX (1+ INDEX))))) (if (assoc 66 OB ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : durch ersetzen
mapcar am 22.10.2004 um 13:49 Uhr (0)
Ich glaube, du hast da ein Ansatzproblem. Das hier: (str-replace myString "" "") kann es nicht geben, weil es nur einen Fehler verursacht (nicht geschlossene Zeichenkette). Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form AutoLisp wechseln |
|
Lisp : Kreise ersetzen
Brischke am 10.11.2011 um 16:11 Uhr (0)
... es führen bekanntlich viele Wege nach Rom.Das ssnamex ist mir so überhaupt nicht bewusst gewesen, dass es das gibt. Man lernt eben immernoch dazu.Und genau dafür ist ja auch so ein Forum da, weshalb es jetzt wirklich interessant wäre, wie die eigentliche Fragestellung nun gelöst wurde.Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
joern bosse am 30.10.2006 um 14:51 Uhr (0)
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))------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Texte ersetzen
cad-bonn am 11.04.2011 um 14:47 Uhr (0)
Hallo vielleicht kennt jemand eine LISP Routine, die Texte auf zwei Stellen hinter dem Komma mit Null auffüllen kann.Linke Spalte sind die Zahlen die bearbeitet werden sollenRechte Spalte das gewünschte Ergebnis.207.96 207.96207.9 207.90 (Null angehängt)207.93 207.93207.9 207.90 (Null angehängt)208.01 208.01207.79 207.79207.8 207.80 (Null angehängt)mit freundlichen Grüßencad-bonn
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
joern bosse am 15.11.2011 um 07:12 Uhr (0)
@wolfgang,vielleicht sollte man dem Wort Plausibilität ein bißchen mehr Gewicht geben. Ich denke es ist gerade in diesem Fall einfach herauszufinden, wenn immer nur Kreise ausgewählt werden, deren gewünschter Durchmesser doppelt so groß ist, daß sich bei dem GC 40 nicht um den Durchmesser sondern um den Radius handelt.------------------viele GrüßeJörnhttp://www.bosse-engineering.comStammtisch in Wolfsburg http://ww3.cad.de/foren/ubb/Forum491/HTML/000179.shtml
|
| In das Form Lisp wechseln |
|
Lisp : load ersetzen durch irgendwas mit vl...
CADmium am 16.02.2011 um 20:54 Uhr (0)
(not(vl-catch-all-error-p (setq RESULT(vl-catch-all-apply load (list DATEINAME "ERROR") ) ) ))sollte aber auch funktionieren------------------ - 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 |
|
Lisp : Kreise durch Punkte ersetzen
Steff179 am 11.03.2009 um 21:43 Uhr (0)
danke für den comment werde mir das zu herzen nehmen...an dem tutorial von mapcar bin ich dran (gerade jetzt ) aber muss sagen ich halte jeweils nicht lange durch. liegt nicht am tutorial. das ist echt gut.so long ich kämpfe mal weiter.gruss
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
JC Wasti am 30.10.2006 um 13:43 Uhr (0)
Zitat:Original erstellt von Geos:(subst) is für Listen - für Text nimm (substr) Danke Ernst für deine schnelle Antwort.Ich weiß dass "subst" nur für Listen ist.Aber leider geht das mit der Funktion "substr" nicht, denn ich möchte keine AutoLips-Funktion verwenden. Bitte nur reine Lisp-Funktionen!
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
CADmium am 10.06.2009 um 11:14 Uhr (0)
na dann mußt du die funktion auch mit rotate2 aufrufen ...sonst wird deine alte genommen die zufällig rotate heißt ... ------------------ - 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 |
|
Lisp : String in Liste ersetzen
JC Wasti am 03.11.2006 um 08:24 Uhr (0)
Zitat:Original erstellt von clausb:Bei mir tut in Common-Lisp-Dialekten (CLISP, KCL/OneSpace Designer Modeling Lisp) der folgende Code das Gewuenschte:Code:(setq obf (list "A0" "A1" "A2" "A3" "A4"))(substitute "A=" "A2" obf :test #string=)Hi Claus, Danke für deine Antwort.Das geht echt gut und so werd ichs dann auch machen.10Us4u.GrußJC Wasti
|
| In das Form Lisp wechseln |
|
AutoLisp : Listenelemente ersetzen
Bernd10 am 19.07.2005 um 08:44 Uhr (0)
Hallo Kenny1, Zitat: Original erstellt von Kenny1: das klappt wunderbar. Wie sieht der Quellcode bei den dotted Pairs aus ? Z.B (41 . a) ? so sollte es gehen: (setq l41alt (assoc 41 LISTE)) ; alten Wert ermitteln (setq l41neu (cons 41 a)) ; neuen Wert erstellen (setq LISTE (subst l41neu l41alt LISTE)) ; Liste aktualisieren (entmod LISTE) ; Objekt modifizieren Gruß Bernd
|
| In das Form AutoLisp wechseln |
|
Lisp : String in Liste ersetzen
JC Wasti am 30.10.2006 um 14:23 Uhr (0)
Zitat:Original erstellt von spider_dd:Hallo JC Wasti,Deine Liste enthält die Werte samt Anführungsstriche, dein subst muss dann so aussehen:Code:(subst "A=" "A2" obf)lgThomasHallo Thomas,danke für die Antwort, nur leider funktioniert das mit der Quote auch nicht. Hab ich auch schon ausgetestet!Hast du vielleicht noch ne andere Idee / Lösung?
|
| In das Form Lisp wechseln |
