Send Topic Feedback | See Object Hierarchy Chart
PC-DMIS 2023.1 Object Library
PCDLRN ActiveX DLL > PartProgram Object : MarkChildMode Property
MarkChildMode Property
Description
This enables or disables the Child Mode for Edit window Markings. If enabled and something is marked, any children commands related to the parent command is also marked.
Property type
Read-write property
Syntax
Visual Basic
Public Property MarkChildMode As Boolean
Example
Copy Code
Attribute VB_Name = "mainMod"
Global gPCDApp As PCDLRN.Application
Global gPCDPart As PCDLRN.PartProgram
Public Sub Main()
    Set gPCDApp = CreateObject("PCDLRN.Application")
    
    If (Not gPCDApp Is Nothing) Then
        Set gPCDPart = gPCDApp.ActivePartProgram
        
        If (Not gPCDPart Is Nothing) Then
            Debug.Print gPCDPart.MarkChildMode, gPCDPart.MarkParentMode, gPCDPart.MarkNewAlignmentMode
            
            gPCDPart.MarkChildMode = Not gPCDPart.MarkChildMode
            gPCDPart.MarkParentMode = Not gPCDPart.MarkParentMode
            
            If (gPCDPart.MarkNewAlignmentMode = ENUM_MARK_NEW_ALIGNMENT_MODE.NEWALIGN) Then
                gPCDPart.MarkNewAlignmentMode = ENUM_MARK_NEW_ALIGNMENT_MODE.SAMEALIGN
            Else
                gPCDPart.MarkNewAlignmentMode = ENUM_MARK_NEW_ALIGNMENT_MODE.NEWALIGN
            End If
            
            Set gPCDPart = Nothing
        End If
        
        Set gPCDApp = Nothing
    End If
    
End Sub
See Also