Question

CAD LISP二次开发高手请进

(defun c:oldr()
setq ent(entsel "\n选择对象")
setq entc(assoc 40 ent)
setq newr(cons 40 10)
)

运行时出错
错误: 关联列表错误: (<图元名: 7ef86e10> (489492.0 3.10824e+006 0.0)

是set entc(assoc 40 ent)出错了，不知怎么搞的。

Answer 1

1楼的写法复杂了。选择一个实体不用用到选择集。
楼主代码的错误是：entsel 返回的不光是实体名，还包括选择点的坐标。
修改：把setq ent(entsel "\n选择对象") 改成 setq ent（car(entsel "\n选择对象")）
加入一个car，搞定。
还有：每个赋值语句都缺少括号，最终修改如下：
(defun c:oldr()
(setq ent(entsel "\n选择对象"))
(setq entc(assoc 40 ent))
(setq newr(cons 40 10))
)

Answer 2

应该这样写：
(defun c:oldr()
(setq ss (ssget)
ent (entget (ssname SS 0))
entc (assoc 40 ent)
newr (cons 40 10)
)
(print entc)
(print newr)
(princ)
)

测试结果

命令: oldr
选择对象: 找到 1 个
选择对象:
(40 . 3.5)
(40 . 10)