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

zwanglai

源代码：
8 q2 \1 d/ n6 W" }% G! v;;;           命令:wjx        命令名称可以按照自己习惯修改
# m7 P  k1 v1 i: s+ f7 e& _;;;           作用: 绘制五角星
;;;           作者: 曾望来   
;;;                           
;;;           联系方式: QQ：332674472
# \0 I4 e& i" }' o* H;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-10-10
;;;           使用方法:
: l7 K$ v9 t- s) E+ m;;;                    1 输入wjx命令
;;;                    2 指定中心点
+ d& D& I9 T( O: r+ L7 {8 m" l;;;                    3 指定五角星外接圆半径
;;;                    4 确认回车
! i0 h0 P% X9 c( Y- o;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
" l; H) R0 l, G% o/ Z(defun C:wjx (/ ss cc pc p0 p1 p2 p3 p4 a t0 tt r0 r1 r2 r3 r4)
  (setq ss (getvar "OSMODE")                                   
, S! Y( U# g7 h0 |  \6 V$ \        cc (getvar "CECOLOR"))
" \6 h; _' w, d  |7 F/ d  (setq "OSMODE" 512)                                          
  (prompt "\n先画圆：采用圆心和半径式")                        
  (setq pc (getpoint "\n圆心")                                
  i  D/ V7 O. p  p( ^/ N/ M, b" k        p0 (getpoint "\n圆周上点"))                        
  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
! a+ y3 m; o5 m- k0 i  (command "circle" pc r)                                       
  (command "hatch" "solid" "L" "")
  (setq t0 (/pi 2))                                            
  (setq tt (/(*2 pi) 5))
  (command "color" 2)                                          
& {: U3 J, \7 @# Y# e7 Q7 N  (setq p0 (polar pc t0 r)                                    
        p1 (polar pc (+t0 tt) r)
2 }7 I* g( {  x) x2 M* q1 v        p2 (polar pc (+t0 (*tt 2)) r)
& [5 c( d; K* [/ e3 V0 d) t) o! q2 P        p3 (polar pc (+t0 (*tt 3)) r)
# S) n: d, |( z$ h" Q, V/ d        p4 (polar pc (+t0 (*tt 4)) r))
  (setq ro (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
        r2 (inters p1 p3 p2 p4)
/ [8 z: n. d# F! e  {& A1 @0 E        r3 (inters p0 p3 p2 p4)
        r4 (inters p0 p3 p1 p4))
( r$ P1 b: z: t( e  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
  (command "hatch" "solid" "L" "")                             
& U* W0 v# N# h  (setvar "OSMODE" ss)                                          
1 b& y: X- X  [8 T$ _9 Z( A0 o  (setvar "CECOLOR" cc))
' {4 v: \) D% S* L, \7 A
初学二次开发，请各位大侠指点迷津。这个这变量名我在书上查了，没有错啊！不清楚问题在哪。

SunVei

(setq "OSMODE" 512)
==>
- V* y' `3 P# R) P: n(setVar "OSMODE" 512)

woaishuijia

除楼上所指出之外，还有一些错误：
2 c2 {! E0 N) [4 ]! A) k. ^5 F1、运算符与跟在后面的变量或函数之间应该有空格
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")                                   
2 x2 t7 x5 I7 ~! i$ f  j        cc (getvar "CECOLOR"))
  (setvar "OSMODE" 512)                                          
) g# ]! C5 z6 ?" m! a, R2 t+ n6 o  (prompt "\n先画圆：采用圆心和半径式")                        
9 w/ x4 _: l' Y, l  w  (setq pc (getpoint "\n圆心")                                
        p0 (getpoint "\n圆周上点"))                        
  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
( [/ a- I. S  Q* u2 Y/ f) I% w8 o  (command "circle" pc r)                                      
! R3 m  E& u  }" I+ N( ]9 g  (command "hatch" "solid" "L" "")
  (setq t0 (/ pi 2))                                            
! s5 }1 H& I2 `0 t- H" w- w  (setq tt (/ (* 2 pi) 5))
8 _: W" d5 n' z" L9 i  (command "color" 2)                                         
  (setq p0 (polar pc t0 r)                                    
) e, \' o- w! X0 L  p# O+ a        p1 (polar pc ( + t0 tt) r)
: W/ s0 n2 W, P& G) n7 A9 V- p        p2 (polar pc ( + t0 (* tt 2)) r)
        p3 (polar pc ( + t0 (* tt 3)) r)
        p4 (polar pc ( + t0 (* tt 4)) r))
  (setq r0 (inters p0 p2 p1 p4)                                 
8 R& f% w' J' D+ e) ]        r1 (inters p0 p2 p1 p3)
7 R1 P7 e" Z& F( \        r2 (inters p1 p3 p2 p4)
7 e3 V! u" X8 ~1 T; x        r3 (inters p0 p3 p2 p4)
: \0 a, M/ ^6 T8 l5 f3 h* o        r4 (inters p0 p3 p1 p4))
7 ^" P9 g  o$ l: C) z0 J( m* _  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
! Y! x5 g8 |  Y3 K: u' a  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
  (setvar "CECOLOR" cc))
; ^$ o" t4 ]' m( D. E3 P0 X