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

qasdf

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

liuyilmy

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

liu_hui812

我也想知道..
  T/ ^0 Q3 q- M( }4 }+ W

" @7 B* s( W* e" L- B9 M+ J' P我用的是06的,,有没有自带啊..高手们出来看看~!

* i* S  b2 T7 S; G
我们一起谢过..

张春龙1

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

孤独行者

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

qasdf

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

liuxing639

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

liuxing639

VBA是CAD编程,

ansonken

原帖由 liuxing639 于 2006-11-15 17:07 发表
VBA是CAD编程,

原来是这么会事情呀！

jicheng

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

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

zhouyuhui

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
, r( \4 x: U" t$ M& r(defun C:luox(/)
6 m* E) D% X% R$ @+ f (setq b1 (getpoint"请指定螺旋线基点:"))
- G% d+ |- Z; Q2 U (setq r (getreal"请指定螺旋线的平均半径:"))
8 ^3 O1 J9 H  H  ]4 l (setq disp ( getreal"请输入螺旋线节距:"))
/ a' s" w7 w7 P: m& F& f. v' \" Y (setq n (getint"请输入每圈细化段数:"))
(setq delta (/(* 2.0 pi) n))
, e+ t! N! a3 f (setq j (/ disp n))
(setq bb(caddr b1))
9 u% k; B* t; c$ p* V8 k$ p (setq ang 0)
7 B! v0 r1 F# }) O$ h% ]+ r (setq k 0)
* V1 c7 r  ?# P (command "ucs" "o" b1)
' [: j: b0 S- I) q) G. T& @# P (command "3dpoly" (list r 0 0))
: j. s; @0 |# x- W3 T/ z' s0 I (repeat n
   (setq k(+ k 1))
' z4 u9 Y; |7 P/ \  r   (setq ang(+ delta ang))
   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
1 X4 @2 E3 b# K- d$ T. L( ]2 j   (command pt2)
' j8 j$ c, I' _) m7 W0 N& n8 E )
(command" ")
* P7 c0 V! I9 W2 V1 d+ M )

傻瓜蚊子

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