一个LISP小程序

抬头见喜

刚学VLISP ，

9 c, J: J' P: t; Z8 O试编一小程序如下
8 D( p6 D1 w5 S0 N4 X+ h
(defun c:abc(\ x1 x2 x3 x4 )
# B8 t# F( Y  J# Q3 ^% r: f4 N  (setq x1 (getint "\n输入变量1:"))
  (setq x2 (getint "\n输入变量2:"))
  N0 f/ ^! y8 d& n  (setq x3 (getint "\n输入变量3:"))
/ Q+ B. O, N6 Y; u  (setq x4 (getint "\n输入变量4:"))
1 S8 I; j- C; E8 ?" q& w(setq z1 (0,(+ x2 x4)))
(setq z2 (x1,(+ x3 x4)))
(command "line" z1  z2 "")
& h- `4 u+ i3 h* d) L; E" K(printc)
2 {6 [9 c( ]' |9 b$ m, [   
$ e% O0 U- h8 W0 U' ])

运行时反馈  no function definition: 0,
/ Z" w# _: |- y5 o6 n9 v' [2 P
$ u! l3 H; Z$ l* Y! }* Z+ g程序哪里有错,为什么?


, `! g  H5 G: p& W/ l+ l6 R
' s9 c: a( d9 p; @. S3 d) K& |% \请热心人指点一下

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

sealive_leafage

(defun c:abc (/ x1 x2 x3 x4)
( m, A2 R  H" u1 t1 F$ P  (setvar "cmdecho" 0)   ;关闭回显
' \9 K8 x- u3 r  ^9 k2 ^  (setq x1 (getint "\n输入变量1:"))
  (setq x2 (getint "\n输入变量2:"))
  (setq x3 (getint "\n输入变量3:"))
  (setq x4 (getint "\n输入变量4:"))
" {/ J  B$ _) t) u9 C2 _/ `4 ^  (setq z1 (list 0 (+ x2 x4)))
  (setq z2 (list x1 (+ x3 x4)))
) z+ j1 l: T  I/ b' ?1 i  (command "line" z1 z2 "")
  (setvar "cmdecho" 1)   ;打开回显
* U- V( z8 y: n  (princ)
5 K$ n- r  O; S  p)
- A1 n7 q( _- y$ z' a8 J& V/ E

. `+ T' W$ L1 Z$ Z3 ~2 A! U
princ不是printc；局部变量前是/，不是\；
# U8 Q( U( @% `  B- E) }+ ]9 ~
$ p/ d* R' o, @[ 本帖最后由 sealive_leafage 于 2008-6-17 09:28 编辑 ]

抬头见喜

谢谢,已试通,
如去掉打开回显和关闭回显就显示"ABC 未知命令“ABC”。按 F1 查看帮助"。
请问
; P7 |9 T. ]# Z, R关闭回显和打开回显有什么用?


; Q) J/ `$ Y0 h7 Q# W7 I! Q2 r  S另外:变量如何声明,如我的例子有X1-X4,Z1,Z2 6个变量,如只声明X1-X4

3 Q2 G* t( F* E9 H0 i2 I运行正常,加上Z1和Z2就提示参数太少,这又是为何?
5 f" P& ~: `( m# l1 A5 u

5 j, N! i" u: d9 @7 W, E明白了,谢谢.
6 r8 C/ q/ S# t3 g
% o4 f, Y+ Y1 N5 `( ?- y) G[ 本帖最后由 抬头见喜 于 2008-6-17 21:47 编辑 ]

woaishuijia

下面的代码是没有问题的。对照着看一下自己写的代码哪里错了
2 h9 }3 x2 }; c9 X0 H0 ?! Q" E
(defun c:abc (/ x1 x2 x3 x4 z1 z2)
  (setq x1 (getint "\n输入变量1:"))
& @# G/ q$ B/ r$ n4 ~: R  (setq x2 (getint "\n输入变量2:"))
0 E" p  h! s7 c- \, Y  (setq x3 (getint "\n输入变量3:"))
, b& @, O% M( i" z9 `8 @  H1 [7 g  (setq x4 (getint "\n输入变量4:"))
8 y, ?" W. n) o. n7 b2 F: x; L  (setq z1 (list 0 (+ x2 x4)))
  (setq z2 (list x1 (+ x3 x4)))
' Q$ J2 p5 l/ d  (command "line" z1 z2 "")
* F# v% `9 \% X- U8 m  (princ)
)

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