[求助]修改圆的直径的LSP执行时的错误（DXF组不正确）

ycy970837

第一次写LSP，执行时提示错误“DXF组不正确”：大帮我看看是什么原因？谢谢。

程序如下：

(DEFUN C:RRR ()
(SETQ SSS(ENTSEL))
(SETQ AAA(ENTGET (CAR SSS)))
(SETQ BBB(ASSOC 40 AAA))
(SETQ FFF(GETREAL"\n请输入新的半径："))
(SETQ CCC(CONS 40 FFF))
(SETQ SSS(SUBST CCC BBB SSS))
(ENTMOD SSS)
)

lijiao

(SETQ SSS(SUBST CCC BBB SSS))------>(SETQ SSS(SUBST CCC BBB AAA))

ycy970837

麻烦大家帮忙看看。

ycy970837

自已搞定了，谢谢。

zhangxin0298

ycy970837 发表于 2009-5-17 17:29
自已搞定了，谢谢。

怎么搞定的，我也是这种问题，求教

前生

最简单的方法是
（entdel sss）
(entmake (cond 0 "ciecle")
              (assoc 8 aaa)
              (assoc 10 aaa)
              (assoc 40 fff)
)