[求助]lisp程序加载

wodexiaohei

我自己写了个画矩形的lisp程序但是在cad中总是加载不了

提示命令错误，大家帮我看一下这个程序有什么问题啊，谢谢

（defun c:kj（/ qd pa pb pc fl yx）
 （setvar "cmdecho" 0）
  （setvar "blipmode"0）
（setq qd （getpoint"左下角点:"））
 （setq fl （getdist qd "\n高度:"））
 （setq yx （getdist qd "\n长度:"））
 （setq pa （polar qd o yx ））
 （setq pb （polar pa（/pi 2）fl））
 （setq pc （polar pb pi yx））
 （command "line" qd pa pb pc "c"）
  （princ）
）

liu_kunlun

注意用西文括号，注意留空格，注意0和o不要混淆

wodexiaohei

楼上的哥们能再帮我看看我这个调光标的程序那错了么？谢谢您啊

(defun c:0 ()
  (setvar "snapang" 0)
  (princ)
)
(defun c:15 ()
  (setvar "snapang" (*15 (/ pi 180)))
  (princ)
)
(defun c:30 ()
  (setvar "snapang" (*30 (/ pi 180)))
  (princ)
)
(defun c:45 ()
  (setvar "snapang" (*45 (/ pi 180)))
  (princ)
)
(defun c:60 ()
  (setvar "snapang" (*60 (/ pi 180)))
  (princ)
)

liu_kunlun

乘号与角度数字之间留空格

5061220

晕！LZ基本的东西要掌握哦！

phoenixdjq

第二个程序是不是从哪本书上看的呀，如果是的话，去网上找这本书的源码吧

(setvar "snapang" (* 60 (/ pi 180)))

与

(setvar "snapang" 60)

应该是一样的

caoyin

phoenixdjq发表于2009-8-22 8:40:00第二个程序是不是从哪本书上看的呀，如果是的话，去网上找这本书的源码吧(setvar \"snapang\" (* 60 (/ pi 180)))与(setvar \"snapang\" 60)应该是一样的

是不是还用弧度格式的角度为好，假如角度过小，LISP会理解为弧度！！

phoenixdjq

呵呵：）

这倒是有可能！

caoyin

如果一定不用弧度，用command设置变量也是一个不错的选择

(command "_.snapang" "1")