| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: ASCII 2 Koordinatenpunkt (420 mal gelesen)
|
JoBoCAD Mitglied Dipl. Ing (FH)
Beiträge: 32 Registriert: 12.02.2005
|
erstellt am: 01. Dez. 2005 14:18 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich habe jetzt wirklich lange im Forum gesucht. Leider finde ich keinen Beitrag bzw. eine Lisp-Routine, die mir aus einem String eine Koordinate konvertiert. Da ich mir sicher bin dass es sowas gibt bitte ich Euch um Eure Hilfe. Danke im Voraus JoBo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 01. Dez. 2005 14:20 <-- editieren / zitieren --> Unities abgeben: Nur für JoBoCAD
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 01. Dez. 2005 14:22 <-- editieren / zitieren --> Unities abgeben: Nur für JoBoCAD
|
JoBoCAD Mitglied Dipl. Ing (FH)
Beiträge: 32 Registriert: 12.02.2005
|
erstellt am: 01. Dez. 2005 14:23 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 01. Dez. 2005 14:44 <-- editieren / zitieren --> Unities abgeben: Nur für JoBoCAD
..auch wenn das Forum zum Diskutieren von Programmierproblemen gedacht ist, und nicht als Funktionsdatenbank ..schau dir mal folgende Funktion an: (defun KOORDCONVERT(KOORD / POS OFFSET LISTE) (if(=(type KOORD) 'STR) (progn (setq POS (vl-string-search "," KOORD)) (setq OFFSET 2) (while POS (setq LISTE (cons (substr KOORD 1 POS) LISTE) KOORD (substr KOORD (+ POS OFFSET)) POS (vl-string-search "," KOORD) ) ) (setq LISTE(reverse(cons KOORD LISTE))) (if(and(vl-every 'numberp (setq LISTE(mapcar 'distof LISTE))) (member(length LISTE)'(2 3)) ) LISTE ) ) ) ) Aufruf z.B: (KOORDCONVERT "50,10") ergibt (50.0 10.0) ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
s.wickel Mitglied Bauingenieur Wasserwirtschaft
Beiträge: 422 Registriert: 17.12.2001 Bricscad V7 - V11
|
erstellt am: 02. Dez. 2005 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für JoBoCAD
Hallo Jobocad! Guck mal auf die LISP-Seite von MAPCAR. Dort wird eine Funktion eingeführt die heißt "str-tok" und zerlegt eine Zeichenkette bei einem Trennzeichen. Damit hast du schnell was gebastelt. Beachte, dass in der Funktion noch andere Funktionen der Seite verwendet werden. Wenn dir die Funktion geholfen hat dann, schau mal hier (und sonst auch): http://ww3.cad.de/foren/ubb/Forum145/HTML/001456-8.shtml P.S.: Probiers so: (list (atof (car (str-tok "50,100" ","))) (atof (cadr (str-tok "50,100" ",")))) ------------------ Grüße aus dem Siegerland, Stefan [Diese Nachricht wurde von s.wickel am 02. Dez. 2005 editiert.] [Diese Nachricht wurde von s.wickel am 02. Dez. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |