Question

lisp; 错误: 参数类型错误: consp 1800.09

; 错误: 参数类型错误: consp 1800.09
(defun c:clbpx()
(vl-load-com)
(setq ss (ssget))
(setq ent_new ())
(setq i 0)
(repeat (sslength ss)
(setq crd_y (cadr (cdr (assoc 10 (entget (ssname ss i))))))
(setq ent (cons (ssname ss i) crd_y))
(setq ent_new (append ent_new (list ent)))
(setq i (1+ i))
)
(setq ent_new (vl-sort ent_new
(function (lambda (e1 e2)
(< (cadr e1) (cadr e2))))))
(setq ssadd_new (ssadd))
(setq j 0)
(repeat (length ent_new)
(setq ssadd_new (ssadd (car (nth j ent_new)) ssadd_new))
(setq j (1+ j))
)
(print "成功！")
)

Answer 1

(setq ent (cons (ssname ss i) crd_y))改成下句试试
(setq ent (list (ssname ss i) crd_y))