[求助]：在cad中用程序怎么实现输入两个三维点，输入半径，画一个圆柱体？

binliao

在cad中用程序怎么实现输入两个三维点，输入半径，画一个圆柱体？

lsjjm

REFER TO:
(vl-cmdf "cylinder" pt r h)

ahlzl

我写了一段代码.

2. 
   
3. (defun c:cc(/ p1 p2 h r)
   
4.   (setq p1 (getpoint "请输入圆柱底面圆心:"))
   
5.   (setq p2 (getpoint p1 "\n请输入圆柱顶面圆心："))
   
6.   (setq h (distance p1 p2))
   
7.   (setq r (getdist p1 "\n请输入圆柱半径："))
   
8.   (setq oldos (getvar "osmode"))
   
9.   (setvar "osmode" 0)
   
10.   (command "ucs" "za" p1 p2)
    
11.   (command "cylinder" "0,0,0" r h)
    
12.   (command "ucs" "P")
    
13.   (setvar "osmode" oldos)
    
14.   (princ)
    
15. )
    

<br /> (defun c:cc(/ p1 p2 h r)<br />   (setq p1 (getpoint "请输入圆柱底面圆心:"))<br />   (setq p2 (getpoint p1 "\n请输入圆柱顶面圆心："))<br />   (setq h (distance p1 p2))<br />   (setq r (getdist p1 "\n请输入圆柱半径："))<br />   (setq oldos (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (command "ucs" "za" p1 p2)<br />   (command "cylinder" "0,0,0" r h)<br />   (command "ucs" "P")<br />   (setvar "osmode" oldos)<br />   (princ)<br /> )<br />