如何设置注释文本的字高？

lijiao

在工程图中，我用VBA生成了注释文本，但找不到注释文本的字高属性。在监视窗口中发现有Height属性，但修改后不起作用，请各位帮忙。

fuzhan

height不是文本的高度属性，是文本框的高度属性。

lijiao

请问，文本的高度属性是什么？

fuzhan

你在做那方面的小玩意，可否说说。

你说的注释文本是指引线文本还是纯文本？

文本的高度属性当然是fontsize了，不过不是简单地就可以设置好。

lijiao

在出工程图时，有很多的文字是要经常用到的，比如未注倒角、未注尺寸公差、热处理等。

我做了一个数据库，将这些经常用到的东西分类保存起来，用到的时候，鼠标一点，即可调出所要的东西，不用敲键盘了。

我要的是纯文本，好像没有fontsize属性，生成的文本都是6.1mm高。

fuzhan

什么都不设置时，就是默认6.1mm高，不是这么简单就可以做成的，下面我给出一段代码，将这段代码复制到this document运行将会在工程图中生成不同大小不同字形的文字，很容易理解的，应该难不到你的，AIP文本的创建与网页代码相似。如果不深入点了解，还真的不好做出来，

很多人都用略图符号做你需要的功能，你用AIP本身的VBA做还是用VB.NET做？

不知做好后可否与我分享？

Sub f1()
    Dim fgs As GeneralNotes
    Set fgs = ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.GeneralNotes

Dim ft As TransientGeometry
    Set ft = ThisApplication.TransientGeometry
    Dim fst As String
    fst = "<StyleOverride Bold='True' Italic='True' FontSize='.75'>你好！</StyleOverride><StyleOverride FontSize='.5'>你好！</StyleOverride>"

'将上面两句并做一行
    Dim fg As GeneralNote
    Set fg = fgs.AddFitted(ft.CreatePoint2d(12, 12), fst)
End Sub

lijiao

明白您的意思，再一次感谢您。

我的这个程序早已经做成，以前用在ACADM和EXCEL中，现在想把它扩展到AIP中，其他的都已经做好，唯独这个字高高不定。

我是在VBA中做的。

再次感谢您。

lfpecker

不知做好后可否与我们分享？：）

lijiao

当然可以，让我整理一下。

lijiao

已经整理好了