(defun c:blklaycount
( / enx idx lst sel
) )
)
(princ (strcat "\n" (LM:padbetween
"Block" (LM:padbetween
"Layer" "Quantity" " " 50) " " 80))) )
)
)
)
)
;; Pad Left - Lee Mac
;; str - [str] String to pad to given length
;; cha - [str] Padding character(s)
;; len - [int] Minimum length of returned string
(defun LM:padbetween
( st1 st2 cha len
) (LM:padbetween
(strcat st1 cha
) st2 cha len
) )
)
;; Block Name -> Effective Block Name - Lee Mac
;; blk - [str] Block name
(defun LM:name
->effectivename
( blk
/ rep
) '("AcDbBlockRepBTag")
)
)
)
)
)
blk
)
)
;; Nested Assoc++ - Lee Mac
;; Increments the value of a key in an association list with possible nested structure,
;; or adds the set of keys to the list if not present.
;; key - [lst] List of keys & subkeys
;; lst - [lst] Association list (may be nil)
(defun LM:nassoc
++ ( key lst
/ itm
) )
)
)