拉壓棒_變形作图

nszqf

   经典图书

娅硕7358

加字母R在本图形里有啥意义吗  仅仅代表半径吗

liwenping

   经典图书

僅表示半徑而已

hhyc100

哇哈，做不出来

zy1211

   经典案例图书

都不好意思问梁师傅了，一半的限制  咋约束呀 ，用了数值链接也不行，
在几何约束里没看到能约束一半距离关系的， 有点弱弱了啊，

xdaming914

把拉伸總長線段不要畫一條線段,而是畫成兩條相等的線段,
再和样条曲线的中点的輔助線作等長限制

specicn

   经典案例图书

' ******************************************************************************
'  macro  on 07/19/14 by scliang
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myDimension As Object
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0
Set myDimension = Part.Parameter("D4@草圖1") '草圖名稱要對應使用者的作圖
myDimension.SystemValue = 0.094 '如下尺寸要對應使用者的作圖
'拉長
For i = 94 To 112 '94為成直軸長,112為拉斷長
myDimension.SystemValue = i / 1000
boolstatus = Part.EditRebuild3()
myModelView.RotateAboutCenter 0, 0
Next
'壓縮
For j = 112 To 82 Step -2 '82為最大壓縮長
myDimension.SystemValue = j / 1000
boolstatus = Part.EditRebuild3()
myModelView.RotateAboutCenter 0, 0
Next
'回復
For k = 82 To 94 Step 4
myDimension.SystemValue = k / 1000
boolstatus = Part.EditRebuild3()
myModelView.RotateAboutCenter 0, 0
Next
'Part.ClearSelection2 True
End Sub
拉壓棒變形.zip (8.86 KB, 下载次数: 164, 售价: 40 金币)

2014-8-4 16:08 上传

点击文件名下载附件
售价: 40 金币  [记录]
下载积分: 金币 -1

[2012]

zhuzhiwei

怀疑SW那里设置不一样，要不就是没领悟大师方法理念，悟性太低呀

goodscx

11#  看詳細就是

中秋月满

   经典图书

谢谢liang大，已重新做过：

只是有一点不明，我已将宏作修改最终伸长为110，但实际效果却是108

魑魅魍魉→鑫

謝謝回知
沒有 "step" 的倍數
改為108 or 112

cxq7582

谢谢liang大回复与教学：
既然需要“step"的倍数，那我干脆将step改为5就OK啦：

另请教liang大：
For k = 100 To 110 Step 5
myDimension.SystemValue = k / 1000
可否翻译一下程式的意思，便于以后能套用，我只是大概明白

liaoxuan

for  必須配合 next  做循環處裡
從 100 起頭  到 110 為止  間隔跳 5,  變數 K值  就是  100 ,105 , 110  
因為 宏  強制定義尺寸單位為 "米"  ,所以  K 值(單位 mm) 須除 1000
k/1000  的值丟給  草圖尺寸變數

jeakines

感谢Liang大教学

chenzhigen

加入QQ群
参与讨论和学习

或扫描二维码加入

要知道step值大小  就可以控制動畫執行速度...

沙漠里的石头

   经典案例图书

谢谢各位大神的鼎力相助，终于想通了，不容易啊

li123w2

加入QQ群
参与讨论和学习

或扫描二维码加入

都57#了，高手太多了，希望不是最后一个交作业的，多谢梁师傅指教，SW很深啊，向您学习！！！

yanyuliang

   经典案例图书

放個鞭炮,賀喜成功!

wolongfang

样条曲线还是不能跟着一起变化。。。

daydream

梁老师面前耍大刀啊，样条曲线的距离和拉伸变化面是一半的关系，咋约束，
拉伸线段不要一笔画出，分两次，然后加相等约束。多试试。都不敢和梁师傅请教宏知识了，
先自己看帮助学习下吧，功力自身太差呀。