|
Lisp : Datei mithilfe von LISP verändern
joern bosse am 27.02.2008 um 13:58 Uhr (0)
Hallo Lispelmann,und hier nochmal ein Beispiel zu Thomas seinen Ausführungen:Code:;;;Datei schreiben(defun SCHREIBEN (dateiname liste / datei) (setq datei (open dateiname "w")) (mapcar (lambda(A) (write-line (cadr A) datei))liste) (close datei));;;Datei lesen(defun LESEN (dateiname / zeile datei liste n) (if(setq datei (open dateiname "r")) (progn (setq n 1) (while (setq zeile (read-line datei)) (setq liste (cons (list n zeile) liste)) (setq n (+ n 1))) (close datei))) (reverse liste));;;Zeile e ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Handle und-color: #FFFF99'>suchen
joern bosse am 05.03.2008 um 12:44 Uhr (0)
Hei Marc, Zitat:Na Jörn, DAS kannst doch besser...Na klar kann ich das besser, das wissen sogar meine Kunden ------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Mtext auf Textstil ändern
joern bosse am 16.01.2006 um 09:36 Uhr (0)
Hallo Hänk,probier mal folgenden Code, überprüfe aber bitte die Ergebnisse da ich es nicht großartig getestet habe!!!Code:(defun c:textstil_mtext ( / aws n string) (princ "
Bitte und-color: #FFFF99'>Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws)(setq string (cdr(assoc 1 (entget (ssname aws n)))))(while (vl-string-search "f" string) (setq string (strcat (substr string 1 (vl-string-search "f" string))(substr(substr string (+ 4 (vl-string-search"f" string)))(+ 2 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : mtext und farbe von layer
joern bosse am 09.05.2005 um 15:50 Uhr (1)
Hallo,ich habe ein bißchen gebastelt, im kleinen Testdurchlauf hat es auch funktioniert.Die Funktion entfernt nur die Formatierungen für die Farbe, die geschweiften Klammern bleiben erhalten, falls noch weitere Formatierungen enthalten sind.Ihr könnt das ja mal ausprobieren und die Ergebnisse aber bitte prüfen.;;;Jörn Bosse, 09.05.05(defun c:farbe_mtext ( / aws n string) (princ "
Bitte und-color: #FFFF99'>Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws) (setq ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 16:46 Uhr (0)
Hallo Udo,danke für die Info, werds mir merken. Aber die eigentliche Frage hat sich ja wohl dann erledigt, mit vla-explode kann ich keine und-color: #FFFF99'>MTexte in den Urpsrung zerlegen, gibt es sonst noch eine Alternative zu command?------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 16:46 Uhr (0)
Hallo Udo,danke für die Info, werds mir merken. Aber die eigentliche Frage hat sich ja wohl dann erledigt, mit vla-explode kann ich keine und-color: #FFFF99'>MTexte in den Urpsrung zerlegen, gibt es sonst noch eine Alternative zu command?------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 19.05.2011 um 11:16 Uhr (0)
Hallo Marco,vielen Dank, das kann ich glaube ich gebrauchen. Ich habe die Funktion jetzt in einigen Varianten ausprobiert und das Ergebnis war immer so, wie ich es brauche.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 19.05.2011 um 06:59 Uhr (0)
Hallo Marco,danke für die Variante, leider verhält sich VL-CMDF zur Laufzeit eines DCL-Dialogfensters genauso wie COMMAND = keine Rückmeldung = ALT-STRG-ENTF------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 15:46 Uhr (0)
Hallo Heiko,das hatte ich auch gesehen, beim "dumpen" eines Blockes wird "explode" aber auch nicht mit aufgeführt, das hatte mir dann ein wenig Hoffnung gegeben.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 15:46 Uhr (0)
Hallo Heiko,das hatte ich auch gesehen, beim "dumpen" eines Blockes wird "explode" aber auch nicht mit aufgeführt, das hatte mir dann ein wenig Hoffnung gegeben.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 19.05.2011 um 08:59 Uhr (0)
Hallo CADmium,ich verwende eine ProgressBar mit Hilfe einer DCL-Datei, und da ist die Einschränkung, daß ich keine Command-Befehle verwenden kann - wegen DCLSiehe auch http://ww3.cad.de/foren/ubb/Forum145/HTML/003121.shtml#000009 Und den Mtext muss ich zerlegt haben, weil ich für eine Transformation an die Mittelpunkte der einzelnen Zeilen rankommen muss.Soweit der Hintergrund.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 15:36 Uhr (0)
Wenn ich mit folgender Zeile einen Block in den Ursprung zerlege ist alles in Ordnung.(vla-explode (vlax-ename-vla-object(car(entsel)))Wenn ich damit einen MText zerlegen will funzt es nicht, es kommt folgende Meldung: Zitat:Fehler: ActiveX-Server gab folgenden Fehler zurück: unbekannter Name: ExplodeGeht das nicht oder mache ich was falsch?!?------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 15:36 Uhr (0)
Wenn ich mit folgender Zeile einen Block in den Ursprung zerlege ist alles in Ordnung.(vla-explode (vlax-ename-vla-object(car(entsel)))Wenn ich damit einen MText zerlegen will funzt es nicht, es kommt folgende Meldung: Zitat:Fehler: ActiveX-Server gab folgenden Fehler zurück: unbekannter Name: ExplodeGeht das nicht oder mache ich was falsch?!?------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
