A LISP that can count and Name the blocks being Selected [help]

[seanwafo]

Hello dear Masters,

 

My name is Sean and I'm very new to this Lisp programming. it's like 2 weeks now and I begin to frustrate that I can't get my code work. first thing I was able to make the lisp to count the blocks being selected and i was very happy to it. then I decided to name the blocks also that is being selected. I know about the command "BCOUNT" but older versions of AutoCAD has no bcount command yet (Autocad 2010) I really wanted to learn LISP stuffs but gets stuck every time. Please help me with this code. I've been to many sites and still can't figure out what to do next. Thank you in advance masters.

 

 

so here's my code

 

(defun c:BL (/ ssblks ssblks2 en ctr blk ent enlist) ;define funcntion
(vl-load-com)

	
(if (setq ssblks (ssget))) ;|selects blocks|;

	(prog 

		
		(setq blk (sslength ssblks)) ;|get number of blocks|;

		(setq ct 0) ;|set counter to zero|;

		(repeat (ssget ssblks2)) ;|repeat the selecting blocks|;

		(ssadd (ssname ssblks2 ct) ssblks) ;|add ssname froms ssblks selection|;

		(setq en (car(entsel ssblks2)) ;|gets entity from ssblks2|;

		(setq enlist(cdr (assoc 2 (entget en)))) ;|get the dxf group codes of the entity;|

		(alert (strcat "\n There are " (itoa blk) " blocks and these are: " (vla-get-effectivename (vlax-ename->vla-object enlist)) )) ;|display result|;

	) ;end prog

	(princ)

) ;end if

(princ)



);end defun

(princ)

[MSasu]

Welcome to the Forum, Sean!

 

 

 

 

At a glance:

• there is no PROG statement, maybe PROGN.
  
• please check the REPEAT function in help; it will require the number of cycles and an action.
  
• SSGET will return a selection set which should be retrieved into a variable, it doesn't support assignment by reference.
  
• the ct counter is indexed nowhere.
  
• ENTSEL require a string (the prompt) as argument, not a selection set.
  
• VLAX-ENAME->VLA-OBJECT is expecting an entity name (DXF code -1).
  

[SLW210]

Just for your information, BCOUNT has been around for quite some time, it is an Express Tool. Maybe you do not have Express Tools Loaded?

 

BCOUNT

Counts, itemizes, and displays in tabular form, the number of insertions of each block in the selected objects or in the entire drawing.

[seanwafo]

@MSasu

Thank you so much for that information. helped me a lot. for now i will break down the codes first. Autolisp is the first programming i've ever learn. very different in web making. haha.

 

@SLW210

Yes I know of that already. it's a great tool but for those who have lower version of cad like 2010. Bcount is not yet of the program. that's why I'm gonna make one.

[Lee Mac]

Maybe these programs will help?

 

Block Counter

Dynamic Block Counter

Nested Block Counter

[SLW210]

Please read the Code Posting Guidelines and edit your post to include the Code in Code Tags.

[ORgrown]

Reposting according to guidelines...I hope.

 

Hello Sean,

A company I worked for a decade ago used the following code to display each block name and the number of instances each appear. It was probably found/copied via forums like this one. There's no documentation as to who wrote this code, nor how old it really is. If anyone recognizes it as theirs, my sincere gratitude for the use!

 

When you run BLKLST and it asks you to Select Objects, type ALL. F2 to show the list. Hope it works how you need it...

 

(defun C:BLKLST (/ BLKS CHK I J K L L1 N BNAME ENAME EDATA BLIST BNUM
                  BNAME1 BNAME2 TEMP1 TEMP2
                 )
  (princ "\nUse standard selection methods to ")
  (setq BLKS (ssget (list (cons 0 "INSERT"))))
  (setq L (sslength BLKS))
  (setq L (- L 1))
  (setq I 0)
  (setq BLIST (list "BLOCK NAMES"))
  (setq BNUM (list "INSTANCES"))
  (while (<= I L)
     (setq ENAME (ssname BLKS I))
     (setq EDATA (entget ENAME))
     (setq BNAME (assoc 2 EDATA))
     (setq BNAME (cdr BNAME))
     (setq CHK (member BNAME BLIST))
     (if (eq CHK NIL)
        (setq BLIST (cons BNAME BLIST))
     ) ;_ end of if
     (setq I (+ I 1))
  ) ; end while
  (setq L1 (length BLIST))
  (setq L1 (- L1 2))
  (setq J 0)
  (setq N 0)
  (setq K 0)
  (while (<= K L1)
     (setq N 0)
     (setq BNAME1 (nth K BLIST))
     (setq J 0)
     (while (<= J L)
        (setq ENAME (ssname BLKS J))
        (setq EDATA (entget ENAME))
        (setq BNAME2 (assoc 2 EDATA))
        (setq BNAME2 (cdr BNAME2))
        (if (eq BNAME1 BNAME2)
           (setq N (+ N 1))
        ) ;_ end of if
        (setq J (+ J 1))
     ) ; end while j
     (setq BNUM (cons N BNUM))
     (setq K (+ K 1))
  ) ; end while k
;;; Formatting
  (setq K 0)
  (princ)
  (command "TEXTSCR")
  (princ "\nBlock Name     Instance")
  (while (<= K L1)
     (setq TEMP1 (nth K BLIST))
     (setq TEMP2 (nth (- L1 K) BNUM))
     (princ "\n")
     (princ TEMP1)
     (princ "\t\t\t")
     (princ TEMP2)
     (setq K (+ K 1))
  ) ; end while k
  (princ "\n\nPress the <F2> key to hide the text screen after viewing results... ")
  (princ)
) ;_ end of defun

;(princ
;   "\n         Blocklst loaded...  Start command by typing   BLOCKLST "

;(princ)

[seanwafo]

Thank You so much Sir @Lee mac and Sir ORgrown for providing me LISPs. I will study those lisp that you've shared to me. as what i've seen on Sir @Lee Mac's programs, my expression was like "ahhhH! how the???? how does he do this codes?" how do you really? I wanna know. haha. Sir @ORgrown there's still many things for me to learn in order to understand that lisp you showed, some are familiar codes but still, i gotta learn more. This will be my first step in creating a LISP. Thank you so much Masters!