[求助]：不知道哪错了

gucci218

(defun c:bz()
    (setvar "cmdecho" 0)
    (setq list '())
    (setq i 0)
    (setq ent (car (entsel)))
    (setq entdate (entget ent))
    (setq n (length entdate))  
(repeat n
    (setq list (nth i entdate))
    (setq key (car list))
   (if (= key 10)
    (setq pt (cdr list))
    (setq date (cons pt date))
   )
    (setq i (1+ i))
)
   (setq date (reverse date))
(prin1)
)

似水无痕

list为内部函数，不可以赋值。运行通不过，可能是这里的问题，但你的程序要得到什么，有点不清楚。我想你是想要得到pline线的点列表么？

[PHP](defun c:bz (/ date pplist plist ent entdate)
  (setvar "cmdecho" 0)
  (setq date nil)
  (setq ent (car (entsel)))
  (setq entdate (entget ent))
  (SETQ pplist (member (assoc 10 entdate) entdate))
  (while (/= pplist nil)
    (setq date (cons (cdr (car pplist)) date))
    (setq plist (cdr pplist))
    (setq pplist (member (assoc 10 plist) plist))
  )
  (setq date (reverse date))
  (princ date)
)[/PHP]

gucci218

谢谢，我要得到的的确是pl的坐标，我找到了我的错误了，贴个新的：
(defun c:bz()
    (setq ent (car (entsel)))
    (setq entdate (entget ent))
    (setq date '())
    (setq i 0)   
    (setq n (length entdate))  
(repeat n
    (setq sublist (nth i entdate))
    (setq key (car sublist))
   (if (= key 10)
    (progn
    (setq pt (cdr sublist))
    (setq date (cons pt date))
    )
   )
(setq i (1+ i))
)
   (setq date (reverse date))
(prin1)
)
不过你的比我的写的好