I was wondering if there was a way to rename features after all features have been created. I like to write my offline programs using individual Auto Vector Points and then I will build features like planes and lines (for example) after everything is created. A common problem I run into is I'll forget to put a point into a certain location. So I'll go back and insert a point where I want but since I've created 30 points after this location the new point I create will not be in numerical order. Is there a way I can tell PC-DMIS to rename all points to numerical order? Hope this makes sense. I've attached a screen shot as an example.
Dim PCDApp As Object
Dim PCDPartPrograms As Object
Dim PCDPartProgram As Object
Dim PCDCommands As Object
Dim PCDCommand As Object
Dim Fcntr,Vcntr As Integer
Dim FeatureList$(1000)
Dim VariableList$(1000)
Dim fType,vValue,dValue As String
Sub Part1
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands
Begin Dialog DIALOGNAME1 48,60, 199, 195, "Select"
ComboBox 10,14,24,150, MyList$(), .Combo1
CancelButton 142,172,40,12
OKButton 14,172,40,12
Text 40,28,121,12, "CONTACT_CIRCLE_FEATURE"
Text 40,36,121,12, "CONTACT_CONE_FEATURE"
Text 40,44,121,12, "CONTACT_CYLINDER_FEATURE"
Text 40,52,121,12, "CONTACT_LINE_FEATURE"
Text 40,60,121,12, "CONTACT_PLANE_FEATURE"
Text 40,68,121,12, "CONTACT_SLOT_ROUND_FEATURE"
Text 40,76,121,12, "CONTACT_ANGLE_POINT_FEATURE"
Text 40,84,121,12, "CONTACT_SLOT_SQUARE_FEATURE"
Text 40,92,121,12, "CONTACT_SPHERE_FEATURE"
Text 40,100,121,12, "CONTACT_VECTOR_POINT_FEATURE"
Text 40,108,121,12, "CONST_SET"
Text 40,116,121,12, "CONST_MID_LINE"
Text 40,124,121,12, "CONST_WIDTH2D_FEATURE"
Text 40,132,121,12, "CONST_WIDTH3D_FEATURE"
Text 40,140,121,12, "VISION_SURFACE_POINT_FEATURE"
Text 40,148,121,12, "VISION_CIRCLE_FEATURE"
Text 40,156,121,12, "VISION_LINE_FEATURE"
End Dialog
Dim Dlg1 As DialogName1
Dlg1.Combo1 = "Selection"
button = Dialog( Dlg1 )
If button = 2 Then
Quit
End If
Select Case Dlg1.Combo1
Case 612
fType = CircleName
Case 615
fType = ConeName
Case 616
fType = CylinderName
Case 614
fType = LineName
Case 617
fType = PlaneName
Case 618
fType = SlotName
Case 605
fType = AngleName
Case 619
fType = SqSlotName
Case 613
fType = SphereName
Case 602
fType = PntName
Case 596
fType = SetName
Case 544
fType = MidLineName
Case 586
fType = WidthName
Case 587
fType = WidthName
Case 241
fType = VisionPointName
Case 245
fType = VisionCircleName
Case 243
fType = VisionCircleName
End Select
Dim PCDApp As Object
Dim PCDPartPrograms As Object
Dim PCDPartProgram As Object
Dim PCDCommands As Object
Dim PCDCommand As Object
Dim Fcntr,Vcntr As Integer
Dim FeatureList$(1000)
Dim VariableList$(1000)
Dim fType,vValue,dValue As String
Sub Part1
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands
Begin Dialog DIALOGNAME1 48,60, 199, 195, "Select"
ComboBox 10,14,24,150, MyList$(), .Combo1
CancelButton 142,172,40,12
OKButton 14,172,40,12
Text 40,28,121,12, "CONTACT_CIRCLE_FEATURE"
Text 40,36,121,12, "CONTACT_CONE_FEATURE"
Text 40,44,121,12, "CONTACT_CYLINDER_FEATURE"
Text 40,52,121,12, "CONTACT_LINE_FEATURE"
Text 40,60,121,12, "CONTACT_PLANE_FEATURE"
Text 40,68,121,12, "CONTACT_SLOT_ROUND_FEATURE"
Text 40,76,121,12, "CONTACT_ANGLE_POINT_FEATURE"
Text 40,84,121,12, "CONTACT_SLOT_SQUARE_FEATURE"
Text 40,92,121,12, "CONTACT_SPHERE_FEATURE"
Text 40,100,121,12, "CONTACT_VECTOR_POINT_FEATURE"
Text 40,108,121,12, "CONST_SET"
Text 40,116,121,12, "CONST_MID_LINE"
Text 40,124,121,12, "CONST_WIDTH2D_FEATURE"
Text 40,132,121,12, "CONST_WIDTH3D_FEATURE"
Text 40,140,121,12, "VISION_SURFACE_POINT_FEATURE"
Text 40,148,121,12, "VISION_CIRCLE_FEATURE"
Text 40,156,121,12, "VISION_LINE_FEATURE"
End Dialog
Dim Dlg1 As DialogName1
Dlg1.Combo1 = "Selection"
button = Dialog( Dlg1 )
If button = 2 Then
Quit
End If
Select Case Dlg1.Combo1
Case 612
fType = CircleName
Case 615
fType = ConeName
Case 616
fType = CylinderName
Case 614
fType = LineName
Case 617
fType = PlaneName
Case 618
fType = SlotName
Case 605
fType = AngleName
Case 619
fType = SqSlotName
Case 613
fType = SphereName
Case 602
fType = PntName
Case 596
fType = SetName
Case 544
fType = MidLineName
Case 586
fType = WidthName
Case 587
fType = WidthName
Case 241
fType = VisionPointName
Case 245
fType = VisionCircleName
Case 243
fType = VisionCircleName
End Select