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

zwanglai

源代码：
;;;           命令:wjx        命令名称可以按照自己习惯修改
;;;           作用: 绘制五角星
0 |, g0 Z% K. L- c;;;           作者: 曾望来   
5 ?  k7 M+ X* \$ q; `' q3 d3 ]: I;;;                           
+ ^  s7 M. V9 F, X$ f$ ?! ^2 Y9 O9 o;;;           联系方式: QQ：332674472
;;;                     E－MAIL：zwltanf_2008@163.com  
. j1 d- L- i4 H& v+ i& y& ^;;;           时间: 2008-10-10
;;;           使用方法:
+ k# B' R+ m+ ]/ Q, d+ d9 E2 t;;;                    1 输入wjx命令
;;;                    2 指定中心点
;;;                    3 指定五角星外接圆半径
. j0 Y. B( j+ a9 n4 N7 K;;;                    4 确认回车
- o; v1 W9 \! z; A; u;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:wjx (/ ss cc pc p0 p1 p2 p3 p4 a t0 tt r0 r1 r2 r3 r4)
! O4 t3 c1 S- p) M  I* q2 g# f" M  (setq ss (getvar "OSMODE")                                   
        cc (getvar "CECOLOR"))
% q: c$ s: f& S6 p+ G+ k  (setq "OSMODE" 512)                                          
. @9 b  T  P# R2 L$ ]7 F$ [" o  (prompt "\n先画圆：采用圆心和半径式")                        
  (setq pc (getpoint "\n圆心")                                
# d7 ~; k% ~8 y( p- Z& d$ c        p0 (getpoint "\n圆周上点"))                        
  (setq r (distance pc p0))                                    
8 r2 V) {$ y' o$ }  (setvar "CEcolor" "red")                                    
  (command "circle" pc r)                                       
, k; e8 ?5 v+ u- n* t& e0 {3 M  (command "hatch" "solid" "L" "")
  (setq t0 (/pi 2))                                            
1 x' _( j' t7 K) p) g6 }  (setq tt (/(*2 pi) 5))
  (command "color" 2)                                          
6 y4 w5 [+ b" Y  C, `2 {  (setq p0 (polar pc t0 r)                                    
        p1 (polar pc (+t0 tt) r)
        p2 (polar pc (+t0 (*tt 2)) r)
        p3 (polar pc (+t0 (*tt 3)) r)
2 G0 ~9 c9 x( H! y8 I9 H: B        p4 (polar pc (+t0 (*tt 4)) r))
' O" Y) n2 Y* X! g! {8 p7 D6 r6 r# u& q  (setq ro (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
8 O' c/ d  E) e5 U0 z' V/ I# Y        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")           
1 g8 z) g7 z1 C6 W  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
) s+ M% P/ \' }! z  (setvar "CECOLOR" cc))

( w7 \5 G# b. t$ I初学二次开发，请各位大侠指点迷津。这个这变量名我在书上查了，没有错啊！不清楚问题在哪。

SunVei

(setq "OSMODE" 512)
6 q$ w' a) P1 z- R( p" P==>
. ]3 Q, q, z. U3 ~/ V( I(setVar "OSMODE" 512)

woaishuijia

除楼上所指出之外，还有一些错误：
# H% R9 M9 U" d+ P1、运算符与跟在后面的变量或函数之间应该有空格
: E. e; l0 @# u4 B2、第二十行中“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)
9 I6 z: C9 k2 h( h3 |  (setq ss (getvar "OSMODE")                                   
! x5 k5 J' J6 n; p5 {: A- x        cc (getvar "CECOLOR"))
  (setvar "OSMODE" 512)                                          
$ d/ q, W- _1 R1 X! M5 B0 ]. j. n  (prompt "\n先画圆：采用圆心和半径式")                        
4 [! h1 L: {- f2 g* I# A  (setq pc (getpoint "\n圆心")                                
0 B& R* e) V1 z2 d        p0 (getpoint "\n圆周上点"))                        
. i( [* _5 j- Y7 a" w8 S, Y$ S  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
, e0 K9 x5 r% A7 ~  (command "circle" pc r)                                      
* _7 k2 ~7 o9 E3 x5 x2 q8 n; e1 R  (command "hatch" "solid" "L" "")
3 W+ G  F! i6 c: ~' {9 x8 t  (setq t0 (/ pi 2))                                            
  (setq tt (/ (* 2 pi) 5))
; Y2 b; n& h/ B; s5 q6 @, U  (command "color" 2)                                         
  (setq p0 (polar pc t0 r)                                    
        p1 (polar pc ( + t0 tt) r)
        p2 (polar pc ( + t0 (* tt 2)) r)
        p3 (polar pc ( + t0 (* tt 3)) r)
6 W5 ~) z2 L( K+ {( X$ }1 d6 r        p4 (polar pc ( + t0 (* tt 4)) r))
  (setq r0 (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
, K+ K; `! Q2 h, [4 S: c7 ^" Y/ k: S        r2 (inters p1 p3 p2 p4)
        r3 (inters p0 p3 p2 p4)
        r4 (inters p0 p3 p1 p4))
' \( R' Y5 M( b3 N. t5 W  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
! L. Y6 T3 G" G% f0 N  (command "hatch" "solid" "L" "")                             
: O! W7 M3 N* D  (setvar "OSMODE" ss)                                          
4 A; a- R  X  R' @* B" [3 [  (setvar "CECOLOR" cc))
2 ]" B2 O  C& N8 I& {