每次运行提示错误: 函数错误: 该怎么办？

Question

<图元名: -279f28>，cons函数真心不会用，在线等，太急了

(defun c:pwline( / )
(setq pline_name (car(entsel"请选择需要标注的多段线:")))
(setq pline_content (entget(pline_name)))
(setq l (length pline_content))
(setq n 0)
(setq zb (list '(a b)))
(while (< n l)
(setq el (nth n pline_content))
(setq ele (car el))
(if (equal ele 10)
(setq zb (cons '(cdr el) 'zb))
)
(setq n (1+ n))
)
;;;;;;;;;;;;;
(setq l(length zb))
(setq m 0)
(while(< m l)
(setq p (nth m zb))
(command "circle" p 10)

)

;;;;;;;;;;;;;;

)

Answer 1

你的程序第三行中(entget(pline_name))是错误的，pline_name不应该有括号。程序编写过于复杂，简化程序如下：(defun c:pwline (/ pline_name pline_content c)(setq pline_name (car (entsel "请选择需要标注的多段线:"))pline_content (entget pline_name)c (assoc 10 pline_content))(while c(command "circle" (cdr c) 10)(setq pline_content (cdr (member c pline_content))c (assoc 10 pline_content))))