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

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

用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

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

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

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

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

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

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

VBA是CAD编程,

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

原帖由 liuxing639 于 2006-11-15 17:07 发表 d% D% } X7 R# R# I A: y# c
VBA是CAD编程,

原来是这么会事情呀！

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

原帖由 liuyilmy 于 2006-11-15 07:22 发表: P) A; B. W y$ d: G( c
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

还是用最近版本好啊``指令越来越多`

		自动登录	找回密码
密码			立即注册

[求助] CAD立体图螺纹应该怎么画？？

等待

可以用个VBA的程序画的!

回复 #6 qasdf 的帖子

本帖子中包含更多资源