- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Good morning,
With the follow code (found on the web), i can read the values but not the label :
;===================
Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim oSubDoc As Inventor.Document
Dim oPropSets As PropertySets
' Get active sheet
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
oWrite = System.IO.File.CreateText(ThisDoc.PathAndFileName(False) & ".csv")
oWrite.WriteLine("Dim Text;Tol - Lower;Tol - Upper")
' Write each dimension to output file
Dim oDrawingDim As DrawingDimension
For Each oDrawingDim In oSheet.DrawingDimensions
Dim sDimText As String
sDimText = Replace(oDrawingDim.Text.Text, ",", ".")
If oDrawingDim.IsInspectionDimension = True
oWrite.WriteLine(sDimText & ";" & oDrawingDim.Tolerance.Lower & ";" & oDrawingDim.Tolerance.Upper)
End If
Next
oWrite.Close()
;===================
like......
oWrite.WriteLine( LABEL & ";" & sDimText & ";" & oDrawingDim.Tolerance.Lower & ";" & oDrawingDim.Tolerance.Upper)
Thank’s for your help
Solved! Go to Solution.