Ilogic rule for a particular sheet to find the dimension overrides

[ArunS2DHBM]

Hi,

I have 3 sheets names, Assy:1, Body:1 and Nameplate:1

i want a rule for sheet name Assy:1 to find the override in any dimension having "Hold" mentioned in it. 

if so then my parameter "Status" should carry a value "X" else it should be "-"

Please help me with the code

Thanks in advance.

[theo.bot · Accepted solution]

The first step is define the sheet in your drawing, secondly loop thru all dimension on your sheet. You can check if the dimension text contains a particular text and is the hidevalue is true of false. here's a small sample assuming you have that parameter "Status" in your drawing document.:

Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document

Dim oSheet As Sheet
oSheet = oDoc.Sheets("Assy:1")

Dim oFound As Boolean
oFound = False

'loop thru all dimensions on sheet
For Each oDim As DrawingDimension In oSheet.DrawingDimensions
	'check if HideValue is true
	If oDim.HideValue = True Then
		'check if dimension text contains "hold"
		If oDim.Text.Text.Contains("Hold") = True Then
			oFound = True
			Exit For
		End If
	End If
Next


If oFound = True Then
	Status = "X"
Else
	Status = "-"
End If

[ArunS2DHBM · Accepted solution]

Thanks for the code. it works perfectly.