entname block closest to a point.

[Anushka]

How I adapt the program to get the name of the nearest block.
with text it works.

 

(defun :closestname (pt ss)
  (cdar
    (vl-sort
      (mapcar '(lambda (e) (cons (distance (cdr (assoc 10 (entget e))) pt) (cdr (assoc 1 (entget e)))))
	       (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      ) 
      '(lambda (p1 p2) (< (car p1) (car p2)))
    )
  )
)

 

[dlanorh]

Quote

23 minutes ago, Anushka said:

How I adapt the program to get the name of the nearest block.
with text it works.

 

(defun :closestname (pt ss)
  (cdar
    (vl-sort
      (mapcar '(lambda (e) (cons (distance (cdr (assoc 10 (entget e))) pt) (cdr (assoc 1 (entget e)))))
	       (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      ) 
      '(lambda (p1 p2) (< (car p1) (car p2)))
    )
  )
)

 

 

 

If you are only selecting blocks change (cdr (assoc 1 (entget e))) to (cdr (assoc 2 (entget e)))

[Anushka]

@dlanorh It's YES!!! lol lol

 

-1 worked

Edited March 17, 2020 by Anushka

[dlanorh]

1 hour ago, Anushka said:

@dlanorh It's YES!!! lol lol

 

-1 worked

 

Glad I could help. (assoc 2) is the actual name of the block, (assoc -1) is the entity name.