代码问题

windtalkers · 发表于 2010-4-20 08:31:00

请大家帮小妹检查代码的问题,我找不出原因,让大家见笑了!

liminnet · 发表于 2010-4-20 09:37:00

提示: 作者被禁止或删除内容自动屏蔽

windtalkers · 发表于 2010-4-20 16:29:00

怎么没人帮帮我呀

fansmax · 发表于 2010-4-20 18:01:00

(defun oweight(/ a b c d e);
      (setq a (atof (get_tile "s_out")));
      (setq b (atof (get_tile "s_in")));
      (setq c (atof (get_tile "gear_list1")));
      (setq d (atof (get_tile "gear_list2")));
      (setq e (- a b ));
      (set_tile "show" (rtos e 2 2));
      (set_tile "show" $value);
)

缺少(massprop)函数。由于不是机械专业，怕搞错，也就不搞了。

ZZXXQQ · 发表于 2010-4-20 20:32:00

改动部分：

(defun c:kg (/ sdt id a b c d e f DWGPATH PT)
(setq id (load_dialog "C:\\Program Files\\AutoCAD 2004\\AutoCAD(钣金)二次开发\\二次开发命令\\lisp\\kg.dcl"))
(if (< id 0) (exit))
(if (not (new_dialog "kg" id)) (exit))
(action_tile "pick1" "(massprop)")
(action_tile "pick2" "(massprop)")
(action_tile "weight" "(oweight)")
(action_tile "goout" "(ogoout)")
(action_tile "cancel" "(done_dialog 0)")
(start_dialog)
(unload_dialog id)
(princ)
)
(defun oweight(/ a b c d e)
(setq a (atof (get_tile "s_out")))
(setq b (atof (get_tile "s_in")))
(setq c (atof (get_tile "gear_list1")))
(setq d (atof (get_tile "gear_list2")))
(setq e (- a b))
(set_tile "show" (rtos e 2 3))
)

windtalkers · 发表于 2010-4-21 10:39:00

太感谢大家了!

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

[讨论] 代码问题

本帖子中包含更多资源

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-4-20 09:37:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡