| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Block koordinaten in TXT (659 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 13. Sep. 2006 15:42 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Sep. 2006 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
(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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 13. Sep. 2006 15:56 <-- editieren / zitieren --> Unities abgeben:
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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|