大师给看看代码问题，新手学习障碍多

杜阳

这几天写一些简单的代码  总是不那么顺利，只能求助明经的各位老师了，下面代码主要想实现 绘制一个圆柱，两个圆锥体，总是有错误，情老师们予以指导，谢谢了
(defun c:tt ()
  (setvar "cmdecho" 0)
  (setq z1 (getpoint "\n中心点: ")
        r1 (getreal "\n半径:")
        r2 (getreal "\n半径:")
        h1 (getdist "\n高度1<输入或鼠标直接量取>:")
        h2 (getdist "\n高度2<输入或鼠标直接量取>:")
  )
(command "circle" z1 r1 "")
(setq yx1 (entlast))
(vl-cmdf "extrude" yx1 "" h1 "")
;;;定义圆锥体1
(setq z2 ((car z1) (cadr z1) h1))
(vl-cmdf "cone" z2 r2 h2 "")
;;;定义圆锥体2
(setq z3 ((car z1) (cadr z1) (+ h1 h2)))
(vl-cmdf "cone" z3 r2 h2 "")
(princ)
)

Andyhon

2. 
   
3. (defun c:tt ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq        z1 (getpoint "\n中心点: ")
   
6.         r1 (getreal "\n半径:")
   
7.         r2 (getreal "\n半径:")
   
8.         h1 (getdist "\n高度1<输入或鼠标直接量取>:")
   
9.         h2 (getdist "\n高度2<输入或鼠标直接量取>:")
   
10.   )
    
11.   (command "circle" z1 r1)
    
12.   (setq yx1 (entlast))
    
13.   (vl-cmdf "extrude" yx1 "" h1 "")
    
14. ;;;定义圆锥体1
    
15.   (setq z2 (list (car z1) (cadr z1) h1))
    
16.   (vl-cmdf "cone" z2 r2 h2)
    
17. ;;;定义圆锥体2
    
18.   (setq z3 (list (car z1) (cadr z1) (+ h1 h2)))
    
19.   (vl-cmdf "cone" z3 r2 h2)
    
20.   (princ)
    
21. )
    

<br /> (defun c:tt ()<br />   (setvar "cmdecho" 0)<br />   (setq        z1 (getpoint "\n中心点: ")<br />         r1 (getreal "\n半径:")<br />         r2 (getreal "\n半径:")<br />         h1 (getdist "\n高度1<输入或鼠标直接量取>:")<br />         h2 (getdist "\n高度2<输入或鼠标直接量取>:")<br />   )<br />   (command "circle" z1 r1)<br />   (setq yx1 (entlast))<br />   (vl-cmdf "extrude" yx1 "" h1 "")<br /> ;;;定义圆锥体1<br />   (setq z2 (list (car z1) (cadr z1) h1))<br />   (vl-cmdf "cone" z2 r2 h2)<br /> ;;;定义圆锥体2<br />   (setq z3 (list (car z1) (cadr z1) (+ h1 h2)))<br />   (vl-cmdf "cone" z3 r2 h2) <br />   (princ)<br /> )<br />

杜阳

Andyhon 发表于 2014-7-21 09:49

谢谢  自己解决了  谢谢老师的答复  就是缺一个  list

baokeding

谢谢分享，