关于二次开发的问题

wangxl001

我最近学AUTOCAD LISP 二次开发遇到了些问题
下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil    请问各位高手  这是什么原因？
( f" f' L4 U1 p7 ]4 x9 H

1. (defun c:5js()
   7 g* M. r0 l) e5 B$ h3 Z( k
2.   (setq os(getvar"osmode")
   ( k+ f0 q/ \- R+ |
3. cmdcho(getvar"cmdecho"))
   
4.   (setvar"osmode"O)
   
5.   (setvar"cmdecho"O)
   " D6 x; T3 z3 w8 L5 w
6.   (tsc)
   6 U* Y% r' P# a8 R; _/ t0 p
7.   (setq pt1(getpoint"\n插入点"))
   
8.   (setq pt2(polar pt1(angtof"-108")(sc28.9086)))
   
9.   (setq pt3(polar pt2 pi(sc28.9086)))
   7 M& Y0 U" ]0 w8 u, ~
10.   (setq pt4(polar pt3(angtof"-36.00")(sc28.9086)))
    
11.   (setq pt5(polar pt4(angtof"-108")(sc28.9086)))
    4 @" V! n8 Y9 }
12.   (setq pt6(polar pt5(angtof"36")(sc28.9086)))
    
13.   (setq pt7(polar pt6(angtof"-36")(sc28.9086)))
    - v8 _! I' r2 @" D
14.   (setq pt8(polar pt7(angtof"108")(sc28.9086)))
    ! H0 Q5 U3 l. {- }. o3 ~; r( I
15.   (setq pt9(polar pt8(angtof"36")(sc28.9086)))
    6 o2 d2 }" c$ g
16.   (setq pt10(polar pt9 pi(sc28.9086)))
    9 b" @& K2 j2 c/ y
17.   (command"color" "r")
    
18.   (command"pline"pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10"c")
    
19.   (setq sl (entlast))
    2 U% Y4 z: R  \5 h  ?" s# {) w: O7 P( }
20.   (command"-bhatch" "p" "s" "s" "sl" " ")
    
21.   (setvar"osmode"os)
    8 S2 j' j7 ]9 F7 Y' C
22.   (setvar"cmdecho"cmdecho)
    
23. )
    
24. ;比例因子
    
25. (defun tsc()
    
26. (if(=js_scale nil)
    
27. (setqjs_scale 1)
    
28. )
    
29. (setq inp(getreal(strcat"\n输入比例因子<"
    : U0 X" b% ]% h! l+ Q( c
30.    (rtos js_scale)
    
31.    ">")))
    $ R" P0 r  x+ Z4 K
32. (if inp
    
33.    (setqjs_scale inp)
    
34. )
    0 B. m  k* E: \. E: J" U
35. )
    * J  P3 c! y! J; z
36. ;比例放大或缩小
    8 u/ ?; G( D! h7 B: }7 N) b+ B2 g
37. (defun sc(x)
    
38.     (X js_scale)
    . h0 c$ y7 R8 X- o& L; v
39. )
    - b" Y- y+ a8 r5 x; n& d
40. (prompt"\n画五角星程序，键入:5js执行")
    
41. (princ)

复制代码

wangxl001

没人会知道吗

yrgui

原帖由 wangxl001 于 2008-10-27 14:03 发表
  n( V1 e0 e5 D. U- H# ^5 h$ S  l6 ~我最近学AUTOCAD LISP 二次开发遇到了些问题
下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil    请问各位高手  这是什么原因？
( {* y5 ?6 q3 Z1 ]6 h$ b. E(defun c:5js()
  (setq ...

正确的是（setvar “osmode” 0）你的是（setvar “osmode” O）当然不对了

yanzhi126com

厉害！！！！！！！！！