CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products []
CZ | EN | DE
Login or
  Visitors: 3042

CAD tip CAD tip # 1214:

Question CAD 
 %  platform  category 
Q - question

How to get the "prompt" property from "attribute" objects in VBA?

A - answer Use the following VBA code (assuming a block named "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
100% *  CAD 
4.4.2001    9425×  
Prices - CAD eShop:
applies to: AutoCAD 2000 ·

Back   All CAD Tips

Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link: CAD Forum - tips, utilities, blocks for Autodesk products
CAD:    OS:    Categ: 
Text:  FAQ glossary   

Increase your productivity with our set of BIM add-on functions for Autodesk Revit
CADstudio Revit Tools More info

Please use these tips at your own risk.
CAD Studio is not responsible for possible problems that may occur as a result of using any of these tips.