[LISP程序]：LISP程序]：圆柱弹簧螺旋线程序.lisp

yyayy1314

加载螺旋线程序后出现了以下问题
命令: luox
请指定螺旋线基点: 请指定螺旋线平均半径: 30
请输入螺旋线节距：3
请输入圈细化段数: 36
UCS
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: o
指定新原点 <0,0,0>:
命令: 3dpoly
指定多段线的起点:
指定直线的端点或 [放弃(U)]: ; 错误: 参数类型错误: numberp: nil
源程序如下：
(defun C:luox(/)
(setq bl (getpoint"请指定螺旋线基点: "))
(setq r (getreal"请指定螺旋线平均半径: "))
(setq disp ( getreal"请输入螺旋线节距："))
(setq n (getint"请输入圈细化段数: "))
(setq delta (/(* 2.0 pi) n))
(setq j (/ disp n))
(setq bb(caddr bl))
(setq ang 0)
(setq k 0)
(command "UCS" "o" bl)
(command "3dpoly" (list r 0 0))
(repeat n
(setq k(+ k l))
(setq ang(+ delta ang))
(setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
(command pt2)
)
(command " ")
)
知道的请指点一下！

一生有你

(setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
该行里r后面没有空格呀，两个r后面都没有，
(setq k(+ k 1))你把这里的1写成了l，改过后你再试试，我不太清楚你要画的螺旋线是什么样的，后面的自己改改吧！

didini

使用spline可以画马？就是切向如何测定！

客官小二

(defun C:luox (/)
  (setq bl (getpoint "请指定螺旋线基点: "))
  (setq r (getreal "请指定螺旋线平均半径: "))
  (setq disp (getreal "请输入螺旋线节距："))
  (setq n (getint "请输入圈细化段数: "))
  (setq delta (/ (* 2.0 pi) n))
  (setq j (/ disp n))
  (setq bb (caddr bl))
  (setq ang 0)
  (setq k 0)
  (command "UCS" "o" bl)
  (command "3dpoly" (list r 0 0))
  (repeat n
    (setq k (+ k 1))
    (setq ang (+ delta ang))
    (setq pt2 (list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j k))))
    (command pt2)
  )
  (command "")
)
ok!

chen2337

这样就可以画出螺旋线来吗,
可能提供一个画螺纹的程序吗.

andaye

是啊！请提供一个画螺纹的程序！

chuanxue

用程序编，画螺纹可能要难一些了。