«
»

那位高手帮忙看看，怎么运行不了，提示好像是函数没有定义，多谢！！！

(defun C:luowen(/)
(setq b1 (getpoint”请指定螺旋线基点: “))
(setq r (getreal”请输入螺旋线平均半径: “))
(setq disp (getreal”请输入螺旋线节距: “))
(setq n (getint”请输入每圈细化段数: “))
(setq delta (/ (* 2.0 pi)n))
(setq j (/ disp n))
(setq bb (caddr b1))
(setq ang 0)
(setq jj 0)
(Command “UCS”"o” b1)
(Command “3dploy”(list r 0 0))
(repeat n
(setq jj(+ jj 1))
(setq ang (+ delta ang))
(setq pt2 (list(* r(cos ang)) (* r(sin ang)) (+ 0(* j jj))))
(Command pt2)
)
(Command”")
)

标签： , ,

免责声明
本站部分文章来源于网络收集，包括本站原创及部分转贴自互连网 , 文章的版权属于原作者。如果本站中有内容侵犯了您的权利，我们将协助您及有关部门清除相关内容并查找IP记录，但我们不承担任何责任。
由于您在使用或传播中如果出现任何问题和由此造成的任何损失，本站将不承担任何责任。利用本网站的内容以及导致的任何法律争议和后果与本站无关。
未尽事宜以网站最新公告和相关法律为准。
请自觉遵守上述声明。谢谢合作。
这篇文章发布于 2010年09月4日，星期六，12:03 上午，归类于 未分类。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 评论和Pings都被关闭。

2 条评论 发表在“那位高手帮忙看看，怎么运行不了，提示好像是函数没有定义，多谢！！！”上

  1. 匿名 说道：
    2010年09月4日 12:03 上午

    (Command “3dploy”(list r 0 0))
    (Command “3dpoly”)

  2. 匿名 说道：
    2010年09月4日 12:03 上午

    多谢2楼，太感谢了，就差那么一点点，我就是搞不定啊，哈