---

D_asc.txt

Hallo zusammen,

ich nutze das Forum zum erstenmal. Ich habe ein lisp-programm welches Punktnummern koordinatengetreu in einen Lageplan einfügt. Jetzt wollte ich damit Höhen in einen Lageplan einfügen. Dabei werden aber immer alle Nachkommastellen abgeschnitten. Was muss ich ändern, damit die Nachkommastellen nicht abgeschnitten werden?
Das Programm habe ich angehängt (ich hoffe das hat auch geklappt).

Vielen Dank für eure Hilfe

elveos

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

---

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

---

Hi Thomas,

vielen Dank für deinen promte und hilfreiche Antwort. Da mir dieses Lisp-Programm sehr geholfen hat, werde ich es zum Anlass nehmen, einmal etwas tiefer in AutoLisp einzusteigen. Ich hatte mich bis jetzt mit diesem Tool noch nicht besonders befasst.

elveos

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