How to batch redefine the selected block

[skchui6159]

If there are the selected blocks, I want to update the blocks with other dwg (with same block name). (The block reference to other blocks.) Or, Can I get all block names from the selection?

Anyone help?

[skchui6159]

Also, How can i extract the all block names from the selected blocks?

[komondormrex · Accepted solution]

check this

(defun c:get_block_names (/ insert_sset block_name block_list)
	(prompt "\nSelect inserts to get their names in list...")
	(if (setq insert_sset (ssget '((0 . "insert"))))
		(progn
			(foreach insert (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex insert_sset))))
				(if (not (member (setq block_name (vla-get-effectivename insert)) block_list))
					(setq block_list (cons block_name block_list))
				)
			)
			(print (acad_strlsort block_list)) 
		)
	)
	(princ)
)

[skchui6159]

Thank a lot.

I also want to select the blocks by entering the name, anyone help?

[skchui6159]

Thanks you

[ec-cad]

Here is an old Lisp just for that.

You can add it as a 'callable' routine within any other Lisp program.

Just do :

(C:GBBN)

within your existing Lisp, to get a selection set 'ss' with your blocks in it.

ECCAD

;; Lisp name: GBBN.lsp Get Block By Name
;; Notes:
;;  Type GBBN to run this lisp
;;  IF it finds blocks by that name, will save that selection in variable 'ss'
;;  IF not, just prompts - Could not find any blocks by that name
;;  IF found, ss will exist and you can do whatever else you need to do with that selection set

(defun C:GBBN ( / bn)
 (setq bn "" ss nil)
 (setq bn (strcase (getstring "\nBlock Name to find ?")))
  (if bn
   (progn
    (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 bn))))
     (if ss
      (progn
        (setq N (sslength ss)); Number of Blocks by that name
        (prompt (strcat "\nFound " (itoa N) " blocks by that name"))
      ); progn
      (prompt "\nCould not find any blocks by that name")
     ); if
    ); progn
   ); if
 (princ)
); function

[skchui6159]

Thanks, but can the lisp can make the selection of the search object?

[Kent1Cooper]

---

@skchui6159 wrote:

.... can the lisp can make the selection of the search object?

---

This seems to be wandering from the original Topic, but....

If what you want is to select a Block [rather than type in a Block name] and have AutoCAD make a selection of all Blocks of that name like the results of Message 6, you don't need any routine.  Use the SELECTSIMILAR command.

If that is not what you are describing, please explain in more detail.

[ec-cad · Accepted solution]

"Thanks, but can the lisp can make the selection of the search object?"

The Lisp already has 'selected' all the blocks by that name, held in a local variable called 'ss

If you want to explore the contents of that selection set, you can check the first one by:

(setq blk (entget (ssname ss 0)))

That will echo on the command line, a 'list' of that block.

With a little more programming, it could make changes to those blocks, such as change Layer, insert

position, scale, etc.

ECCAD

[skchui6159]

Thank you! It is helpful. Sorry, I am missing the "ss" variable for the selection. Thank for your help.