Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
ČeskySlovenskyEnglishDeutsch
Přihlášení:
▶ Registrace

 právě čte: 397 

CAD tip CAD tip # 1203:

Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Jak získat z existujícího bloku ve výkresu vlastnost "prompt" objektů "attribute" ve VBA?

A - odpověď 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
ACAD2000
100% *  CAD 
2.4.2001    2257x  
 
Související CAD produkty:
platí pro: AutoCAD 2000 ·

Zpět   Všechny další tipy

Mám potíže při načítání výkresu s mnoha Xrefy - na jednom nich načítání "zůstane viset". « | » Ploter HP DesignJet 5000 hlásí "Out of disk space" při zpracování tiskové úlohy v PostScriptu.

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 CAD Studio.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (CAD Studio a.s.) 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.
img
TOPlist