大家好，
有没有一种方法可以选择文本并将其加粗，而不必进入实际的多行文字，高亮显示并更改为加粗？
我有一个方便的lisp，它可以从所有选定的文本对象（如下）中删除下划线。有人知道如何修改它，使其可以添加下划线，而不是删除吗？
我在想也许这也可以修改，所以它不是删除/添加下划线，而是删除/添加粗体文本。
我试着把%%u换成%%b，但当然没那么简单
- (defun c:uline (/ sset num ent sub)
- (setq sset (ssget '((0 . "*text"))))
- (setq num 0)
- (repeat (sslength sset)
- (setq
- ent (entget (ssname sset num))
- sub (cdr (assoc 1 ent))
- )
- (if (= (cdr (assoc 0 (entget (ssname sset num)))) "TEXT")
- (setq ; TEXT
- sub (vl-string-subst "" "%%U" sub)
- sub (vl-string-subst "" "%%u" sub)
- )
- (setq ; MTEXT
- sub (vl-string-subst "" "{\\L" sub)
- sub (vl-string-subst "" "}" sub)
- )
- )
- (setq
- sub (subst (cons 1 sub)(assoc 1 ent) ent)
- num (1+ num)
- )
- (entmod sub)
- ); end repeat
- (princ)
- )
| 
置顶卡
