不客气。
为了演示通过多行文字编辑器应用的多行文字格式对多行文字的文字内容(或同样对上述其他对象)的影响,请创建一个多行文字对象,并使用多行文字编辑器应用一些格式;然后,使用“属性”选项板查看多行文字对象的“内容”属性,或者运行以下程序并选择多行文字对象:
- (defun c:mtcontent ( / ent str )
- (if (setq ent (car (entsel "\nSelect MText: ")))
- (foreach dxf (reverse (entget ent))
- (if (member (car dxf) '(1 3))
- (setq str (cons (cdr dxf) str))
- )
- )
- )
- (princ (apply 'strcat str))
- (princ)
- )
|