[求助]：我这段代码错在哪?(ljpnb已帮忙解决)

kevinchan · 发表于 2005-4-5 15:47:48

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

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

×

已解决...

ljpnb · 发表于 2005-4-5 16:04:16

我修改过了：

....
(defun c:test () ;竖直排列网点,单边光源
  (command "osnap" "none")
  (setvar "cmdecho" 0)
  (dcl_dia1) ;调用对话框子程序
  (prin1) ;防止nil
)
(defun dcl_dia1 ()
  (setq dcl_id (load_dialog "dia1")) ;载入DCL文件
  (new_dialog "dia1" dcl_id) ;启动dia1对话框
  (set_tile "kr1" "0.2") ;设定r1起始值
  (set_tile "kr2" "0.5") ;设定b起始值
  (set_tile "kb" "0.8") ;设定b起始值
  (set_tile "kh" "0.9") ;设定h起始值
  (set_tile "knn" "50") ;设定nn起始值
  (set_tile "kgg" "30") ;设定gg起始值
  (action_tile "draw_ok" "(get_rbh)(done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
(c:zhipai)
(t (alert "未完成任何动作!!!"))
  )
)

(defun get_rbh ()
  (setq r1 (atof (get_tile "kr1")))
  (setq r2 (atof (get_tile "kr2")))
  (setq b (atof (get_tile "kb")))
  (setq h (atof (get_tile "kh")))
  (setq nn (atof (get_tile "knn")))
  (setq gg (atof (get_tile "kgg")))
)

(defun c:zhipai ()
  (setvar "cmdecho" 0)
  (setq a (/ (- r2 r1) (1- nn)))
  (setq pt1 (getpoint "任选一点:"))
  (setq i 0
c 0
  )
  (setq nnn (/ nn b))
  (setq n (fix nnn))
  (setq ggg (/ gg h))
  (setq g (fix ggg))
  (while (<= i n)
(setq f (nth 0 pt1)
   e (* b i)
)
(setq pt (list (+ f e) (nth 1 pt1)))
(setq d (+ r1 (* a i)))
(setq i (1+ i))
(command "circle" pt (/ d 2)) ;用圆形绘制
  ) ;while
  (command "array" "all" "" "" (1+ g) 1 h )
  (prin1)
)

kevinchan · 发表于 2005-4-5 16:14:40

非常谢谢!
除了一个关键错误在setvar "b" 中不改加""号以外,能帮我说明一下哪些地方错了吗?
谢谢!

ljpnb · 发表于 2005-4-5 16:24:29

最关键是这：
(defun get_rbh ()
(setq r1 (atof (get_tile "kr1")))
(setq r2 (atof (get_tile "kr2")))
(setq b (atof (get_tile "kb")))
(setq h (atof (get_tile "kh")))
(setq nn (atof (get_tile "knn")))
(setq gg (atof (get_tile "kgg")))
)
不是用setvar，而是用setq，setvar是对系统变量进行操作，setq是对一般变量的附值

kevinchan · 发表于 2005-4-5 16:29:03

啊...终于明白了,谢谢ljpnb!!!
原来你在宁波呀,我在慈溪!
呵呵,再次感谢!!!!

kevin

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

[求助] [求助]：我这段代码错在哪?(ljpnb已帮忙解决)

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

相关帖子