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

怕瓦落地2011

如下圖所示我想在等號(hào)后顯示一個(gè)變量的值,，請(qǐng)問(wèn)該用什么函數(shù)呢,？？,？
) C% g# h) x7 X& k% l

雁過(guò)無(wú)痕888

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

怕瓦落地2011

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

ch402

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

怕瓦落地2011

難道都沒(méi)人知道嗎？,？,？

hjxianming

也許對(duì)你有用
. V2 w7 {* l" }  ;;;;;;;;;;;;;;;;;;;;;;;打印參數(shù)開(kāi)始
- h, C' X  l- ?; M' z, y) I+ M          (setq pta (polar pt (dtr 90) (+ 10 (* (- n 1.0) disY))))
           (setq pta1 (polar pt (dtr 90) (+ 15 (* (- n 1.0) disY))))
: n$ n$ Z3 H3 Y  J* }. N  (setq dmin(rtos  dmin 2 2))
  (setq dX(rtos  dX 2 2))
. u8 l% x/ i! k; j: T- r  (setq dy (rtos  dy 2 2))
  (setq dmax(rtos  dmax 2 2))
  (setq disx(rtos  disx 2 2))
# O4 P5 [2 w/ \0 N  (setq disy(rtos  disy 2 2))      ;(getstring "\按任意鍵繼續(xù)》》》》》》》"))
  (setq nx (itoa  nx ))
  (setq ny (itoa ny  ))
% Q) i$ J5 {; p& B  (setq a (rtos  a 2 2))
  (setq pt1 (rtos (car  pt ) 2 2))
2 `! U: X/ S! b: |1 m  (setq pt2 (rtos (cadr  pt ) 2 2))
5 x' g( I: o7 U6 ^, V2 K  (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))
8 ^  r. c  {7 ^  (command "text" "j""bl" pta 3.0 0 (strcat  "nx"nx"ny"ny"a" a"pt"  pt1 "x"pt2"x" pt3  ))
- G* P4 @1 D. Y( M# w3 y  ;;;;;;;;;;;;;;;;;;;;;;;打印參數(shù)結(jié)束；