[求助]关于圆锥体的

流浪狗

我是新手，刚刚自学Vlisp 语言。现在我遇到一个题目，要用Vlisp 语言编写一个圆锥体的程序，可我不知道从哪里下手，恳请各位高手能够指点一下，谢先！！！

BDYCAD

在lisp里面摸擬畫圓錐的命令就行了,應沒有什麼難度./

流浪狗

还是不太懂啊！请再深入指点，好吗？谢！

BDYCAD

例示


(command "_cone" (getpoint"\n指定一个点:") 5 12) ; 圆锥的半径为5mm 高度12mm

流浪狗

看看我编的这个程序有什么错误啊？怎么画不出来图形呢？ 请高手帮我修改一下啊！谢谢！！ (defun c:yzt()
(setq p (getpoint "\n请输入圆锥体底面圆中心："))
(setq h (getreal "\n请输入圆锥体高："))
(setq r (getreal "\n底面圆半径"))
(setq a (car p))
(setq b (cdr p))
(setq p1 (list ((+ a r) b)))
(setq p2 (list ((- a r) b)))
(setq p3 (list (a (sqrt (+ (* h h) (* r r))))))
(setq o '(a r))
(command "pline" p1 p2 p3 "c")
(command "circle" o r "")
)

meflying

又是典型的对LISP函数写法的不习惯


(list a b)结果是一个(a b)表，可(list (a b))是错误的，函数是包含在括号里面的，不是跟其他语言那样把括号写到函数后面。。。


如：(list (a b))，假设(a b)返回4的话，(list (a b))就是(4)，可你的程序中，(a b)却返回错误了，因为a不是函数，而括号的第一个元素是函数名，，，你在看看你的程序该怎么改吧

meflying

晕，原来又是一个重复贴，我白写了，以后再这样，删！！！

流浪狗

呵呵~~~~~~~~~~管理员千万不要生气哦！就饶了我这次吧，保证绝无下次！只是我这回真的很急用，谢谢各位了！！