Počet bloků ve výkrese

Aplikace zobrazí počet instancí bloku se shodným názvem v aktuálním výkrese.
Po načtení je k dispozici nový příkaz "BC" (dle angl. block count).

---

(DEFUN C:BC()

; Vyber entity
(setq en (car (entsel "Vyberte jeden blok: "))) 
; Nacteni dat z entity 
(setq en1 (entget en))
(setq bname (cdr (assoc 2 en1)))

; Vyber bloku se stejnym nazvem
(setq A
  (ssget "X"
    (list (cons 2 bname))
  )
)

(setq num (sslength A))
(setq snum (itoa (fix num)))
(alert (strcat "Pocet bloku s timto nazvem: " snum))

)

---

Soubor ke stažení