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)

• Add New
• Search
• RSS

Comments (0)

Write comment

Your Contact Details:

Name:

Email: do not notifynotify

Website:

Comment:

Title:

Message:

Security

Please input the anti-spam code that you can read in the image.

Powered by !JoomlaComment 4.0 beta2