关于二次开发的问题

wangxl001 · 发表于 2008-10-27 14:03

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

(defun c:5js()
; f2 f7 o8 ^) D7 v: B# k! Z; ^
(setq os(getvar"osmode")' K- U4 _, \5 l; b* I1 {
cmdcho(getvar"cmdecho"))
# S5 b6 P5 |0 R/ j8 P; t
(setvar"osmode"O): K8 N. m0 P+ g5 y6 Q7 J+ i
(setvar"cmdecho"O)
& }& K6 V* P( b v
(tsc)
3 M/ s. ]! n, n4 c! l- U1 f
(setq pt1(getpoint"\n插入点"))
6 K r; J! R* S
(setq pt2(polar pt1(angtof"-108")(sc28.9086)))- V$ c4 o. J& F
(setq pt3(polar pt2 pi(sc28.9086)))+ ?& k2 x" \1 @9 g: d" U7 v$ o
(setq pt4(polar pt3(angtof"-36.00")(sc28.9086)))
1 [) ] I7 W# q4 {, m) k
(setq pt5(polar pt4(angtof"-108")(sc28.9086)))2 S$ N5 x4 N& Q, @4 v; y8 z- K) }
(setq pt6(polar pt5(angtof"36")(sc28.9086)))' n( C+ j$ M$ x! G+ v
(setq pt7(polar pt6(angtof"-36")(sc28.9086)))* l( k1 G- P& T
(setq pt8(polar pt7(angtof"108")(sc28.9086)))) J' e7 s' ]8 i; \) ^* |( v8 Z7 |( `) m
(setq pt9(polar pt8(angtof"36")(sc28.9086))) o0 [4 Q$ N# T( P; \) _
(setq pt10(polar pt9 pi(sc28.9086))) E7 a: ?9 y# o0 P3 X
(command"color" "r")) z. B) v7 K; Z4 h
(command"pline"pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10"c") Y2 A" `1 n1 f; \
(setq sl (entlast))
) b% J5 o1 m4 w) n
(command"-bhatch" "p" "s" "s" "sl" " ")* t) }! ?" S' c! w* o
(setvar"osmode"os)
( {- J* ~% `# ^2 B+ _9 ^
(setvar"cmdecho"cmdecho)
& t4 b V2 C# F
)
) k: W6 Y( i+ I7 u
;比例因子
: n0 Z; P6 p/ \# O3 g
(defun tsc()3 `. Y- o1 V: p$ p d
(if(=js_scale nil)! a2 r3 }) l8 o; D
(setqjs_scale 1)
# c/ t% H8 v6 U, P7 ~0 \
)8 F4 o* P: m' V
(setq inp(getreal(strcat"\n输入比例因子<"
" Q9 y' a8 C% Q: o
(rtos js_scale)# S6 a! X0 S U, r8 V. N
">"))): r" R7 N c7 f9 j' k- u C
(if inp J) J6 s. a0 s9 F6 ? a& V* c5 M9 T
(setqjs_scale inp)
+ Y0 q; D3 g9 i R/ N
)& Y7 w( V& v* [# M# J; L
)
9 O2 o+ C2 d4 x( `8 F' y( j/ Z
;比例放大或缩小3 s9 Q4 o! [. H3 I6 D* Y) O
(defun sc(x)
2 n6 H7 ]! q! T1 O% p$ d9 A; P$ A, D
(X js_scale)! e7 e9 x% n- @% C* d
)
3 T% k5 o4 e- A8 F6 ?' v( Y
(prompt"\n画五角星程序，键入:5js执行")+ z& n6 ~1 u5 g3 A
(princ)

复制代码

wangxl001 · 发表于 2008-11-5 15:44

没人会知道吗

yrgui · 发表于 2008-11-5 16:14

原帖由 wangxl001 于 2008-10-27 14:03 发表 ! h( ^- @8 r# d
我最近学AUTOCAD LISP 二次开发遇到了些问题/ o5 d$ g# L# \4 P. o
下面是一个自动绘制五角星的代码，运行的时候出现错误：错误: AutoCAD 变量设置被拒绝: "osmode" nil 请问各位高手这是什么原因？* L6 R; X) C$ D* r0 J0 H
(defun c:5js()
# d4 z/ c! n4 I+ n" {4 D) ^" c (setq ...

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

yanzhi126com · 发表于 2008-11-5 17:00

厉害！！！！！！！！！

		自动登录	找回密码
密码			立即注册

[求助] 关于二次开发的问题