文本问题

Matersammichman · 发表于 2006-8-4 13:21:21

如何使用vba生成带下划线的文本？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Jeff_M · 发表于 2006-8-4 14:06:11

像这样：

Dim InsPt(2) As Double
Dim strTxt As String
strTxt = "How about %%uunderline%%u?"
ThisDrawing.ModelSpace.AddText strTxt, InsPt, 0.2

Matersammichman · 发表于 2006-8-4 15:15:29

嗯...
我同意你的观点，但是我希望能够从文本框输入文本，而不是每次都必须输入“%%U”...
更多想法？

Jeff_M · 发表于 2006-8-4 15:36:31

哼？你的意思是像这样？

Dim InsPt(2) As Double
Dim strTxt As String
strTxt = "%%u" & TextBox1.Value & "%%u"
ThisDrawing.ModelSpace.AddText strTxt, InsPt, 0.2

Matersammichman · 发表于 2006-8-4 15:52:20

是的，谢谢。

Matersammichman · 发表于 2006-10-31 15:43:45

好的，让我们更进一步-
您将如何创建双下划线文本？

Matersammichman · 发表于 2006-10-31 15:44:49

在普通的acad中你会怎么做？

Keith · 发表于 2006-10-31 15:46:50

不幸的是…在文本下方手动绘制另一条线。

Murph · 发表于 2006-10-31 15:54:34

我以为有一种字体属性可以让你有双下划线。

Murph · 发表于 2006-10-31 16:25:15

不在AutoCAD中