there is probably a native function for this but I am not aware, I would like to click on an internal point inside a block and it returns the entname of the block outside.
can someone help me, thank you in advance!
get the name of the block that the entity is in
[Maybe I misunderstand, but is there some reason you can't just pick on the Block, instead of in the middle of nowhere inside it?]
Kent Cooper, AIA 
Are the larger outline Blocks with the XXX / YYY Attributes always arranged the same way? With one at 0,0 at its lower left, and any other(s) always coinciding along an edge [maybe in multiple directions], but always the same size, and with their insertion points always in the same place on them [upper left corner in your example]? If so, the location of one of the inside Blocks' insertion point could be used to find which "grid" portion it's in, and the corresponding outline Block should be determinable from that.
Kent Cooper, AIA
Accepted solution
(defun c:insider ( / LM:boundingbox LM:getattributevalue sort_clockwise pt ss i j in e eo bb p1 p2 pt sd)
(defun LM:boundingbox ( obj / a b lst )
(if
(and
(vlax-method-applicable-p obj 'getboundingbox)
(not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'a 'b))))
(setq lst (mapcar 'vlax-safearray->list (list a b)))
)
(mapcar '(lambda ( a ) (mapcar '(lambda ( b ) ((eval b) lst)) a))
'(
(caar cadar)
(caadr cadar)
(caadr cadadr)
(caar cadadr)
)
)
)
)
(defun LM:getattributevalue ( blk tag / val enx )
(while
(and
(null val)
(setq blk (entnext blk))
(= "ATTRIB" (cdr (assoc 0 (setq enx (entget blk)))))
)
(if (= (strcase tag) (strcase (cdr (assoc 2 enx))))
(setq val (cdr (assoc 1 (reverse enx))))
)
)
)
(defun sort_clockwise (ptlist)
(setq p (list (/ (apply '+ (mapcar 'car ptlist)) (length ptlist))(/ (apply '+ (mapcar 'cadr ptlist)) (length ptlist))))
(vl-sort ptlist '(lambda (a b) (> (sin (- (angle p a) (angle p b))) -1e-14)))
)
(defun vectorSide (v1 v2 p / r *fuzz*)
(setq r (- (* (-(car v2)(car v1))(-(cadr p)(cadr v1)))
(* (-(cadr v2)(cadr v1))(-(car p)(car v1)))
)
*fuzz* 1e-10
)
(cond ((equal r 0.0 *fuzz*) 0) (t (fix (/ (abs r) r))))
)
(setq pt (getpoint "\nPick Point >"))
(setq ss (ssget "X" '((0 . "INSERT"))))
(setq i 0 in nil)
(while (< i (sslength ss))
(setq e (ssname ss i))
(setq eo (vlax-ename->vla-object e))
(setq bb (sort_clockwise (LM:BOUNDINGBOX eo)))
(setq bb (append bb (list(car bb))) sd nil)
(setq j -1 r -1)
(while (< (setq j (1+ j)) (-(length bb) 1))
(setq p1 (nth j bb) p2 (nth (+ j 1) bb) sd (cons (vectorSide p1 p2 pt) sd))
)
(if (=(apply '+ sd) -4) (setq in i))
(setq i (+ i 1))
)
(cond
((and in)
(princ (strcat"\n Point inside " (LM:getattributevalue (ssname ss in) "ATTx")))
)
)
)Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@ronjonp wrote:
Maybe something as simple as this?
(setq e (bpoly (getpoint)))It will return the ename of the boundary that you can use to get your selection set.
Is there a (bpoly) AutoLisp function that's not documented? It seems so in quick trial, but without documentation I can't tell how the result might be affected by surrounding conditions. But whether I use the insertion point of an inner Block for the point in that, or in a BPOLY command, since the insertion point is in the middle of the little Block [in the sample drawing, at least], the resulting Polyline is just within that Block, and does not go to the outer one that would presumably outline the surrounding Block with the Attribute they want to get the value from. If there's ever anything like a Line drawn across the surrounding one, that will limit the resulting Polyline's reach, so that using the Polyline's vertices in the WP option in (ssget) won't find that outer Block.
Kent Cooper, AIA
@Anonymous My code may need some testing and final touches. Test it on your real drawings, and report how it works.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
