我正在使用李·麦克慷慨提供给我们的m-Text例程。我对它做了一些补充以适应我使用的样式，但似乎找不到如何让它创建带下划线的文本。我在这个办公室使用AC 2009。我想做的是创建这样一个便笺：
一般说明：
•这是注释#1
•这是注释2
•等等。。。。
使用M-Text并用//P构建一个字符串来分隔段落效果很好，但我希望第一个句子加下划线。我成功的唯一方法就是画一条线，让第一个句子看起来像下划线一样。我试图创建一种新的文本样式，它会在文本上加下划线，但在AC 2009中似乎不可能。
我使用的M-Text例程如下所示：
- (defun M-Text (pt str txtclr a)
- (entmakex (list (cons 0 "MTEXT")
- (cons 100 "AcDbEntity")
- (cons 100 "AcDbMText")
- (cons 10 pt)
- (cons 7 "DIM")
- (cons 71 a)
- (cons 62 txtclr)
- (cons 1 str))))
| 
置顶卡
