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

ycy970837 · 发表于 2009-5-17 15:08:00

本帖最后由作者于 2009-5-17 16:46:59 编辑

第一次写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 · 发表于 2016-10-24 14:05:50

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

ycy970837 · 发表于 2009-5-17 16:48:00

麻烦大家帮忙看看。

ycy970837 · 发表于 2009-5-17 17:29:00

自已搞定了，谢谢。

zhangxin0298 · 发表于 2016-10-22 17:13:22

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

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

前生 · 发表于 2016-10-24 12:25:53

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

账号		自动登录	找回密码
密码			注册