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

qasdf

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

liuyilmy

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

liu_hui812

我也想知道..
* f6 X: L0 W6 C/ {
& Y# K, Y, A3 u7 l  F6 C
7 t' m/ F" d8 m, l" L6 H& X我用的是06的,,有没有自带啊..高手们出来看看~!

: \$ G% S% p7 V# ~+ A; y
我们一起谢过..

张春龙1

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

孤独行者

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

qasdf

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

liuxing639

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

liuxing639

VBA是CAD编程,

ansonken

原帖由 liuxing639 于 2006-11-15 17:07 发表
# b5 h' W" _* J( }+ G# kVBA是CAD编程,

原来是这么会事情呀！

jicheng

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

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

zhouyuhui

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
(defun C:luox(/)
( z8 E- ~3 e4 P- |! N" ~ (setq b1 (getpoint"请指定螺旋线基点:"))
(setq r (getreal"请指定螺旋线的平均半径:"))
(setq disp ( getreal"请输入螺旋线节距:"))
9 T- {6 _9 K/ W/ D3 S$ f (setq n (getint"请输入每圈细化段数:"))
! B) N9 ^# h) g (setq delta (/(* 2.0 pi) n))
+ V, W/ Y: [; `* ^ (setq j (/ disp n))
3 S) B( u) r$ Y; p  N/ N4 n' h (setq bb(caddr b1))
(setq ang 0)
# A/ [) }# Y# @4 G) p# L! o (setq k 0)
(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
; U, {, @2 {: }$ Z- s! ` (repeat n
   (setq k(+ k 1))
' b; ^5 f1 o4 \   (setq ang(+ delta ang))
   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
   (command pt2)
)
(command" ")
)

傻瓜蚊子

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