How to get block name By Autolisp?

[SAJJAD]

HI I HAVE THE SAME PROBLEM BUT I WANT TO HAVE ALL MY BLOCK'S NAMES BESIDE THEM(AFTER SELECTING THEM USING QSELECT)

CAN U TELL ME HOW TO DO THIS?

[asos2000]

This Lisp create a text with the block name in down right corner  

BlockName.lsp

[Rain0923]

Hi everyone, this code for a block

How can I get multiple block name show on the block insertion point automotive?

Everyone help

[asos2000]

This lisp do that

 

[mhupp]

Here is what i came up with about a year ago.  Change the TXTHT to what you need

;;;-----------------------------------------------------
;;; LABLE BLOCKS BY NAME MIDPOINT OF BOUNDINB BOX
(defun C:NBLK (/ SS i nn obj LL UR MPT TXTHT)
  (vl-load-com)
  (setq SS (ssget '((0 . "INSERT"))))
  (setq i 0)
  (command "_.Undo" "Be")
  (repeat (sslength ss)
    (setq nn (cdr (assoc 2 (entget (ssname ss i)))))
    (setq obj (vlax-ename->vla-object (ssname ss i)))
    (vla-getboundingbox obj 'minpt 'maxpt)
    (setq
      LL (vlax-safearray->list minpt)
      UR (vlax-safearray->list maxpt)
    )
    (setq MPT (polar LL (angle LL UR) (/ (distance LL UR) 2)))
    (setq TXTHT 0.250)            ;;set text height
    (command ".TEXT" "J" "MC" MPT TXTHT "0" NN)
    (setq i (1+ i))
  )
  (command "_.Undo" "E")
)

 

 

Edited March 24, 2021 by mhupp