hexagon logo
Register Sign in
  • Replies 9 replies
  • Subscribers 31 subscribers
  • Views 116 views
  • Users 0 members are here
Options
Related

How to grab current alignment name with VB?

Josh Carpenter
Within PC-DMIS, we can hard code an assignment to make a variable's value to be a text string of the name of the current alignment, like so: 
ASSIGN/VARIABLE1=GETSETTING("Current Alignment")


However, I have a need to obtain with VB the name of the current alignment at the point in the program where the cursor is when I run a button-launched BAS script.

I just want the name as a text string so that when I automate adding Constructed 3D Lines (made from current coord sys axis) their names include the alignment name. Right now they come in with the name X_AXIS_ALIGNMENT_EDIT and I have to (ugh) manually edit them. Ain't nobody got time for that.

Nothing I try in VB works, the GETTEXT, GETCOMMAND, GETSETTING etc string handlers are not valid VB commands ha ha.

I'm thinking I do not know how to dig deep enough, that I'm missing some string functions that VB can easily grab.

Any ideas?
Parents
  • Alternative:

    Dim DmisApp As Objectct
    Dim DmisPart As Object
    Dim DmisCommands As Object
    Dim AlignmentCommand As Object

    Sub Part1
    Set DmisApp = CreateObject("PCDLRN.Application")
    Set DmisPart = DmisApp.ActivePartProgram
    Set DmisCommands = DmisPart.Commands
    Set AlignmentCommand = DmisCommands.CurrentAlignment

    If Not AlignmentCommand is Nothing Then
    MsgBox AlignmentCommand.ID
    Set AlignmentCommand = Nothing
    End If

    Set DmisCommands = Nothing
    Set DmisPart = Nothing
    Set DmisApp = Nothing

    End Sub
Reply
  • Alternative:

    Dim DmisApp As Objectct
    Dim DmisPart As Object
    Dim DmisCommands As Object
    Dim AlignmentCommand As Object

    Sub Part1
    Set DmisApp = CreateObject("PCDLRN.Application")
    Set DmisPart = DmisApp.ActivePartProgram
    Set DmisCommands = DmisPart.Commands
    Set AlignmentCommand = DmisCommands.CurrentAlignment

    If Not AlignmentCommand is Nothing Then
    MsgBox AlignmentCommand.ID
    Set AlignmentCommand = Nothing
    End If

    Set DmisCommands = Nothing
    Set DmisPart = Nothing
    Set DmisApp = Nothing

    End Sub
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement