home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CAD08N06.ZIP / BLKSRCH.LSP < prev    next >
Lisp/Scheme  |  1993-04-28  |  373b  |  17 lines
  1. (defun c:blksrch (/ k t b a n bk)
  2.    (setq k 5)
  3.    (while (setq t (tblnext "block" k))
  4.      (setq k nil)
  5.      (setq b (assoc 2 t))
  6.      (setq a (ssget "x" (list b)))
  7.      (if (/= a nil)
  8.        (progn
  9.          (setq n (sslength a))
  10.          (setq bk (cdr (assoc 2 t)))
  11.          (prin1 n) (prompt "   ") (prin1 bk) (terpri)
  12.        )
  13.      )
  14.    )
  15.    (prin1)
  16.  )
  17.