关于二次开发的问题

wangxl001

我最近学AUTOCAD LISP 二次开发遇到了些问题
9 u6 |4 q( I3 d3 S' M下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil    请问各位高手  这是什么原因？
2 T8 \4 [- o. E

1. (defun c:5js()
   
2.   (setq os(getvar"osmode")
   # \9 k+ p. U# T, D  J, N( p
3. cmdcho(getvar"cmdecho"))
   , C: Q8 K3 b$ G( V. ~% I
4.   (setvar"osmode"O)
   
5.   (setvar"cmdecho"O)
   
6.   (tsc)
   ' P( \% d+ t( d
7.   (setq pt1(getpoint"\n插入点"))
   
8.   (setq pt2(polar pt1(angtof"-108")(sc28.9086)))
   + X4 ?4 M8 f, \( Z4 m
9.   (setq pt3(polar pt2 pi(sc28.9086)))
   
10.   (setq pt4(polar pt3(angtof"-36.00")(sc28.9086)))
    
11.   (setq pt5(polar pt4(angtof"-108")(sc28.9086)))
    
12.   (setq pt6(polar pt5(angtof"36")(sc28.9086)))
    
13.   (setq pt7(polar pt6(angtof"-36")(sc28.9086)))
    1 e, o) x  j" D' T7 {. R" U
14.   (setq pt8(polar pt7(angtof"108")(sc28.9086)))
    
15.   (setq pt9(polar pt8(angtof"36")(sc28.9086)))
    * N% D) W# ^" O' |7 C) a
16.   (setq pt10(polar pt9 pi(sc28.9086)))
    * ?5 j- J( O5 @
17.   (command"color" "r")
    / H$ f- q! C3 V
18.   (command"pline"pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10"c")
    
19.   (setq sl (entlast))
    
20.   (command"-bhatch" "p" "s" "s" "sl" " ")
    % _$ O, u5 T- \3 I  N; \7 U
21.   (setvar"osmode"os)
    ' w; l! ?. D' C1 t
22.   (setvar"cmdecho"cmdecho)
    
23. )
    2 _" U6 q* c0 a
24. ;比例因子
    
25. (defun tsc()
    
26. (if(=js_scale nil)
    
27. (setqjs_scale 1)
    
28. )
    
29. (setq inp(getreal(strcat"\n输入比例因子<"
    4 e3 ?. K! H1 ~1 |
30.    (rtos js_scale)
    9 Q6 n4 }& {, b) i
31.    ">")))
    
32. (if inp
    
33.    (setqjs_scale inp)
    
34. )
    
35. )
    
36. ;比例放大或缩小
    
37. (defun sc(x)
    
38.     (X js_scale)
    
39. )
      t) X* H+ \8 d; ?' ?- a" `
40. (prompt"\n画五角星程序，键入:5js执行")
    7 v% G' L, Z2 ~/ O# z5 X" }
41. (princ)

复制代码

wangxl001

没人会知道吗

yrgui

原帖由 wangxl001 于 2008-10-27 14:03 发表
我最近学AUTOCAD LISP 二次开发遇到了些问题
  o  J# C( E* a下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil    请问各位高手  这是什么原因？
% D$ d0 w! I/ p& h) U(defun c:5js()
  (setq ...

# \% O9 }( M* g) L正确的是（setvar “osmode” 0）你的是（setvar “osmode” O）当然不对了

yanzhi126com

厉害！！！！！！！！！