home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / d / dicogo.zip / FIXTXT.LSP < prev    next >
Lisp/Scheme  |  1991-09-30  |  508b  |  22 lines
  1. ;  FIXTXT.LSP
  2. ;  This function forces recalculation of the group 10,20
  3. ;  values for middle-justified text.
  4. ;
  5. ;  This is only necessary with R10 or earlier versions of ACAD.
  6. ;
  7. ;
  8. ;
  9. ;   Copyright (c) 1991, D I Management Corporation
  10. ;
  11. ;
  12. (prompt "\nLoading . . . .\n")
  13. (defun c:fixtxt()
  14.     (setq SSet nil)
  15.     (setq SSet (ssget "X" (list (cons 0 "TEXT"))))
  16.     (setq Ndx 0)
  17.     (while (< Ndx (sslength SSet))
  18.         (entmod (entget (ssname SSet Ndx)))
  19.         (setq Ndx (1+ Ndx))
  20.     )
  21. )
  22.