在LISP中如何实现将变量作为文字输出到屏幕上

怕瓦落地2011

如下图所示我想在等号后显示一个变量的值，请问该用什么函数呢？？？
: m5 e4 }! Z  u' `$ }/ M4 B6 J

雁过无痕888

如下图所示我想在等号后显示一个变量的值，请问该用什么函数呢？？？! f.

怕瓦落地2011

楼上的不知道就不要灌水骗积分了！！！！！！

ch402

谢谢！！！！！！！！！！！！！！！

怕瓦落地2011

难道都没人知道吗？？？

hjxianming

也许对你有用
5 \% a& V: F9 p9 ]3 m6 `7 c9 P  ;;;;;;;;;;;;;;;;;;;;;;;打印参数开始
) \% x; Q0 I' Y) ~4 }/ E$ H          (setq pta (polar pt (dtr 90) (+ 10 (* (- n 1.0) disY))))
           (setq pta1 (polar pt (dtr 90) (+ 15 (* (- n 1.0) disY))))
  (setq dmin(rtos  dmin 2 2))
( I# r7 S9 t: v! n9 C8 i2 ?! D. P/ b  (setq dX(rtos  dX 2 2))
  (setq dy (rtos  dy 2 2))
- @0 z" u. Q* E; Q3 S% w0 ?  (setq dmax(rtos  dmax 2 2))
% p/ ]/ {$ c- U$ i$ B* R  (setq disx(rtos  disx 2 2))
  (setq disy(rtos  disy 2 2))      ;(getstring "\按任意键继续》》》》》》》"))
/ t, N1 O7 I0 `+ k* h0 Y2 U; L  (setq nx (itoa  nx ))
+ W+ H3 }5 v  m! |( z0 t$ ~  (setq ny (itoa ny  ))
  (setq a (rtos  a 2 2))
' Q) r2 q0 p! ~" l) v$ F5 l  (setq pt1 (rtos (car  pt ) 2 2))
/ I. h3 @, ~. w6 P7 z" ~0 a  (setq pt2 (rtos (cadr  pt ) 2 2))
% S6 W# A/ \$ X9 m) h4 h: H  (setq pt3 (rtos (caddr  pt ) 2 2))
# L% Y' ~0 t% b' [  (command "text" "j""bl" pta1 3.0 0 (strcat  "BTld"dmin"rd"dx"lt"dy "rt"dmax"x"disx"y"disy))
  (command "text" "j""bl" pta 3.0 0 (strcat  "nx"nx"ny"ny"a" a"pt"  pt1 "x"pt2"x" pt3  ))
  ;;;;;;;;;;;;;;;;;;;;;;;打印参数结束；