---

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

---

Hi,

wie sieht denn dein String aus ?

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

die hast du doch schon eingebaut .. read, atof, atoi,distof,list ...
P.S: wie liegt dann die Koordinate vor.. poste doch mal einen Beispielstring 

------------------
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

---

Hi Thomas,
ganz einfach, er liegt bereits als Koordinate vor:

z.B. 50,100

ich hole den Textstring aus einer DCL-Edit-Box

Gruss
JoBo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

..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

---

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