|
Lisp : Hilfe bei command schleife
CADmium am 28.08.2012 um 10:14 Uhr (0)
wie sieht dir Datendatei denn nun überhaupt aus ?bis dahin ein paar Funktionen mit nur einer Aufgabe;; Funktion zum Einlesen einer Datei(defun DT:TEXTFILE-LST (DATEINAME / DATEI ZEILE BASE-LST ) (if (and(=(type DATEINAME) STR) (setq DATEINAME(findfile DATEINAME)) (setq DATEI (open DATEINAME "r")) ) (progn (while(=(type(setq ZEILE(read-line DATEI)))STR) (setq BASE-LST (cons (vl-string-trim " " ZEILE) BASE-LST)) ) (setq DATEI(close DATEI)) BASE-LST ...
|
| In das Form Lisp wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
CADmium am 02.03.2007 um 07:59 Uhr (0)
Zitat:Original erstellt von joern bosse:@Udo: wenn ich vl-filename-base man schon vorher gekannt hätte... schon mal (fnsplitl "D:ACADBSP.DWG") versucht? ------------------ - 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 : Basislayergruppe
CADmium am 03.03.2006 um 08:42 Uhr (0)
1. sag doch bitt, dass das eine Mechanical-Funktion ist, sonst suchen sich manche hier einen Wolf2.(command "_-amlayer" "_g" "_s" "BASE") ...------------------ - Thomas -"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe bei AutoLisp Script
CADmium am 29.09.2009 um 09:30 Uhr (0)
(getvar "DWGNAME")oder bei vorhandenem Teststring(strcat(vl-filename-base "H:CADDatenKundenProjekte7099870998244.dwg") (vl-filename-extension "H:CADDatenKundenProjekte7099870998244.dwg") )oder(strcat (cadr(fnsplitl "H:CADDatenKundenProjekte7099870998244.dwg")) (caddr(fnsplitl "H:CADDatenKundenProjekte7099870998244.dwg")))------------------ - 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 : Umwandlung von (getvar DWGNAME)
CADmium am 29.09.2006 um 10:29 Uhr (0)
es gibt auch die Funktionen (cadr(fnsplitl(getvar "DWGNAME")))oder (vl-filename-base (getvar "DWGNAME"))das mit dem (- (strlen (getvar "DWGNAME")) 4)) funktioniert zwar auch, aber die anderen Funcs sind besser für die anderen Eventualitäten gerüstet------------------ - 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 : Einschränkungen beim Befehl open?
CADmium am 28.07.2006 um 08:29 Uhr (0)
Zitat:Original erstellt von andi2050:[BÜbrigens: "(while (= T (wcmatch dn2 "*`.*"))(setq dn2 (substr dn2 1 (1- (strlen dn2)))))" lässt sich einfach durch (vl-filename-base filename) ersetzen ...[/B]der Vollständigkeit halber möchte ich doch noch auf die (undokumentierte) Funktion fnsplitl hinweisen :(fnsplitl "d:ACADacad.exe") -- ("D:ACAD" "acad" ".exe")wo man mittels car / cadr / caddr auf die einzelnen elemente des Dateinamens zugreifen kann..------------------ - Thomas -"Bei 99% aller Probleme ist di ...
|
| In das Form Lisp wechseln |
