yang686526

请高手看看这个是出拉什么问题
www.dimcax.com
请高手看看这个是出拉什么问题
(defun c:mr()
(setq p5 (getpoint " 请输入模仁的插入点:"))
(setq aaa(load_dialog "mr"))
(if (null (new_dialog "mr" aaa))
(exit))
(action_tile "mra1" "(setq a $value)")
(action_tile "mrb1" "(setq b $value)")
(action_tile "mrd1" "(setq c $value)")
(action_tile "accept" "(ok_mr)(done_dialog 1)")
(start_dialog)
(prin1)

)
(defun ok_mr()
(setq mrk1 (atof"(getvar a )"))
(setq mrc1 (atof"(getvar b)"))
(setq mcd1 (atof"(getvar c)"))
(mrdw)
)
(defun mrdw()
(setq x3 (car p5 ))
(setq y3 (cadr p5 ))
(setq mrp2 (list (fix x3) (fix y3)))
(setq mrjj1 (polar mrp2 pi (* 0.5 mrk1)))
(setq mrj1 (polar mrjj1 (* 0.5 pi) (* 0.5 mrc1)))
(setq mrjy1 (polar mrp2 0 (* 0.5 mrk1)))
(setq mrj2 (polar mrjy1 (* 1.5 pi) (* 0.5 mrc1)))
(command "rectang" mrj1 mrj2 "")
)
运行是提示 (action_tile "accept" "(ok_mr)(done_dialog 1)")参数太多
d
把(ok_mr)放到 start_dialog后面，如果 (start_dialog)返回1则执行(ok_mr)
d
谢谢 我试试
d