在LISP中如何實現將變量作為文字輸出到屏幕上

怕瓦落地2011

如下圖所示我想在等號后顯示一個變量的值，請問該用什么函數呢？？？
& {7 ]5 G1 G6 w1 O' Z

雁過無痕888

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

怕瓦落地2011

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

ch402

謝謝！！！！！！！！！！！！！！！

怕瓦落地2011

難道都沒人知道嗎？？？

hjxianming

也許對你有用
, b. X' Q/ G# e$ s! O  ;;;;;;;;;;;;;;;;;;;;;;;打印參數開始
# Y. H" v( u6 G( X) V          (setq pta (polar pt (dtr 90) (+ 10 (* (- n 1.0) disY))))
& R! V( c5 _" X( r6 m+ D3 _           (setq pta1 (polar pt (dtr 90) (+ 15 (* (- n 1.0) disY))))
5 ]* z! s2 Y9 v: h6 G  (setq dmin(rtos  dmin 2 2))
; P4 ]" |! K2 r! Z  (setq dX(rtos  dX 2 2))
- Y; H2 C: S* j' C. c7 h& k  T  (setq dy (rtos  dy 2 2))
  (setq dmax(rtos  dmax 2 2))
2 Q  ]3 d( `+ B/ H- c  (setq disx(rtos  disx 2 2))
) Z. s) I9 W+ z  (setq disy(rtos  disy 2 2))      ;(getstring "\按任意鍵繼續》》》》》》》"))
  (setq nx (itoa  nx ))
  (setq ny (itoa ny  ))
* Q$ B4 z+ s& c9 s2 @2 C  (setq a (rtos  a 2 2))
" E% h4 Z; e* m" {- H+ ^3 A  (setq pt1 (rtos (car  pt ) 2 2))
# J  W6 K) t% \1 K' d& f  (setq pt2 (rtos (cadr  pt ) 2 2))
0 Q+ m! q' x/ g' }" \  (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))
* m/ s* Y! t, n! @1 L  (command "text" "j""bl" pta 3.0 0 (strcat  "nx"nx"ny"ny"a" a"pt"  pt1 "x"pt2"x" pt3  ))
  ;;;;;;;;;;;;;;;;;;;;;;;打印參數結束；