mal vereinfacht.. da ist ein (rtos X 2 0) drin ... d.h. keine Nachkommastellen, und dann ist da noch der Einfluß von LUPREC und DIMZIN auf rtos....
hab mal ohne zu testen geändert :
(DEFUN C _ASC()
(SETVAR"CMDECHO"0)
(SETVAR"OSMODE" 0)
(SETVAR"LUPREC" 4)
(SETVAR"DIMZIN" 04)
(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 3))
(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))
)
)
)
)
Ach so : die Q-Dingsbums.. deklarier sie besser als lokale Variablen
--> http://www.autolisp-tutorial.mapcar.net/
------------------
- Thomas -
[Diese Nachricht wurde von CADmium am 24. Mai. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP