一个LISP小程序

抬头见喜

刚学VLISP ，
8 c+ o8 W1 ~4 S2 c
' V) ~! t" S  R" p) H, \试编一小程序如下

(defun c:abc(\ x1 x2 x3 x4 )
  (setq x1 (getint "\n输入变量1:"))
& S6 C8 R, H1 J  (setq x2 (getint "\n输入变量2:"))
  (setq x3 (getint "\n输入变量3:"))
  (setq x4 (getint "\n输入变量4:"))
(setq z1 (0,(+ x2 x4)))
# g1 P5 D" A* w) z, o(setq z2 (x1,(+ x3 x4)))
(command "line" z1  z2 "")
(printc)
   
$ B! l7 [; ]! d6 r* F! r)

运行时反馈  no function definition: 0,

$ H0 @5 Y+ z3 y& N  M: s程序哪里有错,为什么?



; N4 q1 ?: Y" T! O4 N. R7 a' s请热心人指点一下

[ 本帖最后由 抬头见喜 于 2008-6-17 06:24 编辑 ]

sealive_leafage

(defun c:abc (/ x1 x2 x3 x4)
0 N4 L. T4 j* O5 i4 B- J: ~  (setvar "cmdecho" 0)   ;关闭回显
: u1 y! P' l) D) i. w# _$ j  (setq x1 (getint "\n输入变量1:"))
3 o/ f' f( n' q. S8 G* ~& W4 G- ]  (setq x2 (getint "\n输入变量2:"))
  (setq x3 (getint "\n输入变量3:"))
# u  R( |' m0 i2 _; Z( o% h  (setq x4 (getint "\n输入变量4:"))
1 Q* h; V4 v' B: m4 `% y) R  (setq z1 (list 0 (+ x2 x4)))
  (setq z2 (list x1 (+ x3 x4)))
0 x( b( n7 U$ G  r; T! ]! D  (command "line" z1 z2 "")
  (setvar "cmdecho" 1)   ;打开回显
) ?5 p5 Y+ i& e2 F3 Q  (princ)
)
; C) X( K- W+ j& ~+ e
8 @' C- g0 H, w5 m! M

princ不是printc；局部变量前是/，不是\；
( Z$ K! u/ m  b8 e8 G2 }
[ 本帖最后由 sealive_leafage 于 2008-6-17 09:28 编辑 ]

抬头见喜

谢谢,已试通,
如去掉打开回显和关闭回显就显示"ABC 未知命令“ABC”。按 F1 查看帮助"。
请问
关闭回显和打开回显有什么用?
% b2 j: `0 A9 o6 Z, l# D, L# J
' T1 A0 \# \0 T3 ~5 s! Y/ S# l
另外:变量如何声明,如我的例子有X1-X4,Z1,Z2 6个变量,如只声明X1-X4
9 Q1 m. s$ F- q/ g3 Q) h) v1 Z( b
运行正常,加上Z1和Z2就提示参数太少,这又是为何?
! \; e( ~- V; Y! R
3 q' R* F$ ~; @* Z( y
1 h0 r1 `% b1 g; o7 E0 Y0 l) Z明白了,谢谢.
- q: ?  w( a5 C7 I' J: ^" [) f
[ 本帖最后由 抬头见喜 于 2008-6-17 21:47 编辑 ]

woaishuijia

下面的代码是没有问题的。对照着看一下自己写的代码哪里错了
& v, |0 T% S, f7 c0 {- k
$ |! q0 R% i% w% h* [(defun c:abc (/ x1 x2 x3 x4 z1 z2)
4 ^+ |0 f  y- h$ m" G  (setq x1 (getint "\n输入变量1:"))
  (setq x2 (getint "\n输入变量2:"))
+ b$ S+ V' p, ]) m" O' U  (setq x3 (getint "\n输入变量3:"))
  (setq x4 (getint "\n输入变量4:"))
9 `; u6 y. e, m, ]  (setq z1 (list 0 (+ x2 x4)))
9 `- o! b% }; o  (setq z2 (list x1 (+ x3 x4)))
  (command "line" z1 z2 "")
' L. \/ k7 o# i6 C  (princ)
)

' B* r, G9 n- v  n  R: R3 J: K打开和关闭回显两行代码的含义是修改"cmdecho"系统变量。至于有什么作用，希望还是由你自己亲自做一下实验：分别加载运行含和不含打开/关闭回显代码的LSP程序，F2调出文本窗口，看看记录有什么不同。