(DEFUN C:D_ASC()(SETVAR"CMDECHO"0)(SETVAR"OSMODE"0)(TEXTSCR)(WRITE-LINE"Programm zum lesen von ASC - Dateien zur šbernahme in AUTOCAD")(TERPRI)(SETQ Qj(GETINT"Punkt Nr. lesen ab Spalte ?  eingeben: "))(SETQ Q@(GETINT"Anzahl der Spalten (einschl. Komma) eingeben: "))(TERPRI)(SETQ QQ(GETINT"Rechtwert lesen ab Spalte ? eingeben: "))(SETQ Ql(GETINT"Anzahl der Spalten (einschl. Komma) eingeben: "))(TERPRI)(SETQ Q&(GETINT"Hochwert lesen ab Spalte ? eingeben: "))(SETQ Q1(GETINT"Anzahl der Spalten (einschl. Komma) eingeben: "))(TERPRI)(SETQ Q#(GETINT"Z- Wert lesen ab Spalte ? eingeben: "))(SETQ Q0(GETINT"Anzahl der Spalten (einschl. Komma) eingeben: "))(TERPRI)(GRAPHSCR)(SETQ Q$(GETSTRING"/nNamen und Pfad der Datei eingeben:"))(SETQ QO(OPEN Q$"r"))(IF(/= QO NIL)(PROGN(SETQ Q|(READ-LINE QO))(SETQ Q%(ATOF(SUBSTR Q| Qj Q@)))(SETQ Q%(RTOS Q% 2 0))(SETQ Q?j(ATOF(SUBSTR Q| QQ Ql)))(SETQ Qjj(ATOF(SUBSTR Q| Q& Q1)))(SETQ Q@j(ATOF(SUBSTR Q| Q# Q0)))(COMMAND"layer""M""PUNKTE""FA""weiss""""")(COMMAND"layer""M""1""FA""weiss""""")(COMMAND"layer""SE""PUNKTE""")(COMMAND"PUNKT"(LIST Q?j Qjj Q@j))(COMMAND"layer""SE""1""")(COMMAND"TEXT"(LIST Q?j Qjj)""Q%)(PRINT Q%)(SETQ Q|(READ-LINE QO))(WHILE(/= Q| NIL)(SETQ Q%(ATOF(SUBSTR Q| Qj Q@)))(SETQ Q%(RTOS Q% 2 0))(SETQ Q?j(ATOF(SUBSTR Q| QQ Ql)))(SETQ Qjj(ATOF(SUBSTR Q| Q& Q1)))(SETQ Q@j(ATOF(SUBSTR Q| Q# Q0)))(COMMAND"layer""SE""PUNKTE""")(COMMAND"PUNKT"(LIST Q?j Qjj Q@j))(COMMAND"layer""M""1""FA""weiss""""")(COMMAND"layer""SE""1""")(COMMAND"TEXT"(LIST Q?j Qjj)""Q%)(PRINT Q%)(SETQ Q|(READ-LINE QO))))))