petty 发表于 2004-6-10 19:36:00

在程序中插入属性块中的属性中属性的文字如何为当前的字体。

请教，我用lisp或vba设定的属性块在程序中插入时，属性的文字字体在设置属性时就定了，请教如何实现让属性块的属性文字跟随当前的字体，即：当前字体为宋体，插入属性块时，字体即为宋体。当前为其它字体，插入的属性块中的字体即换为其它字体。

雪山飞狐_lzh 发表于 2004-6-10 20:12:00

本帖最后由 作者 于 2004-6-10 21:08:34 编辑

你把它设成"Standard"就可以了

efan2000 发表于 2004-6-10 20:52:00

插入块之后，更改属性的文字样式。Dim vAttRefs As Variant
       vAttRefs = blockRefObj.GetAttributes
       For i = LBound(vAttRefs) To UBound(vAttRefs)
               vAttRefs(i).StyleName = hisDrawing.ActiveTextStyle.name
       Next

petty 发表于 2004-6-10 20:55:00

谢谢楼上的朋友，你真是个大好人

xizhu119 发表于 2008-4-14 11:41:00

真的感谢，正在编这个东西，不知道里面的关键字是<font color="#0000ff">StyleName，谢谢</font>
页: [1]
查看完整版本: 在程序中插入属性块中的属性中属性的文字如何为当前的字体。