为什么提示组码错误LISP

lzy9788 · 发表于 2004-4-5 19:27:00

为什么我用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 · 发表于 2004-4-5 19:33:00

哦，好了，错了
(setq bb (list pdim1_13 pdim1_14 pdim2_13 pdim2_14))
不好意思，太粗心

为什么提示组码错误LISP

发表回复

精选推荐

浏览过的版块