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

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

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

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

你把它设成"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

真的感谢，正在编这个东西，不知道里面的关键字是StyleName，谢谢

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

发表回复

精选推荐