I was looking to change the fonts in a drawing for the Dimensions and Symbols that might have been inserted in the Dimension text entries.
This can be done manually bu editing the dimentions text after placemement, but I was ooking to set this as a default.. I cannot see where exactly this is controlled in the Styles Manager - I am only able to change the Dimension text font but the diameter symbol font is always on AIGDT.
I was therefore looking for an iLogic\vb code that could do the trick, but I am not able to even change the dimension fonts... The code runs with no errors but nothing gets updated in the drawing...
Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
Dim oBaseDimSet As BaselineDimensionSet
Dim oBaseDimSets As BaselineDimensionSets
For Each oBaseDimSets In oSheet.DrawingDimensions.BaselineDimensionSets
oBaseDimSet.Style.TextStyle.Font = "Chiller"
oBaseDimSet.Style.TextStyle.FontSize = 10
Any idea what I am doing wrong here?
Here you go
Dim oDoc As DrawingDocument oDoc = ThisApplication.ActiveDocument Dim oSheet As Sheet oSheet = oDoc.ActiveSheet Dim oBaseDimSet As BaselineDimensionSet Dim oBaseDimSets As BaselineDimensionSets oBaseDimSets = oSheet.DrawingDimensions.BaselineDimensionSets For Each oBaseDimSet In oBaseDimSets oBaseDimSet.Style.TextStyle.Font = "Chiller" '.396 = .156in Text '.458 = .180in Text oBaseDimSet.Style.TextStyle.FontSize = 0.458 Next
Thank for the response and assitance, I knew I was forgetting something importnat in that code... Although this code still make no effect on the drawing for some reason, does that work for you on existing dimension text?
the code jdkriek shared in message 2 works well at my side. I created some base dimension set manually. then run the code, all dimensions font size are changed. Could you elaborate "....make no effect...."?
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.