自己编写的lisp代码怎么总是提示SETQ 中变量名称错误: "OSMODE"

zwanglai

源代码：
+ I1 C4 I7 V9 s$ P$ p$ j;;;           命令:wjx        命令名称可以按照自己习惯修改
$ f4 e) |0 S) C4 @/ W;;;           作用: 绘制五角星
;;;           作者: 曾望来   
;;;                           
+ m# d- C) j% x5 N3 ~1 ]" C' S;;;           联系方式: QQ：332674472
# z- X3 Y, \/ l/ f8 y;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-10-10
;;;           使用方法:
& X3 g) ~% H. q;;;                    1 输入wjx命令
;;;                    2 指定中心点
;;;                    3 指定五角星外接圆半径
- K; q& @7 K7 |& U' A. v9 i;;;                    4 确认回车
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:wjx (/ ss cc pc p0 p1 p2 p3 p4 a t0 tt r0 r1 r2 r3 r4)
7 l# {7 t& x; J8 j# K0 L" _  (setq ss (getvar "OSMODE")                                   
; z  B6 h9 W6 O3 E1 p" C- I: k        cc (getvar "CECOLOR"))
6 N0 U) }  [6 _% E5 ^' G  (setq "OSMODE" 512)                                          
  (prompt "\n先画圆：采用圆心和半径式")                        
# f9 P7 f) i3 ]2 `  (setq pc (getpoint "\n圆心")                                
        p0 (getpoint "\n圆周上点"))                        
' n9 U+ ?' g* x, D5 O4 {* j7 S0 f  (setq r (distance pc p0))                                    
0 @* H. t( d5 a8 r7 q0 P  (setvar "CEcolor" "red")                                    
$ {6 w! K! q2 y* l  (command "circle" pc r)                                       
  (command "hatch" "solid" "L" "")
1 L/ u' d) C: v  (setq t0 (/pi 2))                                            
" H7 Q9 i8 T. _  (setq tt (/(*2 pi) 5))
  (command "color" 2)                                          
  (setq p0 (polar pc t0 r)                                    
' Y) X) Z' M7 T) c( Y1 B        p1 (polar pc (+t0 tt) r)
8 S& k5 R! |( F& C        p2 (polar pc (+t0 (*tt 2)) r)
        p3 (polar pc (+t0 (*tt 3)) r)
        p4 (polar pc (+t0 (*tt 4)) r))
  (setq ro (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
+ ^  t6 S7 d- Z& [        r2 (inters p1 p3 p2 p4)
4 a: ]( z$ b0 Q. p6 H* a        r3 (inters p0 p3 p2 p4)
        r4 (inters p0 p3 p1 p4))
9 e" a  e- K! r0 g  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
* ?. d! G* X: T* F1 `! }8 U6 J  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
6 ]- r: X! e8 Z" |  (setvar "CECOLOR" cc))

  Q" L7 Y& _# M- G! Q初学二次开发，请各位大侠指点迷津。这个这变量名我在书上查了，没有错啊！不清楚问题在哪。

SunVei

(setq "OSMODE" 512)
==>
(setVar "OSMODE" 512)

woaishuijia

除楼上所指出之外，还有一些错误：
1、运算符与跟在后面的变量或函数之间应该有空格
4 y" C% h) Y" |2、第二十行中“ro”应为“r0”

zwanglai

谢谢！已经解决了。

abcabcxyz

我有时候也会有这样的错误,可是自己就觉察不出来

ysryc99001

要求细心，可一步一步执行来检查。

www1974

厉害啊，表头倒是改好了。。。。

wm3266

(defun C:wjx (/ ss cc pc p0 p1 p2 p3 p4 a t0 tt r0 r1 r2 r3 r4)
  (setq ss (getvar "OSMODE")                                   
+ d) C7 j* c. Z$ G6 t$ ^9 l        cc (getvar "CECOLOR"))
3 k) O; D' h) \* ^# U' R1 ~  (setvar "OSMODE" 512)                                          
  (prompt "\n先画圆：采用圆心和半径式")                        
( C/ g. p2 E3 N  (setq pc (getpoint "\n圆心")                                
0 x! p% G' j) B3 M2 e' j6 z% ^        p0 (getpoint "\n圆周上点"))                        
  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
  (command "circle" pc r)                                      
1 @4 M: [9 s% M/ x  }  (command "hatch" "solid" "L" "")
  (setq t0 (/ pi 2))                                            
  (setq tt (/ (* 2 pi) 5))
. W$ ?7 ^( {. ~' P5 n) |  (command "color" 2)                                         
  (setq p0 (polar pc t0 r)                                    
. _7 j) Q- ?' h0 j" p+ Y& Z; X        p1 (polar pc ( + t0 tt) r)
" [; s$ u6 W4 {( P        p2 (polar pc ( + t0 (* tt 2)) r)
        p3 (polar pc ( + t0 (* tt 3)) r)
        p4 (polar pc ( + t0 (* tt 4)) r))
3 G' Z7 Q7 P% V' Z( z* N9 C  (setq r0 (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
        r2 (inters p1 p3 p2 p4)
        r3 (inters p0 p3 p2 p4)
1 f5 l0 p* `/ D        r4 (inters p0 p3 p1 p4))
# O* ~2 U/ g* R$ ^) U  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
  (setvar "CECOLOR" cc))