Jul 1, 2003 #1 koenwas Mechanical Joined Jun 16, 2003 Messages 1 Location BE I would like to export the xy coordinates of multiple points to excell. Has anyone a routine which can do this ? I'm not familiar with either LISP or VBA so if you can give me some guideline how to import and use it this would be great.
I would like to export the xy coordinates of multiple points to excell. Has anyone a routine which can do this ? I'm not familiar with either LISP or VBA so if you can give me some guideline how to import and use it this would be great.
Jul 1, 2003 #2 exit Computer Joined Mar 4, 2003 Messages 131 Location DE Hi, first aid: (DEFUN C:xyz_out ( / datei aws zaehler einfp pstr ) (SETQ datei (OPEN "c:\xyz.txt" "w") (SETQ aws (SSGET "x" '((0 . "POINT"))) (SETQ zaehler 0) (REPEAT (SSLENGTH aws) (SETQ einfp (CDR(ASSOC 10 (ENTGET (SSNAME aws zaehler))))) (SETQ pstr (STRCAT (RTOS(CAR einfp) 2 3) " " (RTOS(CADR einfp) 2 3) " " (RTOS(CADDR einfp) 2 3))) (WRITE-LINE pstr datei) (SETQ zaehler (+ zaehler 1)) ); ende repeat (CLOSE datei) ) You will get a file „xyz.txt“ on c: regards, Lothar Win NT4.0(SP6),2000(SP3) AC 2000i(SP2), ADT 3.0(SP3), AC 2002, ADT 3.3, AC 2004, ADT 2004 Upvote 0 Downvote
Hi, first aid: (DEFUN C:xyz_out ( / datei aws zaehler einfp pstr ) (SETQ datei (OPEN "c:\xyz.txt" "w") (SETQ aws (SSGET "x" '((0 . "POINT"))) (SETQ zaehler 0) (REPEAT (SSLENGTH aws) (SETQ einfp (CDR(ASSOC 10 (ENTGET (SSNAME aws zaehler))))) (SETQ pstr (STRCAT (RTOS(CAR einfp) 2 3) " " (RTOS(CADR einfp) 2 3) " " (RTOS(CADDR einfp) 2 3))) (WRITE-LINE pstr datei) (SETQ zaehler (+ zaehler 1)) ); ende repeat (CLOSE datei) ) You will get a file „xyz.txt“ on c: regards, Lothar Win NT4.0(SP6),2000(SP3) AC 2000i(SP2), ADT 3.0(SP3), AC 2002, ADT 3.3, AC 2004, ADT 2004