- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
[VBA] SetInspectionDimensionData Blank Label Issue
Gday all,
My goal is to create macros for everything I use the most so i can assign them single key hotkeys to boost my productivity. So I got the following code to set a dimension as an inspection with an angular border, but my issue is it creates a segment (vertical line) for the label even when the label it's set to be blank. Manually editing the dimension shows that the label is blank but if i press delete it removes the segment line.
Sub Dimension_Inspection() Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim oSSet As SelectSet Set oSSet = oDoc.SelectSet 'reference to the selected dimension Dim oDim As LinearGeneralDimension Set oDim = oSSet.Item(1) Dim Shape As InspectionDimensionShapeEnum Dim Label As String Dim Rate As String Shape = kAngularEndsInspectionBorder Label = "" Rate = "" oDim.IsInspectionDimension = True oDim.SetInspectionDimensionData Shape, Label, Rate End Sub
See the highligted segment. it's unnecessary and makes my drawings look inconsistant.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi there,
I too could reproduce the issue: http://www.screencast.com/t/XuivQmtlXIAE, and have logged it in our database under #54707 so that hopefully it will get sorted in a later release.
Unfortunately, I cannot think of a nice workaround - other than ugly Windows messaging, bringing up the dialog, sending DELETE KEY, pressing OK. :-s
(which is also not very robust :-s)
Sorry for the bad news.
Cheers,

Adam Nagy
Autodesk Platform Services
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report

Jar Fu
SW Engineer
Inventor QA
Autodesk, Inc.