CADsite forum

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

Beste Stijn,

wat moet uw exdata er juist geven?

(setq exdata (list -3 "D" 1040 z) )


Mvg

Kenny

Citaat van: stijnM op ma 29 12 2008, 19:12:24
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

Beste

Moet (setq exdata '((-3 ("D" (1040 . z)))))
niet (setq exdata '((-3 ("D" (cons 1040  z))))) zijn,
omdat z geevaleerd moet worden.

Met viendelijke groet, HofCAD CSI