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

kellyyang1 · 发表于 2004-3-9 13:44:00

(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 (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 · 发表于 2004-3-9 14:00:00

(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 (vla-object s1) "yy"
   (list (cons 1 lll)))
   )
   (setq ttt (cdr(assoc 1 (vlax-ldata-get
   (vlax-ename->vla-object (ssname ss 0)) "yy"))))
   )