Is it possible to show and hide "Points" & "Wires" similar to the options se

[CarlosR2022]

Is there an macro automation to show or hide Points and Wires? The normal way is to get in to the View Modes option from View then manually turn on and off. I can only change render style via automation but not Points and Wires.

 

[LWolf]

in Tools-Options, navigate to the correct tab of the Drafting preferences, and dump out values of that particular tab, (it is the second button from left, in lower left corner of the options toolbar)
Here is a snippet with relevant data:

long9 = settingRepository1.GetAttr("DrwProject3DSymbol")
'--------------------------------------------------
' Parameter 1 : (String) "DrwProject3DSymbol"
' Returned value : (Variant) (Long) 1
'--------------------------------------------------

Dim bSTR61
bSTR61 = ""
Dim bSTR62
bSTR62 = ""
Dim boolean42
settingRepository1.GetAttrInfo "DrwProject3DSymbol", bSTR61, bSTR62, boolean42
'--------------------------------------------------
' Parameter 1 : (String) "DrwProject3DSymbol"
' Parameter 2 : (String) "Set at Admin Level 2"
' Parameter 3 : (String) "Unlocked"
' Parameter 4 : (Boolean) False
'--------------------------------------------------

boolean43 = settingRepository1.GetAttr("DrwProject3DPts")
'--------------------------------------------------
' Parameter 1 : (String) "DrwProject3DPts"
' Returned value : (Variant) (Boolean) True
'--------------------------------------------------

Dim bSTR63
bSTR63 = ""
Dim bSTR64
bSTR64 = ""
Dim boolean44
settingRepository1.GetAttrInfo "DrwProject3DPts", bSTR63, bSTR64, boolean44
'--------------------------------------------------
' Parameter 1 : (String) "DrwProject3DPts"
' Parameter 2 : (String) "Set at Admin Level 2"
' Parameter 3 : (String) "Unlocked"
' Parameter 4 : (Boolean) True
'--------------------------------------------------

long10 = settingRepository1.GetAttr("GenWireFrameMod")
'--------------------------------------------------
' Parameter 1 : (String) "GenWireFrameMod"
' Returned value : (Variant) (Long) 1
'--------------------------------------------------

Dim bSTR65
bSTR65 = ""
Dim bSTR66
bSTR66 = ""
Dim boolean45
settingRepository1.GetAttrInfo "GenWireFrameMod", bSTR65, bSTR66, boolean45
'--------------------------------------------------
' Parameter 1 : (String) "GenWireFrameMod"
' Parameter 2 : (String) "Set at Admin Level 2"
' Parameter 3 : (String) "Unlocked"
' Parameter 4 : (Boolean) False
'--------------------------------------------------

boolean46 = settingRepository1.GetAttr("GenWireFrame")
'--------------------------------------------------
' Parameter 1 : (String) "GenWireFrame"
' Returned value : (Variant) (Boolean) True
'--------------------------------------------------

Dim bSTR67
bSTR67 = ""
Dim bSTR68
bSTR68 = ""
Dim boolean47
settingRepository1.GetAttrInfo "GenWireFrame", bSTR67, bSTR68, boolean47
'--------------------------------------------------
' Parameter 1 : (String) "GenWireFrame"
' Parameter 2 : (String) "Set at Admin Level 2"
' Parameter 3 : (String) "Unlocked"
' Parameter 4 : (Boolean) True
'--------------------------------------------------

regards,
LWolf