CAD LISP二次开发高手请进

2024-12-12 22:53:25

推荐回答（2个）

回答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))
)

回答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)