[求助]：[1004]如何替换辞典中局部资料呢

tctabc

[求助]：[1004]如何替换辞典中局部资料呢?
书上写出以下方法:
(vlax-ldata-put "dict" "key" '(1)) ;增加一个辞典资料
(vlax-ldata-get "dict" "key" ) ;取出辞典资料
(vlax-ldata-test dict) ;确定数据是否保存
(vlax-ldata-list "dict") ;列出图形词典中的 LISP 数据

但为何我这样做时不能够更新资料呢?
反而将资料都替换.

EXP:
(setq tn1 (vlax-ldata-put "dict" "key"
          (list (CONS 2 "10") (CONS 5 100.5))) )
(setq tn2 (cdr(nth 1 tn1)))
(setq tda (getreal (STRCAT "\n 输入需要的数值<" (rtos tn2 2) ">:" )))
(if (/= tda nil)
(vlax-ldata-put "dict" "key" (list (CONS 5 tda)))
)
(vlax-ldata-list "dict")

返回:
_$ ("key" (5 . 500.0))
我想要的是将 ("key" (2 . "10") (5 . 100.5)) 替换成为
("key" (2 . "10") (5 . 500.0))


请问该怎样处理呢
烦请各位高手可以帮忙解答一下~
谢谢~

LUCAS

2. 
   
3. (setq TN1 (vlax-ldata-put
   
4.             "dict"
   
5.             "key"
   
6.             (list (cons 2 "10") (cons 5 100.5))
   
7.           )
   
8. )
   
9. (setq TN2 (cdr (nth 1 TN1)))
   
10. (setq TDA (getreal (strcat "\n 輸入需要的數值<" (rtos TN2 2) ">:")))
    
11. (if (/= TDA NIL)
    
12.   (progn
    
13.     (setq DATA (vlax-ldata-get "dict" "key"))
    
14.     (vlax-ldata-put
    
15.       "dict"
    
16.       "key"
    
17.       (subst (cons 5 TDA) (assoc 5 DATA) DATA)
    
18.     )
    
19.   )
    
20. )
    
21. (vlax-ldata-list "dict")
    

<br /> (setq TN1 (vlax-ldata-put<br />             "dict"<br />             "key"<br />             (list (cons 2 "10") (cons 5 100.5))<br />           )<br /> )<br /> (setq TN2 (cdr (nth 1 TN1)))<br /> (setq TDA (getreal (strcat "\n 輸入需要的數值<" (rtos TN2 2) ">:")))<br /> (if (/= TDA NIL)<br />   (progn<br />     (setq DATA (vlax-ldata-get "dict" "key"))<br />     (vlax-ldata-put<br />       "dict"<br />       "key"<br />       (subst (cons 5 TDA) (assoc 5 DATA) DATA)<br />     )<br />   )<br /> )<br /> (vlax-ldata-list "dict")<br />

tctabc

谢谢您的解答
另外请问如果使用dictadd 之类的命令来建立辞典
那么其性质是否限制在dxf的物件性质中呢?
如(0 . textstyle)