在MTE中打开/关闭下划线

Bill Tillman · 发表于 2022-7-5 19:59:18

我有一个小注释，我需要使用LISP添加到图形中，它包含两行。第一行带下划线，但第二行是简单文本。我已经能够使用\\L使下划线生效，但我需要先将其关闭，然后再继续段落中的下一行。

(command-s "._MTEXT"         (polar (polar gp4 0 (- (/ (distance gp4 gp3) 2.) 12)) a270 64)
                           (polar (polar gp4 0 (+ (/ (distance gp4 gp3) 2.) 12)) a270 64) "\\LPLAN VIEW\\P(DETAILS ON NEXT SHEET)" "")

Bill Tillman · 发表于 2022-7-5 20:21:23

好的，我找到了这个，解决了我的问题。现在了解如何水平居中对齐同一多行文字对象。

更新：entmake再次前来救援。我部署了一个旧的例程，它可以很好地处理这个问题，但我真的希望只在多行文字命令中获得一些东西，将文本居中对齐。

neophoible · 发表于 2022-7-5 20:58:10

也许这种方法可以对这种情况有所帮助。以下是实体列表，表示多行文字对话框中的五个基本对齐选项（在“选择对象：”提示之后）。注意“pxq”每个的前缀。

copy

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6b5140>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9BBC") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.8534 9.24843 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxql;Test text 00.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

copy

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6ac850>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9B35") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.8991 8.61804 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqc;Test text 01.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

copy

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6ac860>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9B36") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.9324 7.48601 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqr;Test text 02.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

copy

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6ac870>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9B37") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.9491 6.30404 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqj;Test text 03.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

copy

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6b5130>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9BBB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.9582 5.28993 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqd;Test text 04.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 3.17468) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

Bill Tillman · 发表于 2022-7-5 21:05:40

嘿，谢谢。最近我发现了很多关于dimenion文本的东西，比如DIMTIX和DIMJUST变量等等。。。

[编程交流] 在MTE中打开/关闭下划线

发表回复

精选推荐