lgc-ty 发表于 2005-4-4 12:53:00

autocad2002 关于字体的vb编程

朋友们:


                                                       我在插入块时,块的属性文本变成"???",怎样才能启动cad时就把字体名设为：宋体 呢？


                                               我想在autocad2002启动时,就加栽"宋体",如何实现(vba或vb)?


                                                                                                                                                                                                                                                                                                                                                                       lgc

yulijin608 发表于 2005-4-4 13:00:00

Dim txtStyle As Object<BR>Set txtStyle = newDoc.ActiveTextStyle<BR>txtStyle.SetFont "宋体", False, False, 1, 1

yulijin608 发表于 2005-4-4 13:05:00

补充一下,我是在VB中写的,其中的newDoc为当前的ActiveDocument.

lgc-ty 发表于 2005-4-6 16:07:00

十分感谢yulijin608，我试试看


另外，还有个问题请教：


如何通过菜单实现工具条的显示与隐藏？


我用的是autocad2002和vba
页: [1]
查看完整版本: autocad2002 关于字体的vb编程