hexagon logo

Vector changing script?

Hey all, been lurking the forums for a few months now, finally hit a wall where the search function just doesn't cut it. I mean, I'm sure I'm not the only person to have this issue, but I guess I'm just failing at using the right search terms.
Anywho, after fighting for months with management, they finally agreed that we should be measuring our check jigs and assigned me the task. The problem with that is, most of our check jigs are for wire bending operations and are basically thin grooves cut out of MDF, so essentially 2D. Our tooling dept. has only 2D DWGs for the router path lines and nothing else. (you should see the drawings for their weld fixtures... ugh) I found out that if I try to make autofeature lines and attempt to measure a jig, it for some reason snaps the lines to the cad nominals instead of the actual measurement. I'm dead certain that there's a better way around it, but the best workaround that I've figured out is constructing lines out of vector points. It technically works, with the caveat that I have to manually change all the vectors to 0,0,1, and many jigs require over 80 vector points, and I have about 300 different jigs to measure.
So, manually doing that to every vector point takes up about 95% of the programming time for each jig, so naturally I thought, "hey, I'm not too bad at VBA, I'm sure I could figure out a script to do it for me." Oh, how wrong I was...
After a couple days of tinkering, I finally figured out how to actually select a command and change its vector values, so far so good. Now, let's try to make a loop for a given range of points, aaaannd.... I can't understand exactly why or how to circumvent it, but when I try to select the next command, or at least I falsely think I am, it changes the name of the current command instead!

Is there any way that I can loop through a group of features to change their vectors with script, or is there a better way that I just don't know about?

Hopefully the code isn't too sloppy to read, I've been just randomly throwing code at the problem at this point.

Sub Main()

Dim PCDapp As pcdlrn.Application
Dim App As Object
Set App = CreateObject("PCDLRN.Application")

Dim Part As Object
Set Part = App.ActivePartProgram

Dim Ew As Object
Set Ew = Part.EditWindow

Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Set Cmd = Cmds.Item

Ew.Visible = True

Dim feattype As String
Dim FirstFeature, LastFeature As Integer
feattype = ("pnt")
FirstFeature = 8
LastFeature = 18
'FeatType = InputBox("Enter feature type:")
'FirstFeature = InputBox("type in first feature number:")
'LastFeature = InputBox("type in last feature number:")

Dim StartCmd As Object
Set StartCmd = Cmds.Item(feattype & FirstFeature)

Dim EndCmd As Object
Set EndCmd = Cmds.Item(feattype & LastFeature)

Dim FeatList As Long
FeatList = LastFeature - FirstFeature

Dim coll As Collection
Set coll = New Collection

Dim i As Integer
For i = 1 To FeatList
coll.Add StartCmd.ID
FirstFeature = FirstFeature + 1
StartCmd = feattype & FirstFeature
Next

For i = 1 To coll.count
Cmds.SetCurrentCommand coll(i)
Set Cmd = coll(i)
Ew.SelectCommand

If Cmd.ID = StartCmd And Cmd.ID <> EndCmd Then
retval = Cmd.PutText("0", THEO_I, 0)
retval = Cmd.PutText("0", THEO_J, 0)
retval = Cmd.PutText("1", THEO_K, 0)
Ew.UnselectAll
End If
Next

End Sub


Thanks in advance!
Parents
  • good Day,

    yes, I see what you mean.

    Unfortunately, this functionality does not exist in the pcDMIS-scripting language.
    This means that if you want to use something like this, the script only works with external programs.
    (please be aware that if you use an external program you have almost no restrictions)

    But there is an alternative:

    you have to mark the used points somehow, no matter what name they have.
    1.) The quickest way is to put the points in a pcDMIS-group, the script can then capture all the points that are in the group.
    2.) or you mark the points to be edited with F3 and tell the script to modify all Point-commands that also marked

    ah yes, a script can also get the name of the comand where your cursor is right now.
    and you can also assign an icon to the script and, above all, a hotkey.
    With this you can, for example, simply place your cursor over the pcDMIS group and then press the hotkey.
    maybe thats handy.

    i can help you with the code if you want
Reply
  • good Day,

    yes, I see what you mean.

    Unfortunately, this functionality does not exist in the pcDMIS-scripting language.
    This means that if you want to use something like this, the script only works with external programs.
    (please be aware that if you use an external program you have almost no restrictions)

    But there is an alternative:

    you have to mark the used points somehow, no matter what name they have.
    1.) The quickest way is to put the points in a pcDMIS-group, the script can then capture all the points that are in the group.
    2.) or you mark the points to be edited with F3 and tell the script to modify all Point-commands that also marked

    ah yes, a script can also get the name of the comand where your cursor is right now.
    and you can also assign an icon to the script and, above all, a hotkey.
    With this you can, for example, simply place your cursor over the pcDMIS group and then press the hotkey.
    maybe thats handy.

    i can help you with the code if you want
Children
No Data