可以画圆台的cone命令在lisp中怎么调用？

tataki

cone命令在cad 06版本里面只能画出一个圆锥，没法画出圆台，但是在2010版本里面就可以画圆台，现在问题是，因为要画的圆锥太多，而且圆锥的方向也很不同，每次用cone命令来画都要把ucs重新定位一次，每次用手选ucs则很是麻烦，所以自己想做个lisp小程序来方便使用，目前已经可以实现程序选择两点后就能自己找对ucs，但是如何在程序里调用cone命令来画圆台，不是很清楚，希望大家帮助一下。
+ ]# z; ?( }! `7 T- R比如已知这些变量
2 g' R& C9 [# N  _: A; h" C9 bpbot：圆台底面中心坐标
ptop：圆台顶面中心坐标（这个不需要）
rbot：圆台底面半径
+ Y( Y# I; s# y4 K+ I0 O4 X! v1 m* qrtop：圆台顶面半径
$ s- D4 Z" b* Q9 Lheigt：圆台高度
- x9 ^& }8 t2 V2 R4 v那么在2010中输入cone命令后，cad会先让你选择底面中心，然后输入半径，然后你选择顶面半径（T）选项后，cad让你选择顶面半径，最后给出高度就可以画出圆台了。
1 y# N* L; ]% a# w上面这一行的操作流，怎么在lisp用通过command “cone”  ""  ""  等等来把上面的参数带入画出圆台呢，也就是cone后面的参数该写些什么呢？谢谢。
- I3 ~5 X7 _$ y& B0 c另外，如果再遇到调用别的命令，比如cylinder这些的参数又该去哪里寻找呢？cad自带的帮助上好像没有后面参数的说明。麻烦大家告诉一下，再次感谢。

woaishuijia

参考下面代码

1. 
   9 \& K1 Z( f" ]6 \+ m4 O2 Z0 g4 t
2. (defun c:aaa (/ pbot rbot rtop heigt)
   + |* p/ p8 R2 ^9 E) l0 U, ]% H6 ^+ o
3.   (setq        pbot  (list 10 20 0)
     q. {: X0 R9 O+ m; r4 i
4.         rbot  30
   . @$ G* v1 y, }  [6 C& N) L0 O6 C
5.         rtop  5
   0 s9 h6 A* w1 @% R5 O
6.         heigt 40
   
7.   )
   + }+ T  r5 B$ z5 G3 ?: o( }6 I% Q
8.   (command "cone" pbot rbot "t" rtop heigt)
   0 S% p5 r. O- t& z" {5 h9 K
9.   (princ)
   ! O- y1 u0 g3 {8 B
10. )
    * H3 V) t  n; }; g* t: b

复制代码

LSP调用CAD命令和你在图形界面命令行中输入命令是一样的

tataki

谢谢版主大大这么晚了还为我们排忧解难，辛苦啦！
# M+ P" U2 U# G& O+ [' @8 `$ ?我今天就去试试这个代码。

yoyoho

感谢版主
, c5 t& d/ g! j* K- x8 }! u- a学到cone命令在lisp中如何调用