[LISP程序]：参数太少

zhaozhi

请教下面的LISP为什么参数太少,多谢.



(defun c:9(lite1 lite2 lite3 lite4)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  ;;
  (initget "1 2 3 4")
  (setq lite (getkword "please enter 1, 2, 3, 4, <1>:"))
  (if (= lite nil) (setq lite 1))
    (cond  ((= lite 1) (princ 1))
           ((= lite 2) (princ 2))
           ((= lite 3) (princ 3))
           ((= lite 4) (princ 4))
           (T          (princ 1))
           )
    )

lsjjm

这段程序有多多问题:
1.函数名不能数字打头
2.带C:的函数不能有参数
3.GETKWORD 返回的是字符号
这是改好的CODE:
(defun c:test ( / lite1 lite2 lite3 lite4)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
;;
(initget "1 2 3 4")
(setq lite (getkword "please enter 1, 2, 3, 4, <1>:"))
(if (= lite nil) (setq lite 1))
(cond ((= lite "1") (princ 1))
((= lite "2") (princ 2))
((= lite "3") (princ 3))
((= lite "4") (princ 4))
(T (princ 1))
)
)

snsj

COND里的一大堆没什么用处直接 princ就行了

aeo

最初由 zhaozhi 发布
[B]请教下面的LISP为什么参数太少,多谢.



(defun c:9(lite1 lite2 lite3 lite4)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  ;;
  (initget "1 2 3 4")
  (setq lite (getkword "please enter 1, 2, 3,... [/B]

上面的其实都答了.

1.(defun c:9 ( / lite1...)
数字可以.

参数也可以加,但命令直接9是不行了.要这样运行比如:
(defun c:9(a)(princ a))
要用只能打入命令: (c:9 0)

2. 整个code写成(princ lite)

lsjjm

4楼:
"参数也可以加" ??  即 (defun c:test (lite1 lite2 lite3 lite4) ??