Check-Drawing customization

[aleksei.lipatnikov]

Good day all,

i have an issue with the drawing. I need to prepare the Check-Drawing, which will have all the same measurements, but they needs to be blind. (only dimension guides must stay). Any ideas of doing it all-in-one? 

Right now the only way is to modify each dimension (add empty text and hide the measurement value), but there needs to be a quicker way.

Thank you.

[bradeneuropeArthur · Accepted solution]

With this you can:

For VBA:

Public Sub CheckDim()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim c As DrawingDimension
Dim cs As DrawingDimensions

Dim sh As Sheet
Set sh = b.ActiveSheet

For Each c In sh.DrawingDimensions
c.ModelValueOverridden = True
c.HideValue = True
c.Text.FormattedText = ""

Next
End Sub

 For Ilogic you need to remove the "Set" in all lines!

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

[aleksei.lipatnikov]

Thank you!! 

p.s. the code needed to be modified to i-Logic. (let/set remove and Sub Main)

[bradeneuropeArthur]

Public Sub CheckDim()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim c As DrawingDimension
Dim cs As DrawingDimensions

Dim sh As Sheet
Set sh = b.ActiveSheet

For Each c In sh.DrawingDimensions
 '?.FormattedText

If InStr(c.Text.Text, "Ø") Then
'MsgBox c.Text.Text
c.ModelValueOverridden = True
c.HideValue = True
c.Text.FormattedText = "[ Ø       ]"
Else
c.ModelValueOverridden = True
c.HideValue = True
c.Text.FormattedText = "[         ]"
End If


Next
End Sub

To your question.....