I want read AutoCAD Text .

[katro]

I have read, but want to view the source code is not very good.
Help me what to do.

$oAcad = ObjGet("","AutoCAD.Application")

If @error Then
    Msgbox(0,"ObjGet","Failed to open AutoCAD.Application.16 Object. Error code: " & @error)
    Exit
Endif

$strActiveDocument = $oAcad.Activedocument.Name
MsgBox(0,"Name",$strActiveDocument)

$iBlocks = $oAcad.Activedocument.Blocks.Count
MsgBox(0,"Count",$iBlocks)
For $i = 0 to $iBlocks -1
    $strBlockName = $oAcad.Activedocument.Blocks.Item($i).name
    If $strBlockName = "" Then
        $iAttributes = $oAcad.Activedocument.Blocks.Item($i).GetAttributes()
        MsgBox(0,"GetAttributes()",$iAttributes)
    EndIf
Next

 

Edited March 25, 2016 by Jos
added codebox