Running Select 10
How can I via VBA find out the name of the text file in a current .dgn
I do know how to do manually by Element>Text Styles and see them , but can you use VBA to know there are styles loaded ?
Example: I know if they are there is a Style name DFS_250x250UL without manually looking is it possible to get VBA to check its existance
than if it was not the macro would import the .dgnlib which is named "DupontFontStyles.dgnlib"
Version: MicroStation V8i SS 10
RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus
Rod, Tech support fixed my MicroStation:
could you explain a little what to do after
set ts = ActiveDesignFile.TextStyles.Item(styleName)
my style name in example 1: DFS_250x250 - This is basic Text Filesmy style name in Example 2: DFS_250x250UL - This is Custom Text Files
Rod this is what I have but nothing happens if you attempt to run this function?
Public Function TextStyleExists(DFS_250x250 As String) As Boolean On Error GoTo NO_STYLE Dim ts As TextStyle Set ts = ActiveDesignFile.TextStyles.Item(DFS_250x250) TextStyleExists = Not (ts Is Nothing) Exit Function NO_STYLE: TextStyleExists = FalseEnd Function
This problem is now solved and MicroStation is again working properly
Answer Verified By: Robert Hook