Community
Inventor Programming - iLogic, Macros, AddIns & Apprentice
Inventor iLogic, Macros, AddIns & Apprentice Forum. Share your knowledge, ask questions, and explore popular Inventor topics related to programming, creating add-ins, macros, working with the API or creating iLogic tools.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Change Drawing Dimension Text and Symbols Font with iLogic

3 REPLIES 3
Reply
Message 1 of 4
vampelas
1850 Views, 3 Replies

Change Drawing Dimension Text and Symbols Font with iLogic

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

3 REPLIES 3
Message 2 of 4
jdkriek
in reply to: vampelas

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
Jonathan D. Kriek
MFG Solutions Engineer
KETIV Technologies, Inc.


Message 3 of 4
vampelas
in reply to: jdkriek

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

Message 4 of 4
xiaodong_liang
in reply to: vampelas

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report