se螺纹开发问题

bbs

'零件就是一个20的圆柱，在上面加上螺纹，用下面的程序对螺纹小径进行修改  
’可是螺纹并没有修改完成。选择编辑螺纹－参数（里面已经有"sdf"项）－完成  
‘到这螺纹小径才最终修改完成，可是怎么用程序来实现那？请赐教！！！  
  
Dim objApp As SolidEdgeFramework.Application  
Dim objDoc As SolidEdgePart.PartDocument  
Dim objModel As SolidEdgePart.Model  
Dim objThreads As SolidEdgePart.Threads  
Dim objThread As SolidEdgePart.Thread  
Dim objHoleColl As SolidEdgePart.HoleDataCollection  
Dim objHoleData As SolidEdgePart.HoleData  
Dim objVars As SolidEdgeFramework.Variables  
Dim objVar1 As SolidEdgeFramework.Variable  
Const TESTFILE = "D:\2.par"  
' Report errors  
Const PI = 3.14159265358979  
' Create/get the application with specific settings  
On Error Resume Next  
Set objApp = GetObject(, "SolidEdge.Application")  
Set objDoc = objApp.Documents.Open(Filename:=TESTFILE)  
Set objModel = objDoc.Models(1)  
Set objThreads = objModel.Threads  
Set objThread = objThreads.Item(1)  
Set objVars = objDoc.Variables  
Set objHoleData = objThread.HoleData  
Dim m As Long  
Dim l As Long  
m = 20  
objDoc.HoleDataCollection.Item(1).ThreadDescription = "sdf"  
objDoc.HoleDataCollection.Item(1).ThreadNominalDiameter = m/ 1000  
objDoc.HoleDataCollection.Item(1).ThreadExternalDiameter = m/1.2 / 100

bbs