[求助]stylename如何赋值

云中帆

Public Sub aa()
Dim a(2) As Double, ad As AcadText
a(0) = 100
a(1) = 200
a(2) = 0
Set ad = ThisDrawing.ModelSpace.AddText("你们好", a(2), 300)
ad.StyleName = "宋体"
ZoomExtents End Sub 这段代码中ad.stylename的赋值有问题吗？ 正确的赋值方法是什么啊？