彎管_草图動畫示意图

scliang

如題,應用悶大弧線相通.

彎180°示意圖

蠍子魚

把草圖活用到如此地步,佩服~

scliang

彎管_零件

scliang

彎管_組件

小小豬

向   梁兄學習~~

scliang

彎管零件作圖說明
前言:
    彎管成型在此舉兩個例題,"宏的作图法及"幾何作图法",幾何作图老早悶大就有出教程,這編僅是依據原理延伸應用而已.
    宏的作图法,也是非常簡易的VBA編程,我知道有些人一看到"宏"就沒興趣,雖然在EXCEL我是用了好多年的"宏",
      之前也是很不想在SW用 宏,但在和大家交流之間,為了解決一時疑問,偶然就去探討SW的"宏",感覺在某些方面"宏"還是很好用,
      可以很簡易快速的處理問題的,
    以上是個人感觸,僅作參考!
    另零件動作清楚了,作組件動作應該就"駕輕就熟",若有問題再討論了.
1. 宏的作图法
    重點是在掃出的路徑

gt.adan

支持梁兄~先來個草圖~~

scliang

10#的說明公式   S=R*180/pi/180 有誤
請修改為  S=R*180*pi/180
            

siwxaecu

大大，宏的作图法是指誰？另外這動畫一開怎作？

scliang

siwxaecu 發表於 2013/6/23 20:14
大大，宏的作图法是指誰？另外這動畫一開怎作？

1. 開啟  銅管_vba 之sw檔
2. 直接 執行 pipe_vba.swp 之巨集
3. 作出效果如 4#

scliang

siwxaecu 發表於 2013/6/23 22:32
版本太高，有較低版本？或者gif檔

如何作此效果圖

siwxaecu

大大，只能到工程做？零件草圖能？

scliang

siwxaecu 發表於 2013/6/23 23:25
大大，只能到工程做？零件草圖能？

何不試試再討論

siwxaecu

我工程圖晝R50圓，R30圓，R80圓，50直線，80直線，怎動畫？

scliang

siwxaecu 發表於 2013/6/24 18:43
我工程圖晝R50圓，R30圓，R80圓，50直線，80直線，怎動畫？

在工程圖作動畫,只有用"巨集",
如18#的R50圓，R30圓之相關限制條件設定好,
在巨集,作R30圓的A角相對於R50圓T角的計算公式,A=T*50/30 ,
再控制T角如由0~50°間隔2度變化,
附上 "巨集",注意  "D4@草圖31","D5@草圖31",之名稱必須對應你作的T,A尺寸

' ******************************************************************************
' macro recorded on 06/22/13 by scliang
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
     swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Dim myDimension_4 As Object
    Dim myDimension_5 As Object
    Set myDimension_4 = Part.Parameter("D4@草圖31") '設定T角尺寸
    Set myDimension_5 = Part.Parameter("D5@草圖31") '設定A角尺寸
    pi = 4 * Atn(1) '3.141592654
    R1 = 50
    R2 = 30
    For T = 0 To 50 Step 2 'T角由0~50°間隔2°循環變化
        myDimension_4.SystemValue = T * pi / 180 'T角從角度轉成弧度,在巨集計算皆用弧度
        myDimension_5.SystemValue = T * R1 / R2 * pi / 180 '計算R30的A弧度
        Next
End Sub

siwxaecu

版本太高，自行複製貼上後，它講
swApp = Application.SldWorks無偵側物件，是指什意思？

scliang

siwxaecu 發表於 2013/6/24 20:31
版本太高，自行複製貼上後，它講
swApp = Application.SldWorks無偵側物件，是指什意思？ ...

可能是低版本的問題
你隨便錄製一個巨集給我,但要求有更動角度的
看是否可幫改

scliang

gt.adan 發表於 2013/6/24 20:15
謝謝梁兄教程！

怎麼將軍來巡查啦{:1_180:}
丹兄有2011版嗎?有的話也可幫忙處理!

siwxaecu

角度無變，程式是複製貼上，它就swApp = Application.SldWorks無偵側物件

scliang

siwxaecu 發表於 2013/6/24 21:46
角度無變，程式是複製貼上，它就swApp = Application.SldWorks無偵側物件

你隨便錄製一個巨集給我
看是否可幫改
你的版本是多少?

scliang

siwxaecu 發表於 2013/6/24 22:05
錄製是什意思？GIF檔？

如附圖取得   SWP 檔給我

siwxaecu

草圖31是指在零件畫草圖？而不是工作圖上畫？

siwxaecu

myDimension_4要在線在設定名稱？

scliang

siwxaecu 發表於 2013/6/24 23:15
草圖31是指在零件畫草圖？而不是工作圖上畫？

在工程圖畫的