Topic: How to get insertionpoint of block when select attribute

[HasanCAD]

HI all
when select attribute  (vlax-get objVL 'insertionpoint) gives the attribute insertionpoint
How to get the block insertionpoint?
This what I am using

Code - Auto/Visual Lisp: [Select]

1.         (setq obj (car (nentsel "\nSelect Origin attribute/Text : ")))
2.         (setq objVL (vlax-ename->vla-object obj))
3.         (setq objVL-Strng (vlax-get objVL 'textstring))
4.         (setq objVL-inspnt (vlax-get objVL 'insertionpoint))

[Grrr1337]

Using activex, probably like this:

Code - Auto/Visual Lisp: [Select]

1. (and
2.   (setq att (car (nentsel "\nSelect attribute: ")))
3.   (= "ATTRIB" (cdr (assoc 0 (entget att))))
4.   (setq attobj (vlax-ename->vla-object att))
5.   (setq blkobj (vla-ObjectIdToObject (vla-get-ActiveDocument (vlax-get-acad-object)) (vla-get-OwnerID attobj)))
6.   (setq attpt (vlax-get attobj 'InsertionPoint))
7.   (setq blkpt (vlax-get blkobj 'InsertionPoint))
8. ); and

[Pepe]

Just for comparing with plain Autolisp...

Code - Auto/Visual Lisp: [Select]

1. (and
2.   (setq att (car (nentsel "\nSelect attribute: ")))
3.   (= "ATTRIB" (cdr (assoc 0 (entget att))))
4.   (setq attobj (vlax-ename->vla-object att))
5.   (setq blkobj (cdr (assoc 330 (entget att))))
6.   (setq attpt (vlax-get attobj 'InsertionPoint))
7.   (setq blkpt (cdr (assoc 10 (entget blkobj))))
8. ); and

Regards.

[HasanCAD]

Thanks Grrr1337
Thanks Pepe

both solutions are working perfect.