ldata求高手进!

77077

问题

1.能不能用foreach的方法来添加?
2.添加后,用VLAX-LData-list命令查询时,数据顺序不是我添加的顺序.

  

1. ; obj (VLAX-Ename->VLA-Object (Car (EntSel "\n请选择:"))); lst 点对表如();(add_ldata_list obj lst)添加拓展数据表(defun add_ldata (obj lst)(vl-load-com)(setq i 0)(repeat (length lst)(VLAX-LData-Put obj (car(nth i lst)) (cdr(nth i lst)))(setq i (1+ i)))(princ))

; obj (VLAX-Ename->VLA-Object (Car (EntSel "\n请选择:"))); lst 点对表如();(add_ldata_list obj lst)添加拓展数据表(defun add_ldata (obj lst)(vl-load-com)(setq i 0)(repeat (length lst)(VLAX-LData-Put obj (car(nth i lst)) (cdr(nth i lst)))(setq i (1+ i)))(princ))

77077

尼玛,怎么代码乱了呢?
; obj (VLAX-Ename->VLA-Object (Car (EntSel "\n请选择:")))
; lst 点对表
;(add_ldata_list obj lst)添加拓展数据表
(defun add_ldata (obj lst)
(vl-load-com)
(setq i 0)
(repeat (length lst)
(VLAX-LData-Put obj (car(nth i lst)) (cdr(nth i lst)))
(setq i (1+ i))
)
(princ)
)

阿然

为什么要纠结顺序？只要设置恰当的key就可以找到对应的value

1. ;;;obj 实体(ent\vla皆可)或者字符串
   
2. ;;;'((key1 . value1) (key2 . value2) ...)
   
3. (defun putldata        (obj ldata / x)
   
4.   (mapcar '(lambda (x) (vlax-ldata-put obj (car x) (cdr x)))
   
5.           ldata
   
6.   )
   
7. )
   

;;;obj 实体(ent\vla皆可)或者字符串<br /> ;;;'((key1 . value1) (key2 . value2) ...)<br /> (defun putldata        (obj ldata / x)<br />   (mapcar '(lambda (x) (vlax-ldata-put obj (car x) (cdr x)))<br />           ldata<br />   )<br /> )<br />

77077

阿然 发表于 2014-4-8 11:22
为什么要纠结顺序？只要设置恰当的key就可以找到对应的value

我不是纠结顺序,是觉得有点奇怪而已~呵呵~~~