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

dbtjj · 发表于 2005-12-13 23:25:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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"")
)

狂刀 · 发表于 2005-12-14 01:20:22

(Command "3dploy"(list r 0 0))
(Command "3dpoly")

dbtjj · 发表于 2005-12-14 14:10:11

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子