麻烦高手帮我解决一下问题！！

kellyyang1

(vl-load-com)
(defun c:pp()
(command "line" '(100 100) '(200 200)"")
(command "line" '(200 200)'(200 300)"")
(command "line" '(200 300)'(300 400)"")
(setq ll '("10" "20" "30"))
(setq n 0)
(setq ss (ssget "x"))

(setq len (sslength ss))
(while (< n len)
(setq s1 (ssname ss n))
(setq lll (nth n ll))
(setq n (1+ n))
(vlax-ldata-put (vlax-ename->vla-object s1) "yy"
'((1 . lll)))
)

(setq ttt (vl-symbol-value(cdr(assoc 1 (vlax-ldata-get
(vlax-ename->vla-object (ssname ss 0)) "yy")))))
) 其实我想得到的是“10”可是为什么得到的总是“30”呢？？？急需，高手多指点！！

alin

(vl-load-com)
(defun c:pp()
(command "line" '(100 100) '(200 200)"")
(command "line" '(200 200)'(200 300)"")
(command "line" '(200 300)'(300 400)"")
(setq ll '("10" "20" "30"))
(setq n 0)
(setq ss (ssget "x"))
(setq len (sslength ss))
(while (< n len)
(setq s1 (ssname ss n))
(setq lll (nth n ll))
(setq n (1+ n))
(vlax-ldata-put (vlax-ename->vla-object s1) "yy"
(list (cons 1 lll)))
)
(setq ttt (cdr(assoc 1 (vlax-ldata-get
(vlax-ename->vla-object (ssname ss 0)) "yy"))))
)

BDYCAD

因為在while 循環里面的n值大過3所以只有第一次循環時的實體是用到"10"的. 就是說把(setq lll (nth n ll))改為(setq lll (car         ll))便每次得到"10"了

kellyyang1

不是啊！！我并不是总是想得到10啊！！我本意是想随着直线的不同而得到不同的值！！即选择一个直线时得到10，选择另外一个时又可以得到20。。。

meflying

2楼的程序有什么问题吗？好歹也给个说法。。。


用下面的提取看看：


(cdar (vlax-ldata-get (vlax-ename-&gt;vla-object (car (entsel))) "yy"))