qasdf 发表于 2006-11-14 18:01

CAD立体图螺纹应该怎么画？？

用CAD立体图画螺纹怎么画呀，请高手指教

liuyilmy 发表于 2006-11-15 07:22

CAD2007 内面自带螺纹，容易得很。。。。。

liu_hui812 发表于 2006-11-15 15:24

等待

我也想知道..


我用的是06的,,有没有自带啊..高手们出来看看~!


我们一起谢过..

张春龙1 发表于 2006-11-15 15:37

我用的是04，，什么都没有，就要自己画

孤独行者 发表于 2006-11-15 16:05

可以用个VBA的程序画的!

我有一个的,现在不知道还有没有,要是有的话可以给你!留下E-mail吧!

qasdf 发表于 2006-11-15 17:03

5楼的高手，交交小弟吧，VBA是？？命令吗？

liuxing639 发表于 2006-11-15 17:07

能编出立体的,太厉害了.佩服.

liuxing639 发表于 2006-11-15 17:07

回复 #6 qasdf 的帖子

VBA是CAD编程,

ansonken 发表于 2006-11-15 18:49

原帖由 liuxing639 于 2006-11-15 17:07 发表
VBA是CAD编程,
原来是这么会事情呀！:)

jicheng 发表于 2006-11-15 19:47

原帖由 liuyilmy 于 2006-11-15 07:22 发表
CAD2007 内面自带螺纹，容易得很。。。。。
说的没错，07版本备有，见图

zhouyuhui 发表于 2006-11-15 21:11

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是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" ")
)

傻瓜蚊子 发表于 2006-11-23 16:10

还是用最近版本好啊``指令越来越多`
页: [1]
查看完整版本: CAD立体图螺纹应该怎么画？？