home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / CNS.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  220 b   |  6 lines
  1. (setq sym1(ssget))
  2. (setq insrtpt(getpoint "\nPick new insert point "))
  3. (setq nname(getstring "\nEnter name of new symbol: "))
  4. (setq nname1(strcat"c:/kesym1/" nname))
  5. (command"wblock" nname1 "y" "" insrtpt sym1 "")
  6.