为什么，在命令行可以，在对话框就不行

易趣平

我在命令行可以这行：
(defun c:ta()
(SetQ l1 (Getint "\n行数=") width 231.7177 height 25.2964)
       (SetQ p0 (GetPoint "\n选择基点: "))
;;;绘制表格
       (Command "line" p0
        (Polar (GetVar "Lastpoint")(- (* 0.5 Pi))(* height l1))
              (Polar (GetVar "Lastpoint") 0 width)
        (Polar (GetVar "Lastpoint") (* 0.5 Pi) (* height l1)) "cl" )
        (command "_array" (entlast) "" "r" l1 "1" (* -1 height))

        (command "_line" "from" p0
        (polar (getvar "lastpoint") (- (* 0.5 pi))(* height l1))
        "from" (polar (getvar "lastpoint") 0 0)
        (polar (getvar "lastpoint") 0 142.7406)
        (polar (getvar "lastpoint") (* 0.5 pi) (* height (- l1 1)))
        (polar (getvar "lastpoint") 0 35.3552)
        (polar (getvar "lastpoint") (- (* 0.5 pi)) (* height (- l1 2))) ""
        )
)
如果把(defun C:ta()改为 (defun ta()

再从对话框中的 in2dwg按钮中调用就不行
(action_tile "in2dwg" "(in2dwg)")
就不行？
为什么？？

mccad

易趣平

那怎么隐藏对话框呢

前生

done_dialog的值进行处理啊

前生

(setq dcl_id (load_dialog "aps.dcl"))
  (WHILE (> DO1 1)
    (if        (not (new_dialog "dde" dcl_id))
      (exit)
    )
    (start1)
    (setdate "t1")
    (mode_tile "accept" #kg)
    (action_tile
      "scw1"
      "(setq ix $x)(setq iy $y)(ss1 ix iy )"
    )
;;;    (action_tile "ed" "(ed)")
    (action_tile "dd" "(done_dialog 3)")
    (action_tile "accept" "(done_dialog 1)")
    (action_tile "se" "(done_dialog 2)")
    (action_tile "cancel" "(done_dialog 0)")
    (setq DO1 (start_dialog))
    (cOND
      ((= do1 1) (draw))
      ((= do1 2) (sel))
      ((= do1 3) (draw))
    )
  )

易趣平

非常感谢