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

zwanglai

源代码：
* u2 N- k- @6 z- N! N;;;           命令:wjx        命令名称可以按照自己习惯修改
;;;           作用: 绘制五角星
;;;           作者: 曾望来   
$ B- e, l% F' G9 x8 A;;;                           
;;;           联系方式: QQ：332674472
/ _) k- W" K: n  P6 E! r3 A+ f;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-10-10
' P4 V% i/ h7 X3 v9 s3 x;;;           使用方法:
;;;                    1 输入wjx命令
;;;                    2 指定中心点
7 ^/ K+ j/ t$ v, k9 n, B3 g* o;;;                    3 指定五角星外接圆半径
;;;                    4 确认回车
7 S7 A3 M* }6 o& L0 M% h;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:wjx (/ ss cc pc p0 p1 p2 p3 p4 a t0 tt r0 r1 r2 r3 r4)
6 E' y+ y4 W" D: }% Z; I* C  (setq ss (getvar "OSMODE")                                   
+ @% j! x1 U. a8 C+ S        cc (getvar "CECOLOR"))
  (setq "OSMODE" 512)                                          
) t6 @) S/ ^& l) \# ?/ G( V1 ~0 F  (prompt "\n先画圆：采用圆心和半径式")                        
  (setq pc (getpoint "\n圆心")                                
* L- K0 g2 s$ J# [        p0 (getpoint "\n圆周上点"))                        
" I. j* g9 F/ S% w2 B  (setq r (distance pc p0))                                    
2 J8 H6 _' o( a0 a2 |8 ^  (setvar "CEcolor" "red")                                    
  (command "circle" pc r)                                       
$ D: b; \( j8 `# D  (command "hatch" "solid" "L" "")
1 M+ @! ~6 B7 u8 y3 \  (setq t0 (/pi 2))                                            
  (setq tt (/(*2 pi) 5))
+ R3 j$ m  ]) {; Q; h  (command "color" 2)                                          
6 v; Q1 K4 }6 ?$ G& g1 n  (setq p0 (polar pc t0 r)                                    
- G5 J; v7 E& i3 S& N        p1 (polar pc (+t0 tt) r)
7 n6 b7 m! H/ H9 [7 h" D        p2 (polar pc (+t0 (*tt 2)) r)
4 H& y6 C4 C! J. v9 t5 p        p3 (polar pc (+t0 (*tt 3)) r)
        p4 (polar pc (+t0 (*tt 4)) r))
& [5 T# I. t2 I. f  (setq ro (inters p0 p2 p1 p4)                                 
+ L+ S# ]  s2 a3 V0 c        r1 (inters p0 p2 p1 p3)
- c3 }. m5 V! i# M% M9 @        r2 (inters p1 p3 p2 p4)
$ a* N" J9 }2 O0 Q# M0 P        r3 (inters p0 p3 p2 p4)
+ j  f% [$ |: g" s6 {8 Y        r4 (inters p0 p3 p1 p4))
+ T: _1 @! d, X0 Y& L! s+ t3 C  ?! x  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
, u, s9 g- t; ]- A" U  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
  (setvar "CECOLOR" cc))
7 W* n6 v' a7 @: j. a- k) _) K/ G
3 h+ Q7 ~4 b( p! n% O$ ^# T初学二次开发，请各位大侠指点迷津。这个这变量名我在书上查了，没有错啊！不清楚问题在哪。

SunVei

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

woaishuijia

除楼上所指出之外，还有一些错误：
7 `& Z. H2 j3 }& I4 T$ X+ o1、运算符与跟在后面的变量或函数之间应该有空格
# F* s7 ]  g  T4 X' a7 y( p& e! W2、第二十行中“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")                                   
        cc (getvar "CECOLOR"))
; D' c/ L2 b9 ^; ^; I7 Y  (setvar "OSMODE" 512)                                          
  (prompt "\n先画圆：采用圆心和半径式")                        
( b9 j, j7 Y# I* Y, V- {' a  (setq pc (getpoint "\n圆心")                                
' j3 d/ b( E" f4 K( g5 H, \7 N        p0 (getpoint "\n圆周上点"))                        
' x1 @) n; L, @  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
  (command "circle" pc r)                                      
  (command "hatch" "solid" "L" "")
; A: ~7 {$ C0 X  (setq t0 (/ pi 2))                                            
  (setq tt (/ (* 2 pi) 5))
  (command "color" 2)                                         
' O# m0 o; x8 N$ b- I6 Q  (setq p0 (polar pc t0 r)                                    
& d8 t( a: B  ~. H: g8 V- w2 ^        p1 (polar pc ( + t0 tt) r)
        p2 (polar pc ( + t0 (* tt 2)) r)
) H$ |* w4 G6 {; n2 L; @        p3 (polar pc ( + t0 (* tt 3)) r)
5 C: |4 n& {4 X) d* w        p4 (polar pc ( + t0 (* tt 4)) r))
  (setq r0 (inters p0 p2 p1 p4)                                 
7 b/ t- `" P+ o4 c        r1 (inters p0 p2 p1 p3)
        r2 (inters p1 p3 p2 p4)
        r3 (inters p0 p3 p2 p4)
        r4 (inters p0 p3 p1 p4))
  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
- \; B8 E9 X, M$ F# D0 ^. [  (command "hatch" "solid" "L" "")                             
( |, \; D8 _: W) {( ?. T" w7 c. O  (setvar "OSMODE" ss)                                          
! }* ^: c, ?( w" W4 [  (setvar "CECOLOR" cc))
* m5 q! I" I6 P# q) N1 {+ K