home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / BN.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  409 b   |  14 lines
  1. ;Add block name by picking block
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. ;
  7. (defun C:bn()
  8. (setq pt(cadr(entsel"\nSelect Block:")))
  9. (setq e1(ssget pt)) 
  10. (setq e2 (entget (ssname e1 0)))
  11. (setq blname (cdr(assoc 2 e2)))
  12. (setq pt1 (getpoint"\nSelect point for block title:"))
  13. (command "text" "c" pt1 "" blname))
  14.