请教如何得到变量的名称

sfjlx

请教如何得到变量的字符串名称?
比如我想在屏幕上打印变量名称为 pt1 的变量。变量pt1的值为500
(打印  pt1 )
(defun 打印( 内容1 / 内容1 )
   (PRIN1   " 内容1 = ")
  (PRIN1 内容1)
  (PRINt)
  )

想要得到的结果为 pt1=500

Andyhon

(defun 打印 (内容1)
   (princ 内容1)
   (princ " = ")
   (princ (eval 内容1))
   (PRIN1)
)

command: (setq a 500)
Command: (打印 'a)
A = 500

ysq101

新手不会问问题吧，，，，，，，，，楼主的意思我没懂

sfjlx

感谢两位！尤其andyhon!问题解决！呵呵！谢谢！