社区 › VB › 文本问题

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

文本问题

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

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中

查看完整版本: 文本问题