Hi,
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
Next
InventorVb.DocumentUpdate()
Any idea what I am doing wrong here?
Best Regards,
Vas
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
Hi Joh,
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?
Many thanks,
Vas
Can't find what you're looking for? Ask the community or share your knowledge.