带下划线的文本
我正在使用李·麦克慷慨提供给我们的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)))) 您可以尝试:
(cons 1 "{\\LGENERAL NOTES}:\\PThis is note #1")
当做
米尔恰 http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%202010%20User%20Documentation/index.html?url=WS1a9193826455f5ffa23ce210c4a30acaf-htm,主题编号=d0e123454
这是哪个节目?
页:
[1]