锥形，倒锥形，柱形，螺旋线的生成

ljcgq · 发表于 2004-2-6 20:30:00

;========================================================
;
; 本程序适用于锥形，倒锥形，柱形，螺旋线的生成
; 2000.6.1 LJC
; 2000.5.30 2000.6.1 2004.2
;
;========================================================
(defun C:xlt(/)
(setq b1(getpoint "\n下端圆心: "))
(setq ang0(getreal "总转角："))
(setq a(getreal "下端圆半径R=："))
(setq b(getreal "上端圆半径r=："))
(setq h(getreal"上、下端高差H=:"))
(setq n(fix h))
(setq delt (/ (*(/ ang0 180) pi) n ))
(setq j( / h n))
(setq ang 0)
(setq jj 0)
(command "ucsicon" "or" )
(command "ucs" "o" b1)
(command "3dpoly" (list a 0 0))
(repeat n
(setq jj(+ jj 1))
(setq j1(+ 0 (* j jj)))
(setq ang (+ delt ang))
(setq r(- a (/ (* j1 (- a b))h)))
(setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0 (* j jj))))
(command pt2)

)
(command "")

)

wubingji · 发表于 2004-3-24 23:24:00

参数指哪些？

该怎么写，如果我做弹簧的话该怎么填？

谢谢！

meflying · 发表于 2004-3-25 08:33:00

多试几个数据不就可以了，从字面上也应该可以看出，上下端圆半径要一样

ljcgq · 发表于 2004-3-25 20:00:00

1.总转角是指螺旋线所经过的总角度,如果是两圈就是360度.

2.半径,如图左边第一个,上端半径为0下端为2000,要绘制弹簧就如最右边的图象,上下端圆半径要一样

yelifujiam · 发表于 2004-4-23 23:40:00

真是及时雨啊，多谢

happycad · 发表于 2004-4-26 12:59:00

感谢不是一个词…………

DDQT · 发表于 2004-4-27 09:28:00

谢谢

xiangling · 发表于 2004-8-22 16:16:00

多谢学长搭救

西西

hpy · 发表于 2004-8-23 21:46:00

十分感谢！

xianan · 发表于 2004-11-2 18:08:00

我是一个菜鸟。请大虾们告诉我上面那个怎么用啊？

真的不明白。先谢过了。

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

锥形，倒锥形，柱形，螺旋线的生成

本帖子中包含更多资源