|
你用这段程序试一试,下面的程序加载到Autolisp里,再就是生成螺旋线的命令是luox
(defun C:luox(/)
(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 k 0)
(command "ucs" "o" b1)
(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" ")
) |
|