replace multiple point objects with block and add nearest text as block attribute

[nbortolussi]

I often export layers from google earth to acad.  each GE placemark converts into 2 objects in acad (a point and a text object for the placemark name).  i have found a lisp that can replace the point object with a block that i choose, but I really want for it to also incorporate the name of placemark into the single attribute of the block.  the point and text objects are generally really close to each other so I am hoping there is a way to do this by proximity.  i would like it to automatically recognize the points selection even if i have some other things selected as well.  Alternatively, if it is easier, instead of replacing the points you could replace the text objects and place the block base point at the text objects justify anchor point and then use the text value in the block attribute.  now that i think about it...this might be the better way to go, but i will let you decide.

[Sea-Haven]

Some hints so you can have a go,

Get all "Points" say on a layer using ssget with points filter '((0 . "POINT"))

Using the point insert point make a little box say 4 points. Only really need points not lines

Use SSGET "F" pts to look for text once found get text string.

Add block and put text into attribute.

See little green search box. Size to suit gap from point.

The find text can be simplified even more as there is a pattern to where the text is located, so can actually use SSGET pt where pt would be within the text calculated from the insertion point.

There are so many examples out there of this task.

[calderg1000 · Accepted solution]

Regards @nbortolussi 

Try this code. Select the block to replace, then select all the text by selection window and you will get what you require.

;;;___
(defun c:I_block (/ spm blkn ltxn x)
  (princ "\nSelect the base block to replace: ")
  (setq spm  (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
        blkn (cdr (assoc 2
                         (entget (car (entsel "\n Select Block Base for Replace: ")))
                  )
             )
        ltxn (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT"))))))
  )
  (foreach x ltxn
    (vla-InsertBlock
      spm
      (vlax-make-variant (vlax-3d-point (cdr (assoc 11 (entget x)))))
      blkn
      1
      1
      1
      0
    )
    (entmod (subst (cons 1 (cdr (assoc 1 (entget x))))
                   (assoc 1 (entget (entnext (entlast))))
                   (entget (entnext (entlast)))
            )
    )
    (vla-erase (vlax-ename->vla-object x))
  )
  (princ)
)

[nbortolussi]

@calderg1000,
Thank you, Thank you, Thank you!!! This worked perfectly!

[nbortolussi]

@Sea-Haven,
Thank you for your response, unfortunately I am not very well versed in the language.

[calderg1000]

Glad to help...