[求助]：刚学lisp，不知道为什么不行

zjdtm · 发表于 2004-7-20 15:46:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:chgrad()
  (setvar "cmdecho" 0)
  (setq en (entsel "选取已知圆"))
  (setq en_data (entget (car en)))
  (setq old_rad_list (assoc 40 rad_list))
  (setq old_rr (cdr rad_list))
  (princ "\n旧半径=")(princ old_rr)
  (setq cenpt (cdr (assoc 10 en_data)))
  (setq new_rr (getdist cenpt "New Radius:"))
  (setq en_data (subst new_rad_list old_rad_list))
  (entmod en_data)
  (prin1)
  )
(prompt"cmd:chgrad")
(prin1)

LUCAS · 发表于 2004-7-20 16:44:05

(defun C:CHGRAD ()
  (setvar "cmdecho" 0)
  (setq EN (entsel "\n選取已知圓: "))
  (setq EN_DATA (entget (car EN)))
  (setq OLD_RAD_LIST (assoc 40 EN_DATA))
  (setq OLD_RR (cdr OLD_RAD_LIST))
  (princ "\n舊半徑=")
  (princ OLD_RR)
  (setq CENPT (cdr (assoc 10 EN_DATA)))
  (setq NEW_RR (getdist CENPT "\nNew Radius:"))
  (setq EN_DATA (subst (cons 40 NEW_RR) OLD_RAD_LIST EN_DATA))
  (entmod EN_DATA)
  (prin1)
)
(prompt "Type chgrad")
(prin1)

zjdtm · 发表于 2004-7-20 17:06:27

您老能不能指出我的错误。

wkai · 发表于 2004-7-20 18:19:37

程序问题已经列出来了
[PHP](defun c:chgrad ()
  (setvar "cmdecho" 0)
  (setq en (entsel "选取已知圆"))
  (setq en_data (entget (car en)))
  (setq old_rad_list (assoc 40 rad_list))
  ;;;rad_list是什么？前面没有赋值呀！！这一句运行完old_rad_list等于nil
  (setq old_rr (cdr rad_list))
  ;;;rad_list是什么？这一句运行完old_rr等于nil
  (princ "\n旧半径=")
  (princ old_rr)
  ;;;打印old_rr值为nil
  (setq cenpt (cdr (assoc 10 en_data)))
  (setq new_rr (getdist cenpt "New Radius:"))
  (setq en_data (subst new_rad_list old_rad_list))
  ;;;subst需要三个参数,这里只有两个,程序出错退出.
  ;;;另外new_rad_list在前面也没有赋值,old_rad_list的值是nil
  (entmod en_data)
  (prin1)
)
(prompt "cmd:chgrad")
(prin1)[/PHP]

参考下面修改过的

[PHP](defun c:chgrad ()
  (setvar "cmdecho" 0)
  (setq en (entsel "选取已知圆"))
  (setq en_data (entget (car en)))
  (setq old_rad_list (assoc 40 en_data))
  (setq old_rr (cdr old_rad_list))
  (princ "\n旧半径=")
  (princ old_rr)
  (setq cenpt (cdr (assoc 10 en_data)))
  (setq new_rr (getdist cenpt "New Radius:"))
  (setq en_data (subst (cons 40 new_rr) old_rad_list en_data))
  (entmod en_data)
  (prin1)
)
(prompt"cmd:chgrad")
(prin1) [/PHP]

zjdtm · 发表于 2004-7-21 16:56:17

(princ "\n旧半径=")
这一句执行后为什么没有换行，
执行结果如下：旧半径=12.5 New Radius:50
为什么New Radius:50没有在下一行显示

lijiao · 发表于 2004-7-22 07:43:44

(setq new_rr (getdist cenpt "\nNew Radius:"))

zzx76 · 发表于 2004-8-13 10:15:19

有四个错，见下面
(defun c:chgrad()
(setvar "cmdecho" 0)
(setq en (entsel "选取已知圆"))
(setq en_data (entget (car en)))
  (setq old_rad_list (assoc 40 en_data))  ;第一个错
  (setq old_rr (cdr old_rad_list)) ;第二个错
(princ "\n旧半径=")(princ old_rr)
(setq cenpt (cdr (assoc 10 en_data)))
(setq new_rr (getdist cenpt "New Radius:"))
  (setq new_rad_list (cons 40 new_rr))  ;第三个错（少一行）
　(setq en_data (subst new_rad_list old_rad_list en_data))　;第四个错
(entmod en_data)
(prin1)
)
(prompt"cmd:chgrad")
(prin1)

chenhaitao_88 · 发表于 2004-8-16 16:44:53

都是高手。

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

[求助] [求助]：刚学lisp，不知道为什么不行

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块