Yes, it works fine !:-)
The code I posted, was made of lines from other codes
, it would have been more concise :
(setq zdir (trans '(0 0 1) 1 0 T)
elv (caddr (trans pt 1 zdir))
)
rather than :
(setq zdir (trans '(0 0 1) 1 0 T)
elv (- (caddr pt) (caddr (trans '(0 0 0) 0 1)))
pt (list (car pt) (cadr pt) 0.0)
)