杜阳 发表于 2014-7-21 09:40:54

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

这几天写一些简单的代码总是不那么顺利，只能求助明经的各位老师了，下面代码主要想实现 绘制一个圆柱，两个圆锥体，总是有错误，情老师们予以指导，谢谢了
(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 发表于 2014-7-21 09:49:24

本帖最后由 Andyhon 于 2014-7-21 09:52 编辑


(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 (list (car z1) (cadr z1) h1))
(vl-cmdf "cone" z2 r2 h2)
;;;定义圆锥体2
(setq z3 (list (car z1) (cadr z1) (+ h1 h2)))
(vl-cmdf "cone" z3 r2 h2)
(princ)
)

杜阳 发表于 2014-7-21 10:26:46

Andyhon 发表于 2014-7-21 09:49 static/image/common/back.gif


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

baokeding 发表于 2014-7-26 16:46:16

谢谢分享，
页: [1]
查看完整版本: 大师给看看代码问题，新手学习障碍多