[求助]：如何将一个变量名变为一个字符串？

netbee

我想将一个变量名变为字符串
如：　
　一变量名为　abc           可对其进行赋值操作：（setq abc 5.10）
　如何将其变为字符串“abc”呢?
      abc->"abc"

lsjjm

用在什么条件下, 能否把问题的前因后果说清楚?

陌生人

学习学习再学习
[php]
vl-symbol-name  函数
语法
      (vl-symbol-name  symbol)
功能
      返回包含某符号名的字符串。

说明

参数 symbol 为任意 LISP 符号。

返回值：

字符串，包括给定符号参数的名称，注意返回大写的字符串。

样例：

1）_$ (vl-symbol-name 'f:symbol )

"F:SYMBOL"

2）_$ (progn (setq symbol 'my-lisp) (vl-symbol-name symbol))

"MY-LISP"

3）_$ (vl-symbol-name 8)

; 错误: 参数类型错误: symbolp 8
[/php]

netbee

主要是我想将变量用词典的方式保存在图形中，如

2. 
   
3. ;;=============================
   
4. ;;获取变量
   
5. (defun Get_Ldata(ldata)
   
6.   (vlax-ldata-get "NetBee_var" ldata)
   
7.   )
   
8. ;;=============================
   
9. ;;设置变量
   
10. (defun Set_Ldata(ldata vars)
    
11.   (vlax-ldata-Put "NetBee_var" ldata vars)
    
12.   )
    

<br /> ;;=============================<br /> ;;获取变量<br /> (defun Get_Ldata(ldata)<br />   (vlax-ldata-get "NetBee_var" ldata)<br />   )<br /> ;;=============================<br /> ;;设置变量<br /> (defun Set_Ldata(ldata vars)<br />   (vlax-ldata-Put "NetBee_var" ldata vars)<br />   )<br />

可是这样一来，调用该函数时，变量必须为字符串，
如

(Set_Ldata "test" 5.0)
不能用
(Set_Ldata  test 5.0)
这种方式，很不方便。

cy956

试试cbx老师的程序：

(defun SToA (|s / |f)
            (SetQ |f (Open "stoa" "w")) (PrinC |s |f)      (Close |f)
            (SetQ |f (Open "stoa" "r") |s (Read-Line |f)) (Close |f)
            (Eval |s)
)

lsjjm

最初由 netbee 发布
[B]我想将一个变量名变为字符串 如：一变量名为 abc  可对其进行赋值操作：（setq abc 5.10）如何将其变为字符串“abc”呢?      abc->"abc" [/B]

试试这个：
(read "\"abc\"") 返回 "abc".

841594

测试：

$ (vl-princ-to-string 'abc)
"ABC"
_$ (VL-PRIN1-TO-STRING 'abc)
"ABC"
_$ (VL-SYMBOL-NAME 'abc)
"ABC"
_$

netbee

假设这个[变量名至字符串]函数名为：Vtoa
若有一个变量名为Myvar，其值可为任意类型，我想将变量名转换为字符串。
注意：并不是变量值，而是变量名!
---------------------------------------------
该函数功能如下：
(Vtoa Myvar) 返回 "Myvar"
------------------------------------------------
请问如何实现这个函数？

陌生人

(vl-symbol-name  myvar)
->"myvar"
(setq (read "myvar") "\n你根本没看我上次给的函数帮助，真是。。。（不知道该怎么说你）！")
->你根本没看我上次给的函数帮助，真是。。。（不知道该怎么说你）！

更正 如下：（2004.4.12）
(vl-symbol-name 'myvar)
->"myvar"
(set (eval(quote(read "myvar"))) "\n你根本没看我上次给的函数帮助，真是。。。（不知道该怎么说你）！")
->你根本没看我上次给的函数帮助，真是。。。（不知道该怎么说你）！

lsjjm

最初由 陌生人 发布
[B](vl-symbol-name  myvar)  ->"myvar" ... [/B]

丢了一个" ' " 吧: (vl-symbol-name  'myvar)  ->"myvar" .

david96007

看来我的知识还差的远呢！
我的变量保存在CFG文件中了，所有图形都要用同一个变量！
SETCFG和GETCFG！

LUCAS

最初由 陌生人 发布
[B](vl-symbol-name  myvar)
->"myvar"
(setq (read "myvar") "\n你根本没看我上次给的函数帮助，真是。。。（不知道该怎么说你）！")
->你根本没看我上次给的函数帮助，真是。。。（不知道该怎么说你）！

更正 ?.. [/B]

看來是你看不懂他的要求,再看一遍他的無理要求!!

841594

陌生人

无理要求？
我的理解是楼主想把变量名存储起来，在后续程序中读出并对其赋值。
请楼主再解释一下是否是这个意思？
举例：
存储当前变量及其值：
(setq mysvrlst (list (list "mysvr1" (eval mysvr1)) (list "mysvr2" (eval mysvr2))...)
可存储到cad词典or扩展数据，or外部文件.
读入，判断数值是否是2，如不是，重新付值：
(setq var  (nth i mysvrlst))
( if (/= 2 (cadr var) )
   (set (eval(quote(read (car var))))  2)
)
...

LUCAS

;;=============================
;;獲取變數
(defun GET_LDATA (LDATA)
  (vlax-ldata-get "NetBee_var" LDATA)
)
;;=============================
;;設置變數
(defun SET_LDATA (LDATA VARS)
  (vlax-ldata-put "NetBee_var" LDATA VARS)
)
;;可是這樣一來，調用該函數時，變數必須為字串，

;;如
;;(SET_LDATA "test" 5.0)
;;不能用
;;(SET_LDATA TEST 5.0)
;;這種方式，很不方便。



;;他要如上的效果,即輸入TEST = "TEST"
;;他也沒有把變數名存儲起來!!!

(defun SET_LDATA (LDATA VARS)
  (setq LDATA (vl-princ-to-string LDATA))
  (vlax-ldata-put "NetBee_var" LDATA VARS)
)
(defun GET_LDATA (LDATA)
  (setq LDATA (vl-princ-to-string LDATA))
  (vlax-ldata-get "NetBee_var" LDATA)
)

;;(SET_LDATA 'TEST 5.0)
;;(GET_LDATA 'TEST)

;;他想把 '  這個點也不要