Ik heb een stukje uit mijn lisp-routine hieronder geplaatst. Mijn enigste probleem : het lukt me niet om externe gegevens in extended data te plaatsen. Zo zit er in exdata gewoon de waarde z, en niet de waarde die in mijn kladblokbestand staat.
(setq f (open (getfiled "selecteer een gsi bestand" "C:/" "gsi"
"r"))
(setq lijn (read-line f))
(setq z (substr lijn 81 16))
(setq z (atof z))
(setq z (/ z 1000))
(setq punt (list 2000 2000 10))
(command "POINT" punt "")
(regapp "D")
(setq exdata '((-3 ("D" (1040 . z))))) ;hier loopt het mis. hier geeft hij als waarde gewoon z, en geen 8.634
(setq newent
(append lastent exdata))
(entmod newent)
Kan iemand mij helpen
(setq f (open (getfiled "selecteer een gsi bestand" "C:/" "gsi"
"r"))(setq lijn (read-line f))
(setq z (substr lijn 81 16))
(setq z (atof z))
(setq z (/ z 1000))
(setq punt (list 2000 2000 10))
(command "POINT" punt "")
(regapp "D")
(setq exdata '((-3 ("D" (1040 . z))))) ;hier loopt het mis. hier geeft hij als waarde gewoon z, en geen 8.634
(setq newent
(append lastent exdata))
(entmod newent)
Kan iemand mij helpen