|
|
; This program is using for drawing a helix
(setq b1 (getpoint "请输入基点："))
(setq r (getreal "半径 r=："))
(setq t1 (getreal "节距 t1=："))
(setq k (getint "段数 k=："))
(setq n (getint "圈数 n=："))
(setq ta (/ (* 2 3.14159) k))
(setq j1 (/ t1 k))
(setq a 0)
(setq jj 0)
(setq ii 0)
(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
(repeat k
(setq jj (+ jj 1))
(setq a (+ ta a))
(setq x (* r (cos a)))
(setq y (* r (sin a)))
(setq z (* j1 jj))
(setq p2 (list x y z))
(command p2)
)
(setq ii (+ ii 1))
(setq z (* t1 ii))
)
(command "" )
这是一个圆柱螺旋线的程序,可是当我载入运行时却不能绘图,命令行有输入参数的提示,但输入以后就结束了 万分着急!!
望那位老师对此程序作一修改,请多指教,多交流!我的E-MAIL:sonnigirl@163.com |
|
置顶卡
