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

zwanglai

源代码：
' e& X) d* j/ K( A" n  u1 M;;;           命令:wjx        命令名称可以按照自己习惯修改
;;;           作用: 绘制五角星
4 h6 c. Z) G8 ?& R3 x. {;;;           作者: 曾望来   
;;;                           
;;;           联系方式: QQ：332674472
;;;                     E－MAIL：zwltanf_2008@163.com  
/ g! h/ \# q! e" g& W+ d;;;           时间: 2008-10-10
8 L$ D$ ^2 L4 ^8 K- T+ F/ i! [9 q: N;;;           使用方法:
;;;                    1 输入wjx命令
;;;                    2 指定中心点
7 P. g. D: U: A% F5 n' ~;;;                    3 指定五角星外接圆半径
( A* @; `/ c" T;;;                    4 确认回车
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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"))
2 ~$ `/ Z0 D4 y9 ?  (setq "OSMODE" 512)                                          
) Y. v, ]- h; {& D0 o( @5 H  (prompt "\n先画圆：采用圆心和半径式")                        
  (setq pc (getpoint "\n圆心")                                
& D1 z, t- a: o% X8 k        p0 (getpoint "\n圆周上点"))                        
/ r5 H4 r6 j% v5 N$ W- t; Y  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
6 a3 B- O0 l+ c  w8 B+ ~  (command "circle" pc r)                                       
  (command "hatch" "solid" "L" "")
7 H6 b  P5 S* M: s- k# h  (setq t0 (/pi 2))                                            
  (setq tt (/(*2 pi) 5))
  (command "color" 2)                                          
  (setq p0 (polar pc t0 r)                                    
        p1 (polar pc (+t0 tt) r)
: m: K2 Q7 R& N2 P        p2 (polar pc (+t0 (*tt 2)) r)
, t! J/ l; T6 Q4 u        p3 (polar pc (+t0 (*tt 3)) r)
        p4 (polar pc (+t0 (*tt 4)) r))
  s" Y2 J4 N8 T/ K  (setq ro (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
1 k! D& [: c/ c+ I; i1 I& a        r2 (inters p1 p3 p2 p4)
        r3 (inters p0 p3 p2 p4)
9 z6 B8 t$ }$ F, C% R9 N8 l% A        r4 (inters p0 p3 p1 p4))
% w7 W& I$ g9 p6 F  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
+ L( B; N3 Y3 b) h+ i  (setvar "CECOLOR" cc))
; x1 T; ^$ _4 Y& }3 X0 Q
初学二次开发，请各位大侠指点迷津。这个这变量名我在书上查了，没有错啊！不清楚问题在哪。

SunVei

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

woaishuijia

除楼上所指出之外，还有一些错误：
1、运算符与跟在后面的变量或函数之间应该有空格
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)
  [) |/ P1 I. h1 j6 M+ ^4 `  (setq ss (getvar "OSMODE")                                   
& W5 j( |+ v- r! k& ?$ j4 N% e        cc (getvar "CECOLOR"))
  (setvar "OSMODE" 512)                                          
! [: ?' V" E0 t& P! r! i4 N  (prompt "\n先画圆：采用圆心和半径式")                        
+ z" q; ?) q; S! D) v  (setq pc (getpoint "\n圆心")                                
0 b; b5 m2 ~6 M4 H, h+ ^, O, j        p0 (getpoint "\n圆周上点"))                        
; L4 f" G3 N5 m5 K2 X  d  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
; c0 }' _+ D5 |+ H! R  `/ [  (command "circle" pc r)                                      
+ g' I& c" i7 V9 ~  (command "hatch" "solid" "L" "")
' H+ t) g# T0 N  (setq t0 (/ pi 2))                                            
  (setq tt (/ (* 2 pi) 5))
, k$ `% j9 O6 A" s! p  (command "color" 2)                                         
  (setq p0 (polar pc t0 r)                                    
2 @' p6 S# g# m- p1 N# p        p1 (polar pc ( + t0 tt) r)
" |7 h. d! x' M3 A4 ~; J" g8 C        p2 (polar pc ( + t0 (* tt 2)) r)
        p3 (polar pc ( + t0 (* tt 3)) r)
7 l+ Q2 l* I8 _$ w9 ?4 b        p4 (polar pc ( + t0 (* tt 4)) r))
- n/ k. |1 P8 }5 Z  (setq r0 (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
# w# |7 T8 o2 B/ [  H$ f        r2 (inters p1 p3 p2 p4)
$ z) f+ v* d$ p. `# b4 q        r3 (inters p0 p3 p2 p4)
) O* Y; N& a0 t        r4 (inters p0 p3 p1 p4))
) S8 S$ F4 ?* A4 s: U- p  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
  (setvar "CECOLOR" cc))
' N) X/ C& O. b( |+ X+ b, k