请帮忙看看代码问题

yxh1202 · 发表于 2010-7-2 15:10

defun c:pbox (/ pa pb pc pd kd gd mp1 mp2 mp3 mp4)
(steq pa (getpoint "请输入左下角点："))
(steq kd (getreal "宽度:"))
(steq gd (getreal "高度:"))
;;;以下各点又pa\kd\gd三个参数求出
(steq pb (polar pa 0 kd))
(steq pc (polar pb (/ pi 2) gd))
(steq pd (polar pc pi kd))
;;;调用命令画矩形外框
(command "pline" pa pb pc pd "c")
;;;计算各中点mp1,mps,mp3,mp4
(setq mp1 (polar pa 0 (/ kd 2)))
(setq mp2 (polar pb (/ pi 2) (/ gd 2)))
(setq mp3 (polar pd 0 (/ kd 2)))
(setq mp4 (polar pa (/ pi 2) (/ gd 2)))
;;;调用命令画矩形中线
(command "line" mp1 mp3 " ")
(command "line" mp2 mp4 " ")
(princ)
)

运行后提示输入左下角点，然后就出现：错误: no function definition: STEQ

刚学lisp请问有什么错误啊，书上说代码可以运行哦。CAD2006

liu_kunlun · 发表于 2010-7-2 15:20

steq 应为 setq

yxh1202 · 发表于 2010-7-2 15:35

呵呵，粗心大意。丢人了，谢谢。

yxh1202 · 发表于 2010-7-2 15:38

改了，还是同样问题

crazylsp · 发表于 2010-7-2 16:47

defun前面少了个括号,（defun, pi最好改成3.1415926

yxh1202 · 发表于 2010-7-8 11:17

谢谢，看来还是不仔细啊

gufeng · 发表于 2010-7-8 11:23

(command "line" mp1 mp3 " ")
(command "line" mp2 mp4 " ")
这两行最后的 "" 中间不要空格

(defun c:pbox (/ pa pb pc pd kd gd mp1 mp2 mp3 mp4)
(setq pa (getpoint "请输入左下角点："))
(setq kd (getreal "宽度:"))
(setq gd (getreal "高度:"))
;;;以下各点又pa\kd\gd三个参数求出
(setq pb (polar pa 0 kd))
(setq pc (polar pb (/ pi 2) gd))
(setq pd (polar pc pi kd))
;;;调用命令画矩形外框
(command "pline" pa pb pc pd "c")
;;;计算各中点mp1,mps,mp3,mp4
(setq mp1 (polar pa 0 (/ kd 2)))
(setq mp2 (polar pb (/ pi 2) (/ gd 2)))
(setq mp3 (polar pd 0 (/ kd 2)))
(setq mp4 (polar pa (/ pi 2) (/ gd 2)))
;;;调用命令画矩形中线
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
(princ)
)

xutaohb · 发表于 2010-7-8 12:15

路过也是才学的学习下

账号		自动登录	找回密码
密码			注册

[基础] 请帮忙看看代码问题

浏览过的版块