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

zwanglai

源代码：
;;;           命令:wjx        命令名称可以按照自己习惯修改
: p& f+ [0 \+ r  N;;;           作用: 绘制五角星
;;;           作者: 曾望来   
;;;                           
;;;           联系方式: QQ：332674472
;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-10-10
;;;           使用方法:
5 o* [" P: {  y) V# ^6 p! a5 z;;;                    1 输入wjx命令
* E0 ^  [+ y2 ^% N' m;;;                    2 指定中心点
;;;                    3 指定五角星外接圆半径
; g' l+ t" g+ I/ a. A8 n;;;                    4 确认回车
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:wjx (/ ss cc pc p0 p1 p2 p3 p4 a t0 tt r0 r1 r2 r3 r4)
  (setq ss (getvar "OSMODE")                                   
% x  \1 ^8 `* H, o) `/ J, e        cc (getvar "CECOLOR"))
$ c1 r* \0 q3 A0 N8 X  (setq "OSMODE" 512)                                          
  (prompt "\n先画圆：采用圆心和半径式")                        
6 a- r% a! q& X. o# D  t  (setq pc (getpoint "\n圆心")                                
6 D& H7 X9 K1 z6 l9 M& T& a        p0 (getpoint "\n圆周上点"))                        
  (setq r (distance pc p0))                                    
; Q7 E- O4 }' Q5 t- V& ]* w+ F+ `$ Z  (setvar "CEcolor" "red")                                    
- F- Q% e$ A. I. I/ Q+ z  (command "circle" pc r)                                       
  (command "hatch" "solid" "L" "")
  (setq t0 (/pi 2))                                            
9 A! M& l( C: }8 N- a' T4 |  (setq tt (/(*2 pi) 5))
  (command "color" 2)                                          
  (setq p0 (polar pc t0 r)                                    
5 O8 G6 n$ I6 j+ r, N* R        p1 (polar pc (+t0 tt) r)
. I  O3 D8 w- l4 o& N3 t  F9 Q        p2 (polar pc (+t0 (*tt 2)) r)
        p3 (polar pc (+t0 (*tt 3)) r)
9 [3 y+ d! B2 z: q        p4 (polar pc (+t0 (*tt 4)) r))
3 o. s( U% [$ Y  (setq ro (inters p0 p2 p1 p4)                                 
        r1 (inters p0 p2 p1 p3)
        r2 (inters p1 p3 p2 p4)
' W5 M1 ?% p6 [+ `& t        r3 (inters p0 p3 p2 p4)
8 i4 [8 j# w$ w' U4 Y        r4 (inters p0 p3 p1 p4))
4 Z& I2 x$ K% d/ j( a6 P  (command "pline" p0 r0 p1 r1 p2 r2 p3 r3 p4 r4 "c")           
  (command "hatch" "solid" "L" "")                             
  (setvar "OSMODE" ss)                                          
  (setvar "CECOLOR" cc))

8 m9 B- ?* I# c初学二次开发，请各位大侠指点迷津。这个这变量名我在书上查了，没有错啊！不清楚问题在哪。

SunVei

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

woaishuijia

除楼上所指出之外，还有一些错误：
  ]8 t( {, `8 r& v" U4 Y$ {, ~1、运算符与跟在后面的变量或函数之间应该有空格
6 n& a$ b4 H! T) Z( j8 r2、第二十行中“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)
, p3 b7 ?- M: R5 j  (setq ss (getvar "OSMODE")                                   
        cc (getvar "CECOLOR"))
( E# e: X) Q; [. ]1 C$ c* ?, w  (setvar "OSMODE" 512)                                          
1 I. a  V, M+ C- `  (prompt "\n先画圆：采用圆心和半径式")                        
  (setq pc (getpoint "\n圆心")                                
        p0 (getpoint "\n圆周上点"))                        
! A8 E+ H+ y, ^" Q! J3 C  (setq r (distance pc p0))                                    
  (setvar "CEcolor" "red")                                    
) ]5 `: q, u- U9 s2 h( }$ I6 g# w  (command "circle" pc r)                                      
  (command "hatch" "solid" "L" "")
  (setq t0 (/ pi 2))                                            
0 V, \8 U% o6 \9 H+ U, o  (setq tt (/ (* 2 pi) 5))
  (command "color" 2)                                         
  (setq p0 (polar pc t0 r)                                    
1 i7 {' @3 s3 S' H2 ^0 O6 D        p1 (polar pc ( + t0 tt) r)
8 C+ P. q; ~& l: J        p2 (polar pc ( + t0 (* tt 2)) r)
        p3 (polar pc ( + t0 (* tt 3)) r)
        p4 (polar pc ( + t0 (* tt 4)) r))
% R9 u( C& C2 x, x  (setq r0 (inters p0 p2 p1 p4)                                 
& M- i7 z/ S( Y1 L$ W+ ~, d: j, C        r1 (inters p0 p2 p1 p3)
  }: x# ?3 G' \& G; p  X. ?        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")           
* @& @) s& Z. \5 V' x1 H  (command "hatch" "solid" "L" "")                             
( i6 h# t. o; b  (setvar "OSMODE" ss)                                          
& g7 h* X' \; [/ S" |  (setvar "CECOLOR" cc))