求助！三维螺纹怎么画啊？？ 作者:vijdies 时间:2007-8-15 15:15:00
第 1 楼
求助！三维螺纹怎么画啊？？
三维螺纹怎么画啊？？
作者:WeldLover 时间:2007-8-15 15:15:00
第 2 楼
2006的，还可以说一下2006以下版本的吗？
作者:ciudr 时间:2007-8-15 15:15:00
第 3 楼
(defun c:spring (/ sd ed ths tas nvs step x y z r a h)
(setq b1(getpoint"基点"))
(setq sd (/ (getreal "弹簧起始直径: ") 2))
(setq ed (/ (getreal "弹簧終點直径: ") 2))
(setq ths (getreal "弹簧总高(每圈高度 x 圈数): "))
(setq tas (getreal "总角度数(360 x 圈数): "))
(setq nvs (getint "节点数([总角度数/间隔角度]+1): "))
(setq step (- nvs 1))
(setq x (/ (- ed sd) step))
(setq y (/ ths step))
(setq z (/ tas step))
(setq bb(caddr b1))
(setq r sd)
(setq a 0)
(setq h 0)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(command "ucs""o"b1)
(command "3dpoly" (strcat (rtos r) "<" (rtos a) "," (rtos h)))
(repeat step
(setq a (+ a z))
(setq h (+ h y))
(setq r (+ r x))
(command (strcat (rtos r) "<" (rtos a) "," (rtos h)))
)
(command "")
(setvar "cmdecho" 1)
(setvar "blipmode" 1)
(princ)
)
作者:Frest 时间:2007-8-15 15:15:00
第 4 楼
楼主说的再清楚点吧！
作者:xadert 时间:2007-8-15 15:15:00
第 5 楼
可以的
你再试试那个链接就知道了
