问一个二次开发的问题

zenggusy

我现在在学Solid Edge的二次开发，但不知道如何用ＶＢ创建螺纹孔，也不知道创建螺栓上的螺纹，各位前辈谁能告诉我？学生万分感谢．

fengmqiu

我知道,要先建孔

fengmqiu

<p>Set objHolData = objapp.ActiveDocument.HoleDataCollection.Add(igRegularHole, 0.004, 0.0127, 0.0127, 0.0127, 82, 0, igTappedHole, igTaperByRatio, 0.05, 0.0033, igThroughAll, 0)<br/>&nbsp;&nbsp; objHolData.HoleDiameter = 0.004<br/>&nbsp;&nbsp; objHolData.ThreadDepthMethod = igThroughAll<br/>&nbsp;&nbsp; objHolData.ThreadDescription = "M4"<br/>&nbsp;&nbsp; objHolData.ThreadExternalDiameter = 0.003<br/>&nbsp;&nbsp; objHolData.ThreadMinorDiameter = 0.0033<br/>&nbsp;&nbsp; objHolData.ThreadSetting = igRegularThread<br/>&nbsp;&nbsp; objHolData.TreatmentType = igTappedHole<br/>&nbsp;&nbsp; Set objHole = objModel.Holes.AddThroughAll(Profile:=objProfileCollection(1), ProfilePlaneSide:=igRight, Data:=objHolData)<br/>&nbsp;&nbsp; Set objUDPat1 = objModel.UserDefinedPatterns.AddByProfiles(NumberOfProfiles:=objProfileCollection.count, ProfilesArray:=objProfArr, SeedFeature:=objHole)</p><p>如果不懂，请在贴中告诉我，这是我成功的例子</p>