[LISP程序]：一段简单的DCL,提示说参数太多

dhxf

;;1;LSP
(defun c:nnd ( )
(setq dcl_id (load_dialog "nnd.dcl"))
(if (not (new_dialog "nnd1" dcl_id))
(exit)
)
(action_tile "1" "(setq a "WL")")
(action_tile "2" "(setq a "WE")")

(if (= 1 (start_dialog))
(progn

(while
(setq po (getpoint "\n**点:"))
(command "text" po  ""  ""  (strcat  a))
)
))

(unload_dialog dcl_id)
(print)
)
;;;;;;;2-- DCL
//编写DCL程序//
nnd1 : dialog {
label = "对话框";
:button {label = "WL"; key = "1";}
:button {label = "WE"; key = "2";}
ok_cancel;
}

学写的,麻烦哪位看看怎么修改.
谢谢

似水无痕

;;nnd（奶奶的）.lsp程序修改如下
;;1;LSP
(defun c:nnd ()
  (setq dcl_id (load_dialog "nnd.dcl"))
  (if (not (new_dialog "nnd1" dcl_id))
    (exit)
  )
  (setq        wl "WL"
        we "WE"
  )
  (action_tile "1" "(setq a  WL)")
  (action_tile "2" "(setq a WE)")

  (if (= 1 (start_dialog))
    (progn

      (while
        (setq po (getpoint "\n**点:"))
         (command "text" po "" "" (strcat a))
      )
    )
  )

  (unload_dialog dcl_id)
  (print)
)

dhxf

ha 谢谢了;
好用还有个过分想法;
想改这样:
(action_tile "1" "(setq a "1al-1")")
(action_tile "2" "(setq a "建施-1")")

怎么办啊

似水无痕

这个简单么，你先看看上边两个程序的区别：
;;1;LSP
(defun c:nnd ()
  (setq dcl_id (load_dialog "nnd.dcl"))
  (if (not (new_dialog "nnd1" dcl_id))
    (exit)
  )
  (setq        wl "1al-1"
        we "建施-1"
  )
  (action_tile "1" "(setq a  WL)")
  (action_tile "2" "(setq a WE)")

  (if (= 1 (start_dialog))
    (progn

      (while
        (setq po (getpoint "\n**点:"))
         (command "text" po "" "" (strcat a))
      )
    )
  )

  (unload_dialog dcl_id)
  (print)
)
;;大致改了一下

dhxf

这个问题IC
再次感谢---shuiwuhen.