Added the macro to set read-only state for all dimensions in the feature

Author: artem1t

solidworks-api/document/dimensions/set-read-only/Macro.vba

@@ -0,0 +1,41 @@
+Const READ_ONLY As Boolean = True
+
+Dim swApp As SldWorks.SldWorks
+Dim swModel As SldWorks.ModelDoc2
+
+Sub main()
+
+    Set swApp = Application.SldWorks
+    
+    Set swModel = swApp.ActiveDoc
+    
+    Dim swSelMgr As SldWorks.SelectionMgr
+    
+    Set swSelMgr = swModel.SelectionManager
+    
+    Dim swFeat As SldWorks.Feature
+    
+    Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
+    
+    If Not swFeat Is Nothing Then
+        
+        Dim swDispDim As SldWorks.DisplayDimension
+        
+        Set swDispDim = swFeat.GetFirstDisplayDimension
+        
+        While Not swDispDim Is Nothing
+            
+            Dim swDim As SldWorks.Dimension
+            
+            Set swDim = swDispDim.GetDimension2(0)
+            swDim.ReadOnly = READ_ONLY
+            
+            Set swDispDim = swFeat.GetNextDisplayDimension(swDispDim)
+            
+        Wend
+        
+    Else
+        Err.Raise vbError, "", "Select feature"
+    End If
+    
+End Sub

solidworks-api/document/dimensions/set-read-only/dimension-read-only.png

@@ -0,0 +1,18 @@
+---
+caption: Set To Read-Only
+title: Macro to change read-only state of all dimensions of the selected feature in the SOLIDWORKS model
+description: VBA macro to change the read-only options for all dimensions of the selected feature of the active SOLIdWORKS model
+image: dimension-read-only.png
+---
+
+![Dimension read-only property](dimension-read-only.png){ width=400 }
+
+This SOLIDWORKS VBA macro changes the read-only state of all dimensions of the selected feature (e.g. sketch).
+
+Set the target read-only state in the constant
+
+~~~ vb
+Const READ_ONLY As Boolean = True 'True to set to Read-Only, False to remove Rea-Only flag
+~~~
+
+{% code-snippet { file-name: Macro.vba } %}