在LISP中如何實(shí)現(xiàn)將變量作為文字輸出到屏幕上

怕瓦落地2011

如下圖所示我想在等號后顯示一個(gè)變量的值，請問該用什么函數(shù)呢,？,？,？

雁過無痕888

如下圖所示我想在等號后顯示一個(gè)變量的值,，請問該用什么函數(shù)呢？,？,？! f.

怕瓦落地2011

樓上的不知道就不要灌水騙積分了！�,。,。。,�,！

ch402

謝謝！！�,。,。。,。,。。,。,。。,。,。�,！

怕瓦落地2011

難道都沒人知道嗎,？？,？

hjxianming

也許對你有用
. u; z2 B* Q# C6 {  ;;;;;;;;;;;;;;;;;;;;;;;打印參數(shù)開始
          (setq pta (polar pt (dtr 90) (+ 10 (* (- n 1.0) disY))))
% s! ~9 w7 B- H( X( {& e5 g2 z           (setq pta1 (polar pt (dtr 90) (+ 15 (* (- n 1.0) disY))))
& c9 j9 U* O) ~! |$ r  @! h) F, `  (setq dmin(rtos  dmin 2 2))
' p* B" F" ~# l: R6 v) @9 `% U  (setq dX(rtos  dX 2 2))
  (setq dy (rtos  dy 2 2))
/ h, u" ~/ J& @  D  (setq dmax(rtos  dmax 2 2))
  (setq disx(rtos  disx 2 2))
  (setq disy(rtos  disy 2 2))      ;(getstring "\按任意鍵繼續(xù)》》》》》》》"))
, e% n% q8 R+ F  (setq nx (itoa  nx ))
$ l4 l2 A  u5 @/ _& A4 n  (setq ny (itoa ny  ))
, ]" C6 V0 i9 r& c  C. B  (setq a (rtos  a 2 2))
  (setq pt1 (rtos (car  pt ) 2 2))
  {6 X# H: X7 H1 R) W  (setq pt2 (rtos (cadr  pt ) 2 2))
  (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  ))
  ;;;;;;;;;;;;;;;;;;;;;;;打印參數(shù)結(jié)束,；