Cleyton Ramos Posted October 16, 2018 Posted October 16, 2018 (edited) 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 Quote
Cleyton Ramos Posted October 16, 2018 Author Posted October 16, 2018 I'd like click on block's insertionpoint and return the datas inside textbox. Quote
BIGAL Posted October 17, 2018 Posted October 17, 2018 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 Quote
Cleyton Ramos Posted October 17, 2018 Author Posted October 17, 2018 (edited) 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 Quote
BIGAL Posted October 17, 2018 Posted October 17, 2018 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) Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.