| | |
 | 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 (473 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: 4201
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: 4201
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 |
Foren auf CAD.de
| 
