关于二次开发的问题
我最近学AUTOCAD LISP 二次开发遇到了些问题下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil 请问各位高手这是什么原因？
(defun c:5js()
(setq os(getvar"osmode")
cmdcho(getvar"cmdecho"))
(setvar"osmode"O)
(setvar"cmdecho"O)
(tsc)
(setq pt1(getpoint"\n插入点"))
(setq pt2(polar pt1(angtof"-108")(sc28.9086)))
(setq pt3(polar pt2 pi(sc28.9086)))
(setq pt4(polar pt3(angtof"-36.00")(sc28.9086)))
(setq pt5(polar pt4(angtof"-108")(sc28.9086)))
(setq pt6(polar pt5(angtof"36")(sc28.9086)))
(setq pt7(polar pt6(angtof"-36")(sc28.9086)))
(setq pt8(polar pt7(angtof"108")(sc28.9086)))
(setq pt9(polar pt8(angtof"36")(sc28.9086)))
(setq pt10(polar pt9 pi(sc28.9086)))
(command"color" "r")
(command"pline"pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10"c")
(setq sl (entlast))
(command"-bhatch" "p" "s" "s" "sl" " ")
(setvar"osmode"os)
(setvar"cmdecho"cmdecho)
)
;比例因子
(defun tsc()
(if(=js_scale nil)
(setqjs_scale 1)
)
(setq inp(getreal(strcat"\n输入比例因子<"
(rtos js_scale)
">")))
(if inp
(setqjs_scale inp)
)
)
;比例放大或缩小
(defun sc(x)
(X js_scale)
)
(prompt"\n画五角星程序，键入:5js执行")
(princ) 没人会知道吗:'( 原帖由 wangxl001 于 2008-10-27 14:03 发表 http://askcad.com/bbs/images/common/back.gif
我最近学AUTOCAD LISP 二次开发遇到了些问题
下面是一个自动绘制五角星的代码，运行的时候出现错误： 错误: AutoCAD 变量设置被拒绝: "osmode" nil 请问各位高手这是什么原因？
(defun c:5js()
(setq ...
正确的是（setvar “osmode” 0）你的是（setvar “osmode” O）当然不对了 厉害！！！！！！！！！
页:
[1]