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

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