输入的点对中含有多余的cdrs

我爱你王子呀 · 发表于 2015-9-19 19:24:47

这个是我编写的一个动态画直线的测试程序。为什么运行的时候总是提示输入的点对中含有多余的 cdrs。找了很久没找出来毛病，还请大神们看看错在哪里呀

(defun C:ceshi(/ en gr %k grm grzb )
(command "line" '(10 10) '(20 20) "")
  (setq en (entlast))
  (setq en (entget en))
  (setq gr (grread T 4 0))
  (setq %k T)

  (while %k
(setq grzb (cadr gr) grm (car gr))
(if (= grm 5)
      (
      (setq en (subst (cons 11 grzb) (assoc 11 en) en))
      (entmod en)
   )
)
(if (or (= grm 3) (= grm 2) (= grm 25)) (setq %k nil))
  )
)

edata · 发表于 2015-9-19 21:08:40

(defun C:ceshi(/ en gr %k grm grzb )
(command "line" '(10 10) '(20 20) "")
(setq en (entlast))
(setq en (entget en))
(setq %k T)
(while %k
(setq gr (grread T 4 0))
(setq grzb (cadr gr) grm (car gr))
(if (= grm 5)
(progn
(setq en (subst (cons 11 grzb) (assoc 11 en) en))
(entmod en)
)
)
(if (or (= grm 3) (= grm 2) (= grm 25)) (setq %k nil))
)
)

我爱你王子呀 · 发表于 2015-9-20 17:19:02

edata 发表于 2015-9-19 21:08

谢谢 edata大神

我爱你王子呀 · 发表于 2015-9-20 17:30:24

edata 发表于 2015-9-19 21:08

真的好谢谢你，大神我这个程序运行了好久，要么死机，要么说什么cdrs多余，木想到你稍微一修改，就可行了，真是高手。爱死你了

我爱你王子呀 · 发表于 2015-9-20 18:11:15

edata 发表于 2015-9-19 21:08

你修改过的函数(progn
      (setq en (subst (cons 11 grzb) (assoc 11 en) en))
      (entmod en)
      ) 可以不要progn 函数吗？

edata · 发表于 2015-9-20 18:21:46

括号的第一个字符必须是函数，这是lisp的基本规则。

我爱你王子呀 · 发表于 2015-9-20 20:03:21

3q 大神不吝赐教

我爱你王子呀 · 发表于 2015-9-20 20:28:25

edata 发表于 2015-9-20 18:21
括号的第一个字符必须是函数，这是lisp的基本规则。

小弟刚刚试了下，如果不加 prong，确实不行呢。谢谢大神亲自改写程序，还一直孜孜不倦解答我疑惑

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

[已解答] 输入的点对中含有多余的cdrs

点评