Get info from insertblock

[Cleyton Ramos]

Hello!
How do I get the information from an insertblock by clicking it?
Thank you very much in advance.

Edited October 16, 2018 by Cleyton Ramos

[Cleyton Ramos]

I'd like click on block's insertionpoint and return the datas inside textbox.

[BIGAL]

You need to explain more  what it is you want

 

Select object:
; IAcadBlockReference: AutoCAD Block Reference Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000013fc9b0b8>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000000072274788>
;   EffectiveName (RO) = "DA1DRTXT"
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "D998"
;   HasAttributes (RO) = -1
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000003cf4ae48>
;   InsertionPoint = (0.0 0.0 0.0)
;   InsUnits (RO) = "Unitless"
;   InsUnitsFactor (RO) = 1.0
;   IsDynamicBlock (RO) = 0
;   Layer = "DRGTEXT"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Name = "DA1DRTXT"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 44
;   ObjectName (RO) = "AcDbBlockReference"
;   OwnerID (RO) = 45
;   PlotStyleName = "ByLayer"
;   Rotation = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000003cf59ba0>
;   Visible = -1
;   XEffectiveScaleFactor = 1.0
;   XScaleFactor = 1.0
;   YEffectiveScaleFactor = 1.0
;   YScaleFactor = 1.0
;   ZEffectiveScaleFactor = 1.0
;   ZScaleFactor = 1.0

 

[Cleyton Ramos]

Oh yes!
Thanks for listening.
I need to capture the description and the block quota through the insertion point of the block and send it inside a textbox.

 

 I have two textboxes. One for quota and another for description. I want to fill them with this data.

Edited October 17, 2018 by Cleyton Ramos

[BIGAL]

Are you saying the opposite of this done in lisp

 

; This will record text picked and push it into a block with attributes
; By Alan H oct 2018

(defun pushtext ( / lst ent txt blk x att)
(setq blk (vlax-ename->vla-object (car (entsel "Pick block object"))))
(foreach att (vlax-invoke blk 'getattributes)
(setq txt (vla-get-textstring (vlax-ename->vla-object (car (entsel "Pick text object")))))
(vla-put-textstring att txt)
(princ "\n")
)
)
(pushtext)