home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
misc_lsp.zip
/
TEXTSUB.LSP
< prev
next >
Wrap
Text File
|
1987-08-28
|
848b
|
32 lines
; This function changes all selected text
; to the indicated style.
;
; Function name "TXTSTYLE" - Execution command "TXTSTYLE"
;
; Written by Christopher F. Conrad
;
;
(defun c:txtstyle ()
(setvar "CMDECHO" 0)
(setq style (getvar "TEXTSTYLE"))
(prompt "\nEnter new text style <") (princ style) (prompt ">")
(setq newtext (getstring " "))
(if (= newtext "") (setq newtext style))
(setq set (ssget))
(setq le (sslength set))
(setq counter 0)
(while (<= counter (1- le))
(setq name (ssname set counter))
(setq ent (entget name))
(setq d (cdr (assoc '0 ent)))
(if (= d "TEXT")
(progn (setq dot (assoc '7 ent))
(setq ent (subst (cons 7 newtext) dot ent))
(entmod ent)
)
)
(setq counter (+ 1 counter))
)
(setq a nil)
(gc)
)