is there a key-in to set the model Line Style properties to compound scale

I need a key-in to set the model Line Style Scale properties to Compound Scale. I've found may key-ins for different model settings, but not for this one. Is such a key-in available?

Parents
  • As suggested by Jan there is no key-in

    Following is a VBA snippet to change active Models Line Style Scale to “Compound Scale”

    Sub ChangeLineStyleScale()
        Dim sMsg As String
        Dim oPH As PropertyHandler
        Set oPH = CreatePropertyHandler(ActiveModelReference)
    
        If Not oPH.SelectByAccessString("LineStyleScale") Then
            Debug.Print "LineStyleScale Access String NOT FOUND!!"
        Else
            ' 0 = Global Line Style Scale
            ' 1 = Annotation Scale
            ' 2 = Compound Scale
            oPH.setValue (2)
            
            sMsg = "Active Model LineStyleScale changed to '" & "Compound Scale" & "'"
            MessageCenter.AddMessage sMsg
        End If
        
        CadInputQueue.SendCommand "FILEDESIGN"
    End Sub

Reply
  • As suggested by Jan there is no key-in

    Following is a VBA snippet to change active Models Line Style Scale to “Compound Scale”

    Sub ChangeLineStyleScale()
        Dim sMsg As String
        Dim oPH As PropertyHandler
        Set oPH = CreatePropertyHandler(ActiveModelReference)
    
        If Not oPH.SelectByAccessString("LineStyleScale") Then
            Debug.Print "LineStyleScale Access String NOT FOUND!!"
        Else
            ' 0 = Global Line Style Scale
            ' 1 = Annotation Scale
            ' 2 = Compound Scale
            oPH.setValue (2)
            
            sMsg = "Active Model LineStyleScale changed to '" & "Compound Scale" & "'"
            MessageCenter.AddMessage sMsg
        End If
        
        CadInputQueue.SendCommand "FILEDESIGN"
    End Sub

Children