VB, DRAWING DUAL DIMENSIONS TEXT

[JeniaL]

have found this thread

http://www.eng-tips.com/viewthread.cfm?qid=343731

and it is useful but how to put text before and after dual dimension? i need dimension to look in following format (open brackets):

preferred language is VB.

Cheers,
Jenia Ladkov

 

[ferdo]

Hi

Try something like this

Set MyDim = MySel.Item(1).Value
Dim DraDimValue As DrawingDimValue
Set DraDimValue = MyDim.GetValue

MyDim.GetValue.GetBaultText 1,Array1,Array2,Array3,Array4
MyDim.GetValue.SetBaultText 1, "(", ")",Array3,Array4

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[JeniaL]

Thanks for the BaultText. following code works well except angular dimensions.

For I = 3 To oViews.Count ' scan all views for dimensions except main view and background views
Set oView = oViews.Item(I)
oView.Activate
Set oDims = oView.Dimensions
For J = 1 To oDims.Count
Set MyDimension = oDims.Item(J)
Set MyValue = MyDimension.GetValue
MyDimension.DualValue = catDualBellow
'----
iIndex = 1 ' main value
' If already in inch then don't use
MyValue.SetFormatName iIndex, "in"
MyValue.SetFormatPrecision iIndex, "0.01000"
' For Dual Value
iIndex = 2 ' dual value
MyValue.SetFormatName iIndex, "mm"
MyValue.SetFormatPrecision iIndex, "0.10000"
MyValue.GetBaultText 2, Array1, Array2, Array3, Array4
MyValue.SetBaultText 2, "[", "]", Array3, Array4
Next 'Dimension Loop End
Next 'Views Loop End

But this code changes angular dimensions as well. How to skip that in an easy way?
I'm thinking about to do a search for angular dimensions and change a style to original state.