Nastavení stylu textů (StyleName)

Při otevření výkresů exportovaných z jiného CAD programu (např. Spirit) i výkresů IntelliCADu či AutoCADu může dojít k problémům se zobrazením textů.
Příčinou bývá existence stylů textů, které progeCAD nezná a nemohl je nahradit.

Následující příklad ve VBA využívá vlastnosti object.StyleName a všem textům ve výkrese přiřadí styl "Standard", jehož vlastnosti je možné nastavovat v Průzkumníku stylů. 

Sub SetStyle()
'Nastavi styl textu ve vykrese na Standard
     Dim ents As Object
     Dim ent As Object
     Dim ct As Integer
     Dim counter As Integer
     Set ents = ActiveDocument.ModelSpace
     ct = ents.Count
     
     For counter = 1 To ct
        Set ent = ents.Item(counter)
        If ent.EntityType = 33 Or ent.EntityType = 32 Or ent.EntityType = 23 Then
            ent.StyleName = "Standard"
            ent.Update
        End If
     Next
     MsgBox "Styl nastaven"     
End Sub

Makro je také možné stáhnout zde.

 



Menu