一个LISP小程序

抬头见喜

刚学VLISP ，
' a5 J6 J7 q9 ~$ H6 z9 V8 E8 g
试编一小程序如下
$ K' I7 S. l- ~
(defun c:abc(\ x1 x2 x3 x4 )
: c- d+ W  W3 r) n: U+ T# Q  (setq x1 (getint "\n输入变量1:"))
  (setq x2 (getint "\n输入变量2:"))
, T* E& G- l* {  @  (setq x3 (getint "\n输入变量3:"))
  E0 R7 v" Y! W* b- Z) [  (setq x4 (getint "\n输入变量4:"))
(setq z1 (0,(+ x2 x4)))
(setq z2 (x1,(+ x3 x4)))
(command "line" z1  z2 "")
8 z$ L$ B1 i2 g(printc)
3 L/ A5 m1 K; {9 W  G   
)
7 _" M+ P* v7 S' I
7 _; Z4 N6 ?0 N% l2 M! ]运行时反馈  no function definition: 0,
8 B- Z6 x8 m6 g2 d, B1 K
程序哪里有错,为什么?

, a" u; i( y8 a

5 k8 o; X4 Q$ {! X/ F( B6 N请热心人指点一下

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

sealive_leafage

(defun c:abc (/ x1 x2 x3 x4)
6 W% s% T( ~4 }0 l& A  w4 i  (setvar "cmdecho" 0)   ;关闭回显
  (setq x1 (getint "\n输入变量1:"))
  (setq x2 (getint "\n输入变量2:"))
  (setq x3 (getint "\n输入变量3:"))
  (setq x4 (getint "\n输入变量4:"))
  (setq z1 (list 0 (+ x2 x4)))
) X. T. I3 f& X  (setq z2 (list x1 (+ x3 x4)))
! r" p: |. n; ?  (command "line" z1 z2 "")
  (setvar "cmdecho" 1)   ;打开回显
5 r$ c4 P% b. ~* B5 e  (princ)
)
8 V* p, y8 c9 O+ C* T, B

2 _; B# K0 f% f' x; f' O  w/ @8 F% z
princ不是printc；局部变量前是/，不是\；

/ |. m& I. g% {! d- T1 @0 {0 ][ 本帖最后由 sealive_leafage 于 2008-6-17 09:28 编辑 ]

抬头见喜

谢谢,已试通,
如去掉打开回显和关闭回显就显示"ABC 未知命令“ABC”。按 F1 查看帮助"。
请问
关闭回显和打开回显有什么用?
4 {. _7 [7 F1 B! P) v. `  H2 g
# E$ r3 z4 _) _& y; h" G
另外:变量如何声明,如我的例子有X1-X4,Z1,Z2 6个变量,如只声明X1-X4
  q- B  {' ~% a3 U0 w# F
( q# t. t) S3 x7 W9 d运行正常,加上Z1和Z2就提示参数太少,这又是为何?
7 D6 p2 R9 g$ q5 ?: ?
  r; I  f+ u" h8 r
明白了,谢谢.

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

woaishuijia

下面的代码是没有问题的。对照着看一下自己写的代码哪里错了

/ n/ u: Y( r0 n8 U. D+ O) `(defun c:abc (/ x1 x2 x3 x4 z1 z2)
  (setq x1 (getint "\n输入变量1:"))
( V6 z( d# v5 Q0 N- ?9 x8 F; E  (setq x2 (getint "\n输入变量2:"))
  (setq x3 (getint "\n输入变量3:"))
  (setq x4 (getint "\n输入变量4:"))
, P  f# _9 k7 L" K7 Z  (setq z1 (list 0 (+ x2 x4)))
  (setq z2 (list x1 (+ x3 x4)))
- O) O; J6 T# ~1 @5 ^  (command "line" z1 z2 "")
0 Y+ V& }& w' Q  (princ)
)
, l! i# v" H1 m% u
' j- z4 r! m% L6 O+ O) ~打开和关闭回显两行代码的含义是修改"cmdecho"系统变量。至于有什么作用，希望还是由你自己亲自做一下实验：分别加载运行含和不含打开/关闭回显代码的LSP程序，F2调出文本窗口，看看记录有什么不同。