[求助] lisp三维程序

听歌睡觉

我想用lisp语言换一个简单的三维筒可是命令行不是很熟悉


那位大哥可以给我写几句程序


三维同是上边一个圆柱筒


下接一个圆台厚度很小


大小无所谓


我学会了会自己扩展


我画的时候实体的选择老是做不好


请高手指点一下


（defun c:111()


(setp r 100)                                                                                                                                                         ;圆柱半径


(setp h 200)                                                                                                                                                 ；圆柱高度


(seq         r2 55)                                                                                                                                                         ；圆台下面半径


(setq c         5)                                                                                                                                                                         ；筒体厚度



（command .......................）;请高手帮忙完成



（princ）


）