关于二次开发的问题

wangxl001

我最近学AUTOCAD LISP 二次开发遇到了些问题
2 `# |2 T5 J9 W4 r  r下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil    请问各位高手  这是什么原因？

1. (defun c:5js()
   7 f* ^, @/ g$ j) _4 ?
2.   (setq os(getvar"osmode")
   
3. cmdcho(getvar"cmdecho"))
   6 B$ H/ c( S, K# f% m
4.   (setvar"osmode"O)
   ; t- {* F. [# `7 d
5.   (setvar"cmdecho"O)
   7 @+ z7 }2 H3 [$ E6 {0 q$ o2 s- m1 S
6.   (tsc)
   & Q' X* s4 [! K7 M. P
7.   (setq pt1(getpoint"\n插入点"))
   
8.   (setq pt2(polar pt1(angtof"-108")(sc28.9086)))
   3 s+ E# ?6 E& p0 X4 U+ R; w8 k
9.   (setq pt3(polar pt2 pi(sc28.9086)))
   
10.   (setq pt4(polar pt3(angtof"-36.00")(sc28.9086)))
    / z8 x/ {( t' D# R
11.   (setq pt5(polar pt4(angtof"-108")(sc28.9086)))
    
12.   (setq pt6(polar pt5(angtof"36")(sc28.9086)))
    ( @5 a0 @" W7 h( ?
13.   (setq pt7(polar pt6(angtof"-36")(sc28.9086)))
    . x0 F6 Z1 q5 d; l* r7 V- a
14.   (setq pt8(polar pt7(angtof"108")(sc28.9086)))
    
15.   (setq pt9(polar pt8(angtof"36")(sc28.9086)))
    7 }. J: E! ]" e
16.   (setq pt10(polar pt9 pi(sc28.9086)))
    
17.   (command"color" "r")
    
18.   (command"pline"pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10"c")
    # S1 I; {* S+ P8 @7 l9 m
19.   (setq sl (entlast))
    
20.   (command"-bhatch" "p" "s" "s" "sl" " ")
    ( g) [& N8 |3 g
21.   (setvar"osmode"os)
    
22.   (setvar"cmdecho"cmdecho)
    5 N% U9 }  @7 X( b! k& W
23. )
    0 n6 T# ~3 f5 s5 {
24. ;比例因子
    
25. (defun tsc()
    
26. (if(=js_scale nil)
    
27. (setqjs_scale 1)
    9 K' m' Q- h8 s, D4 T& U
28. )
    + N, w9 O4 a$ {5 R# s4 Y2 @8 A3 l
29. (setq inp(getreal(strcat"\n输入比例因子<"
    9 I6 M$ b- {7 Z
30.    (rtos js_scale)
    
31.    ">")))
    ; X' |4 e' `3 }5 M% n$ J( _7 o
32. (if inp
    " b/ l6 x) T; a8 n- n
33.    (setqjs_scale inp)
    9 F; ~  o* [1 m7 a) J
34. )
    ' k& D. z0 h: N$ \5 R
35. )
    
36. ;比例放大或缩小
    
37. (defun sc(x)
    $ Y- X  [4 _6 s& i' ]3 ^  X) R
38.     (X js_scale)
    
39. )
    " j1 w" V2 G9 |2 L5 ^9 L3 j
40. (prompt"\n画五角星程序，键入:5js执行")
    . |( K0 w4 p$ z5 ^6 s: V2 y% {
41. (princ)

复制代码

wangxl001

没人会知道吗

yrgui

原帖由 wangxl001 于 2008-10-27 14:03 发表
我最近学AUTOCAD LISP 二次开发遇到了些问题
2 d8 }- v5 }7 W+ H下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil    请问各位高手  这是什么原因？
6 d& }9 l  d) M0 I& z(defun c:5js()
& ]7 H" S3 @$ R) s5 @) V# @  (setq ...

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

yanzhi126com

厉害！！！！！！！！！