---

Hi

Versuch gerade die Koordinaten von Blöcken in eine TXT zu schreiben mit dem unteren Code.

EATTEXT kann ich nicht verwende da es mit Excel abstürze erzeugt. (wenn Acad versucht in die TXT zu schreiben wenn Excel offen ist und auf die Datei mit "externe Daten importieren" verbunden ist)

Das Ergebnis  des Codes ist die Fehlermeldung
"M:fehler Fehlerhafter Argumenttyp: stringp (68481.9 290655.0 435.0)"

Kann mir wer helfen?

Code:

---

(defun C:Interpolieren_Acad-Excel  (/ MD_ERR listnam aws DAT_ID li)
  (setq MD_ERR  *ERROR*
        *ERROR* M:FEHLER
        ) ;_ end of setq
  ;;Marke für Zurück nach Abbruch setzen
  (command "_UNDO" "_MARK")
  (if
    (setq listnam (strcat "C://Programme//AutoCAD 2004 VZ//Excel//Interpolieren_Acad-Excel.txt" );end strcat
      );end setq
    (progn
      (if (setq aws (ssget '((0 . "INSERT"))))
        (progn
          (setq DAT_ID (open listnam "W"))
          (write-line "X Y Z" DAT_ID)
          (mapcar '(lambda (x / elem)
                      (setq elem (entget x)
                            li  (cons(strcat
                                        (cdr (assoc 10 elem))
                                      )
                                      li)
                            ) ;_ ende von setq
                      ) ;_ ende von lambda
                  (bau_elemli aws)
                  ) ;_ ende von mapcar
          (foreach item li
            (write-line item DAT_ID)
            ) ;_ ende von foreach
          (close DAT_ID)
          ) ;_ ende von progn
        ) ;_ ende von if
      ) ;_ ende von progn
    ) ;_ ende von if
  ) ;_ ende von defun

(defun M:FEHLER (S)
  (print (strcat "M:fehler " S))
  (close DAT_ID)
  (command)
  (command "_UNDO" "_BACK")
  (setq *ERROR* MD_ERR)
  (princ)
  ) ;_ end of defun

(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli (cons (ssname asatz n) elemli)
          n      (1+ n)
          ) ;_ end of setq
    ) ;_ end of repeat
  elemli
  ) ;_ ende von defun

---

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

(cdr (assoc 10 elem)) ist ja auch kein String !! Nimm
(vl-princ-2-string (cdr (assoc 10 elem)))

stattdessen oder

(apply 'strcat (mapcar '(lambda(X) (strcat(rtos X 2 3)"  "))(cdr (assoc 10 elem))))

oder du nimmst princ statt write-line

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

THX funkt super

Probier schon länger herum, für "einfache" Sachen geht´s ja noch aber da blick ich nicht mehr durch. Da fehlt das Grundwissen.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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