回復 12# Francis
悶大好:
悶大~小弟真的是對你十分佩服,想不到悶大對這也懂....見識非常之廣大{:1_215:}
通常小弟在介紹此產品時,絕大部份人都沒聽過,因頗為少見。
悶大之前特別做給我的file,也是以齒條刀的profile配合加工方式去劃出螺旋齒輪,真是出神入化
但因我的指導教授專業在於齒輪,所以老闆比較傾向,利用數學式將齒形推出來,在以點資料匯入來繪制齒形。
所以小弟才會用之前問的方法去建構。
而小弟在建構同時也將建構的方法以VB6來使用SW API,達到輸入參數可以得到所要的齒形。
但並非所有繪圖方法都可以轉成API(無法選取,或指定所需要的物件。EX:與小豬大大討論的,曲線導出此方法,需要選一平面,而此平面在API中就無法選取到,最後會附上無法選取的地方),可能是小弟在SW造詣還太低了,所以在繪制圖形時,皆必須先劃出正確圖,在使用VB6看是否能成功成形等等.....{:1_183:}
不知道悶大,對於螺旋陣列有什麼高招嗎?
小弟在此請教...{:1_186:}
以下為API code:
boolstatus = Part.Extension.SelectByID2("螺旋曲線/渦捲線2", "REFERENCECURVES", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.02830810170806, 0.05868475884051, -0.005893202400301, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("直線複製排列1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing, 0)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("直線複製排列1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("螺旋曲線/渦捲線2", "REFERENCECURVES", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.02830810170806, 0.05868475884051, -0.005893202400301, True, 1024, Nothing, 0)
Part.FeatureCurvePattern 31, 0.01, 1, 0.01, True, False, True, False, True, False, True, False
"", "FACE"<------------此地方無法選擇到所要平面。 |