Použijte následující VBA kód (předpokládejme blok nazvaný TEST):
Sub test()
Dim blkdef As AcadBlock
Dim elem As Object
Dim strPrompt As String
On Error Resume Next
Set blkdef = ThisDrawing.Blocks.Item("TEST")
For i = 0 To blkdef.Count
Set elem = blkdef.Item(i)
If StrComp(elem.EntityName, "AcDbAttributeDefinition", 1) = 0 Then
strPrompt = elem.PromptString
End If
Next i
End Sub
Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems. Můžete si také přidat odkaz na vaše stránky:
Tipy a triky prosím využívejte na vlastní zodpovědnost. Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů. Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení. Další publikování obsahu je dovoleno jen se souhlasem autora.