压簧模拟运动

liyongxang

   经典图书

是重建的吧
重建宏：
Option Explicit  
Dim swApp As Object  
Dim doc As Object  
Dim boolstatus As Boolean  
Dim longstatus As Long  
Dim Annotation As Object  
Dim Gtol As Object  
Dim DatumTag As Object  
Dim FeatureData As Object  
Dim Feature As Object  
Dim Component As Object  
Dim start As Variant  
Dim rebuilds As Variant  
Dim finish As Variant  
Dim totaltime As Variant  
  
Sub Main()  
Set swApp = Application.SldWorks  
Set doc = swApp.ActiveDoc  
Dim Message, Title, Default, Rebuild  
Message = "请输入重建的次数"  
Title = "重建宏"  
Default = "50"  
Rebuild = InputBox(Message, Title, Default)  
If Rebuild = "" Then  
End  
Else  
start = Timer  
For rebuilds = 1 To Rebuild  
doc.EditRebuild3  
doc.GraphicsRedraw2  
Next rebuilds  
finish = Timer  
totaltime = finish - start  
MsgBox "总时间" & totaltime & "秒", vbDefaultButton1, "Rebuild Macro"  
End If  
End Sub

梁燕妮

明天回公司下载你那附件，宏好复杂，第一段看不懂，第二段可以理解，呵呵

herovicnan

   经典图书

前几日忙于学业考试，今日终得解放阿机械工程师论坛
平时贪玩太多，只得临时抱抱佛角
  
做了一个简略的动画

alksdj

给一个大致的思路：
  
弹簧使用两个扫描特征完成，相比于用包覆特征的更加容易设定草图的关联
而且建模也简单

taozq

   经典案例图书

怕它
  
先把弹簧零件解除特征压缩，再解除装配体压缩
弹簧的装配并不符合实际情况，在此仅作示意
2754645-.rar (24.09 KB, 下载次数: 176)

2014-8-5 10:45 上传

点击文件名下载附件
下载积分: 金币 -1

zlxmotor

机械工程师论坛谢谢鲸兄的热情回复。电脑刚重装好，我照你的去试试，原来的压簧我是FNT里面调出来的。不是自己画的。

aguolaode

   经典案例图书

SolidWorks机械工程师网，顶一下。

22669988

SW机械工程师网，找到组织了！

22669988

鄂破调和漆

YIXIUYI

   经典图书

顶一下，坐等高手！

bingyu2018

我也学习一下