Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

VB, DRAWING DUAL DIMENSIONS TEXT

Status
Not open for further replies.

JeniaL

Mechanical
Joined
Jun 3, 2014
Messages
547
Location
IL
have found this thread and it is useful but how to put text before and after dual dimension? i need dimension to look in following format (open brackets):
Untitled_n1papd.jpg

preferred language is VB.

Cheers,
Jenia Ladkov
 
Thanks for the BaultText. following code works well except angular dimensions.
Code:
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.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top