V5 Programming
Get Windows Fonts In Catia
Details:
| Published: 18 February 2010
User Rating: 4 / 5
This sample code and library shows how to get windows fonts in Catia V5
Add the library to your project references: Tools -> References
Dim ff As Object
Set ff = Nothing
Set ff = CreateObject("V5_Fonts.V5Fonts")
Dim colF As New VBA.Collection
ff.GetFonts colF
For i = 1 To colF.Count
ComboBox1.AddItem colF.Item(i)'Add the fonts in to a ComboBox
Next
Download the V5_Fonts and dont't forget to register it using "regasm V5_Fonts.dll /tlb:V5_Fonts.tlb /codebase" (take a look in the V5_Fonts_Register.bat file)
