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

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    10386×  
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   

Publish interactive 3D PDF models from AutoCAD, Inventor or Revit with Share3D More info

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