如何设置注释文本的字高？
在工程图中，我用VBA生成了注释文本，但找不到注释文本的字高属性。在监视窗口中发现有Height属性，但修改后不起作用，请各位帮忙。 height不是文本的高度属性，是文本框的高度属性。 请问，文本的高度属性是什么？ 本帖最后由 作者 于 2006-7-24 17:07:14 编辑 <br /><br /> <P>你在做那方面的小玩意，可否说说。</P><P>你说的注释文本是指引线文本还是纯文本？</P>
<P>文本的高度属性当然是fontsize了，不过不是简单地就可以设置好。</P> <P>在出工程图时，有很多的文字是要经常用到的，比如未注倒角、未注尺寸公差、热处理等。</P>
<P>我做了一个数据库，将这些经常用到的东西分类保存起来，用到的时候，鼠标一点，即可调出所要的东西，不用敲键盘了。</P>
<P>我要的是纯文本，好像没有fontsize属性，生成的文本都是6.1mm高。</P> <P>什么都不设置时，就是默认6.1mm高，不是这么简单就可以做成的，下面我给出一段代码，将这段代码复制到this document运行将会在工程图中生成不同大小不同字形的文字，很容易理解的，应该难不到你的，AIP文本的创建与网页代码相似。如果不深入点了解，还真的不好做出来，</P>
<P>很多人都用略图符号做你需要的功能，你用AIP本身的VBA做还是用VB.NET做？</P>
<P>不知做好后可否与我分享？</P>
<P>Sub f1()<BR> Dim fgs As GeneralNotes<BR> Set fgs = ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.GeneralNotes</P>
<P>Dim ft As TransientGeometry<BR> Set ft = ThisApplication.TransientGeometry<BR> Dim fst As String<BR> fst = "<StyleOverride Bold='True' Italic='True' FontSize='.75'>你好！</StyleOverride><StyleOverride FontSize='.5'>你好！</StyleOverride>"</P>
<P>'将上面两句并做一行<BR> Dim fg As GeneralNote<BR> Set fg = fgs.AddFitted(ft.CreatePoint2d(12, 12), fst)<BR>End Sub<BR></P> <P>明白您的意思，再一次感谢您。</P>
<P>我的这个程序早已经做成，以前用在ACADM和EXCEL中，现在想把它扩展到AIP中，其他的都已经做好，唯独这个字高高不定。</P>
<P>我是在VBA中做的。</P>
<P>再次感谢您。</P> 不知做好后可否与我们分享？：） 本帖最后由 作者 于 2006-7-31 10:05:31 编辑 <br /><br /> <P>当然可以，让我整理一下。</P> <P>已经整理好了</P>
页:
[1]
2