云中帆 发表于 2004-9-1 10:24:00

[求助]stylename如何赋值

Public Sub aa()<BR>Dim a(2) As Double, ad As AcadText<BR>a(0) = 100<BR>a(1) = 200<BR>a(2) = 0<BR>Set ad = ThisDrawing.ModelSpace.AddText("你们好", a(2), 300)<BR>ad.StyleName = "宋体"<BR>ZoomExtents


End Sub


这段代码中ad.stylename的赋值有问题吗？


正确的赋值方法是什么啊？
页: [1]
查看完整版本: [求助]stylename如何赋值