粗体文本
大家好，有没有一种方法可以选择文本并将其加粗，而不必进入实际的多行文字，高亮显示并更改为加粗？
我有一个方便的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)
) 它更容易发挥多行文字我会转换成多行文字，如果你只是添加一些多行文字和改变它的颜色粗体下划线等，并使用像dumpit的东西。lsp您将看到所有隐藏的编码。
粗体红色下划线1/2 TextString=“\\A1；{\\fArial | b1 | i0 | c0 | p34；粗体}{\\C1；红色}{\\LUNDERLINE}{\\H0.7x；\\S1/2；}”
你可以做一个简单的拨号按钮加粗下划线等打开所需的。颜色要求数字或rgb。 请不要添加到旧线程。你的问题与另一条线索几乎没有关系。
我在AutoLISP、Visual LISP和DCL论坛中创建了一个新的线程加粗文本。
页:
[1]