|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 30.08.2011 um 11:21 Uhr (0)
hallo cadplayer,aus stdlib von reini urban:Code:;;; Converts string with delimiters into string list;;; Ignore repeated delims such as white space.;;; The order of chars in delim is not important.;;; Might be renamed to std-string-tokenize;;; Also named lex-string in some Common Lisps.;;; (std-strtok " 2 3 " " ") = ("2" "3");;; (std-strtok "f 1,3" ", ") = ("f" "1" "3");;; Same as std-string-strlist(defun STD-STRTOK (s delims / len s1 i c lst) (setq delims (std-string-list delims) len (strlen s) s1 "" ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 12:13 Uhr (0)
@neurosis: function no definitionBei Axels Seiten wird mir schon ein bissel schwindlig. step by step1,6395579.272,148352.957,87.760,HPWelchen Gedankengang muss ich überhaupt anstellen um die obige Zeile in eine Zeichkette zu verwandeln"," werden ja nicht akzeptiert
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
CADmium am 30.08.2011 um 12:15 Uhr (0)
Wie liegen die Daten denn vor ?und um was in ne Zeichenkette zu wandeln geht vl-princ-to-string recht universell------------------ - 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 |
koord.txt |
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 12:58 Uhr (0)
Ich hab mal ein Beispiel meiner Koord-datei angehangenIm Prinzip sind die Zeilen immer so aufgebautPunktnummer,X-koordinate,Y-koordinate,Z-koordinate,PunktcodeWenn ich jetzt die Funktion drüber laufen lasse, stosse ich auf das erste Problem, das die Punktnummern mal 1- 2- oder 4-stellig sindDamit werden die var nicht korrekt bedient. Ich muss mich wahrscheinlich mit dem ","-zeichen durchhangeln, um an die Werte zu kommen.(setvar "ATTREQ" 1) (if (setq FILE (getfiled "Verzeichnisliste" "" "" 2)) (progn (set ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
joern bosse am 27.01.2009 um 15:41 Uhr (0)
Teste mal mit der angehängten Koordinatendatei, bei mir hats funktioniert.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 30.08.2011 um 14:19 Uhr (0)
ersetze std-string-listdurchvl-string-listdann funktioniert dasgrussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 30.08.2011 um 14:22 Uhr (0)
Zitat:Original erstellt von cadplayer:... Ich muss mich wahrscheinlich mit dem ","-zeichen durchhangeln, um an die Werte zu kommen....Hallo cadplayer,um an die Position der "," zu kommen und damit an die Werte für die Variablen, sieh dir mal die Funktion vl-string-position an, die kann das.HTHGrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
CAD-Huebner am 30.08.2011 um 14:36 Uhr (0)
Zitat:Original erstellt von cadplayer:Ich hab mal ein Beispiel meiner Koord-datei angehangenIm Prinzip sind die Zeilen immer so aufgebautPunktnummer,X-koordinate,Y-koordinate,Z-koordinate,Punktcode... )Wenn es ums erlernen von Lisp geht - gutes Beispiel.Wenn es um Punktimport in Civil 3D geht - völlig unnötig, denn da sind die Funktionen zum Koordinatenimport (inkl. komfortablem Formateditor) bereits eingebaut.Befehl: ImportPointsDie Formate für "PRHZB Kommagetrennt" sind (je nach Vorlage) bereits vord ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 15:19 Uhr (0)
Super - eingebaut, läuft ...ich bekomme jetzt folgende Liste(setq data ("1" "6395579.272" "148352.957" "87.760" "HP"))wie bekomme ich in die var PKT nur die 2. 3. 4. Zeichenketten (cdr data) liefert mir("6395579.272" "148352.957" "87.760" "HP")Man konnte doch zeichketten auch rumdrehen, dass ich das "HP" abschneiden kann[Diese Nachricht wurde von cadplayer am 30. Aug. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 30.08.2011 um 15:29 Uhr (0)
(setq data ("1" "6395579.272" "148352.957" "87.760" "HP"))(reverse (cdr (reverse (cdr data))))grussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 15:57 Uhr (0)
(setvar "ATTREQ" 1) (if (setq FILE (getfiled "Verzeichnisliste" "" "" 2)) (progn (setq FILE (open FILE "r")) (while (setq ZEILE (read-line FILE) DATA (STD-STRTOK ZEILE ", ") PNR (atoi (car DATA)) ZKO (atof (cadr (cdr (cdr DATA)))) PCODE (cadr (cdr (cdr (cdr DATA))))) (command "_.INSERT" "meas" (cadr DATA); =X (cadr (cdr DATA)); =Y (cadr (cdr (cdr DATA))); =Z 1 1 0 "PNR" "ZKO" "PCODE" ) ) (close FILE) ) (alert "Keine Datei gewählt!") )Ich finde den Fehler nicht warum die ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 30.08.2011 um 16:15 Uhr (0)
...oder zusammengefasst.(cadr data)(caddr data)(cadddr data)GrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
spider_dd am 30.08.2011 um 16:22 Uhr (0)
_.insert erwartet eine Punkt, Du musst Dir aus den Koords erst mal den Punkt bauen(setq ins_punkt (list (cadr data) (caddr data) (cadddr data))) und dann ins_punkt verwendenGrußThomas
|
| In das Form Lisp wechseln |
