09-29-2023
12:20 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-29-2023
12:20 PM
Here is one more for pink dimensions
'This code deletes unattached dimensions ' Set a reference to the active drawing document Dim oDoc As DrawingDocument oDoc = ThisDoc.Document 'ThisServer.ActiveDocument ' Set a reference to the active sheet ' Dim oSheet As Sheet oSheet = oDoc.ActiveSheet ' Iterate over all dimensions in the drawing ' and delete unattached (sick) dimensions. For Each oDrawingDim In oSheet.DrawingDimensions If oDrawingDim.Attached = False Then Call oDrawingDim.Delete End If Next