原作者：未知
这个Lisp程序不是我写的，我只是修改了其中的一些内容以适应。
这不会自动选择您的文本框，lisp将提示您和用户这样做。
- (defun c:changestyle (/ entities len count ent ent_data ent_name new_style_name)
- (setq entities (ssget "_:L" '((0 . "text,mtext,attdef")))
- len (sslength entities)
- count 0
- );setq
- (while (< count len)
- (setq ent (ssname entities count)
- ent_data (entget ent)
- ent_name (cdr (assoc 7 ent_data))
- );setq
- (setq new_style_name (cons 7 "veranda"))
- (setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
- (entmod ent_data)
- (setq count (+ count 1))
- );while
- (princ)
- );defun
注意：它将所选文本设置为我偶尔使用的名为“Veranda”的文本样式。
如果您更改行：
对于您希望在文本框上使用的任何样式名称，它都应该足够了。 | 
置顶卡
