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

怕瓦落地2011

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

雁过无痕888

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

怕瓦落地2011

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

ch402

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

怕瓦落地2011

难道都没人知道吗？？？

hjxianming

也许对你有用
  ;;;;;;;;;;;;;;;;;;;;;;;打印参数开始
. I0 b3 }; K: a! N6 ?) T2 @3 W          (setq pta (polar pt (dtr 90) (+ 10 (* (- n 1.0) disY))))
2 j4 u7 w1 [/ N& u, |" o           (setq pta1 (polar pt (dtr 90) (+ 15 (* (- n 1.0) disY))))
! J# Q  U8 V6 i' W  u+ b2 U9 W  (setq dmin(rtos  dmin 2 2))
3 B4 e2 @& f( I( ]7 g; M  (setq dX(rtos  dX 2 2))
+ l/ z# y( }4 L& R; r  (setq dy (rtos  dy 2 2))
/ l( ^+ ^+ R2 n/ R# `1 j  (setq dmax(rtos  dmax 2 2))
% }* S% c" ~. o  (setq disx(rtos  disx 2 2))
3 N8 b8 \2 c; q: X* ]; }9 u. t. L  (setq disy(rtos  disy 2 2))      ;(getstring "\按任意键继续》》》》》》》"))
" o' L7 ]7 U% z- K& j2 P" |  (setq nx (itoa  nx ))
- \; g& ~/ f2 U- O4 d$ e: b  (setq ny (itoa ny  ))
% F; m: P' s4 j5 ~  (setq a (rtos  a 2 2))
  (setq pt1 (rtos (car  pt ) 2 2))
  (setq pt2 (rtos (cadr  pt ) 2 2))
) U# Z+ u1 Q$ g( m4 V4 e3 j* \5 b! _  (setq pt3 (rtos (caddr  pt ) 2 2))
  (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  ))
  ;;;;;;;;;;;;;;;;;;;;;;;打印参数结束；