请高手看看这个是出拉什么问题

xuhnsz188

(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)")参数太多

caoyin

把(ok_mr)放到 start_dialog后面，如果 (start_dialog)返回1则执行(ok_mr)

xuhnsz188

谢谢 我试试