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

qasdf

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

liuyilmy

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

liu_hui812

我也想知道..
3 g; \5 |: s0 d4 P2 _& A
# t8 _* u, v6 d2 ^$ v
我用的是06的,,有没有自带啊..高手们出来看看~!
* k  l2 i% N; b+ X: Z5 J" L

) X& c! T5 v- n( ~1 O我们一起谢过..

张春龙1

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

孤独行者

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

qasdf

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

liuxing639

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

liuxing639

VBA是CAD编程,

ansonken

原帖由 liuxing639 于 2006-11-15 17:07 发表
8 b; o9 ?8 Z8 \! i7 a5 {( b3 qVBA是CAD编程,

2 y1 @# N: A+ l  [原来是这么会事情呀！

jicheng

原帖由 liuyilmy 于 2006-11-15 07:22 发表
CAD2007 内面自带螺纹，容易得很。。。。。

说的没错，07版本备有，见图

zhouyuhui

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
(defun C:luox(/)
! m! H  Y1 R  I4 r( Y; T( { (setq b1 (getpoint"请指定螺旋线基点:"))
0 z9 N  o9 @. ?% K* V& l/ I (setq r (getreal"请指定螺旋线的平均半径:"))
$ n; b5 @& q  o5 R (setq disp ( getreal"请输入螺旋线节距:"))
(setq n (getint"请输入每圈细化段数:"))
* o2 h) n  \1 c9 K' { (setq delta (/(* 2.0 pi) n))
/ n5 ?0 f3 u" P5 L. u0 Y0 {0 q (setq j (/ disp n))
(setq bb(caddr b1))
6 Q5 \: J) U+ q/ R (setq ang 0)
(setq k 0)
5 l& b+ q$ f/ ~* q/ J1 g5 H/ Z (command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
; {4 Z2 g. m" g8 m5 `* \* x% a. T" }   (setq k(+ k 1))
   (setq ang(+ delta ang))
2 V% I, j: e3 N! h   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
   (command pt2)
)
(command" ")
- h( T) [- W7 o: Y% h )

傻瓜蚊子

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