为什么提示组码错误LISP

lzy9788

为什么我用assoc 提取尺寸的一个点（组码为13）时提示组码错误。 程序码如下： (defun c:dbb ()
(princ "\n请选择要合并的尺寸.")
(setq ss1 (ssget ":s" '((0 . "DIMENSION"))))
(setq nam1 (ssname ss1 0)
ent1 (entget nam1)
pdim1_13 (cdr (assoc 13 ent1))
pdim1_14 (cdr (assoc 14 ent1)))
(setq ss2 (ssget ":s" '((0 . "DIMENSION"))))
(setq nam2 (ssname ss2 0)
ent2 (entget nam2)
pdim2_13 (cdr (assoc 13 ent2))
pdim2_14 (cdr (assoc 14 ent2)))
(setq bb (list pdima1_13 pdim1_14 pdim2_13 pdim2_14))
(setq bb1
(vl-sort bb
(function (lambda (e1 e2)
(< (car e1) (car e2)) ) ) )
);;end setq X坐标从小到大排序
(setq bb2
(vl-sort bb
(function (lambda (e1 e2)
(< (cadr e1) (cadr e2)) ) ) )
);;end setq Y坐标从小到大排序 (setq bbb (if (or (= ang1 0) (= ang1 pi)) bb1 bb2))
(princ bb1)
(setq ang1 (angle pdim1_13 pdim1_14) ang2 (angle pdim2_13 pdim2_14))
(setq ent1 (subst (cons 13 (nth 0 bbb)) (assoc 13 ent1) ent1))
(setq ent1 (subst (cons 14 (nth 3 bbb)) (assoc 14 ent1) ent1))
(entmod ent1)
(command "erase" ss2 "")
(princ));end defun

lzy9788

哦，好了，错了


(setq bb (list pdim1_13 pdim1_14 pdim2_13 pdim2_14))


不好意思，太粗心