Lisp for select all block by typing its name in command window

[paliwal222]

Hello,

Here i have lisp to select all  block of same name by pick on block, i want to filter or select all block by name, not pick on a block.

(defun c:fbx ( / blockname sset); filter all blocks of same name with one click
(setq blockname (cdr (assoc 2 (entget (car (entsel))))))
(setq sset (ssget "x" (list (cons 2 blockname))))
(sssetfirst sset sset)
(princ (strcat "\nSelected " (itoa (sslength sset)) " instances of block \"" blockname "\"."))
(princ)
)

Thanks

[ВeekeeCZ]

Is this double-posting and already been solved?

[SanjoyNath]

Dear @paliwal222 

We need a log file of these in d drive for which blocks are selected (which user has done that selection and when)

We need the appended data and to change filenames of logging when 6 mega byte is crossed

like

            (setq Text_Pri(if (setq des1 (open "D:\\CHECKING_OBJECTS_LOGS.TXT" "a"))

                                (progn

                                                (write-line (strcat User "," Date "," Time "," DWG_Path_Name      "           The name of this object is       " objName) des1)

                                                (close des1)

                                )

                     )nt (strcat User "," Date "," Time "," DWG_Path_Name))

Somewhere i have done some mistake. Som it is not logging

[paliwal222]

Thanks