I'd recommend recording the actions you're trying to automate. Record each as separate macros so there isn't as much code to sort through. For example, recording editing a circular pattern dimension gives you something like this...
boolstatus = Part.Extension.SelectByID2("Thru Hole Pattern@Thru Holes Pattern@#Hybrid Model.SLDPRT", "DIMENSION", -0.022398185459952, -2.42895699770917E-02, -3.45289039412515E-02, True, 0, Nothing, 0)
Dim myDimension As Object
Set myDimension = Part.Parameter("Thru Hole Pattern@Thru Holes Pattern")
myDimension.SystemValue = 2
boolstatus = Part.EditRebuild3()
You can delete all of the SelectByID2 operations. The important part is setting myDimension to a Parameter by name. Then set it's SystemValue (in meters, so use some conversion in your code as needed), and then a rebuild.
Get the pattern count from your form like you're doing with your other fields, use CDbl to convert the string value into a Double.
Dim patternCount As Double
patternCount = CDbl(flutecountCMBBOX.value)
Then use that variable on your call to set the SystemValue.
Thanks a lot Mike!! I really appreciate the help. I did a couple recordings yesterday to get the base code done. I want sure how to link the value to the form. I'll play around with it today and maybe get it working. One I get this I'll be able to copy it and have it work for other patterns in the part. Thanks again!!!!!
Thanks again!! I got it to work! Moving on to my next step of this template.